>Hi everybody,
>
>I have this code (not sure why it's referencing _screen.ActiveForm)
>
>

>lcObject=sys(1272, this.parent)
>		lcScreenObject = "_SCREEN.activeform." + justext(m.lcObject)
>		if type(m.lcScreenObject + '.name') = 'C'
>			lcCostSource = m.lcScreenObject + ".a_cost(&lcRecn,&lcColIndex)"
>
>			.cnt_PurchOrd.spn_Cost.controlsource = lcCostSource
>
>			lcRecvSource = lcScreenObject  + ".a_Recv(&lcRecn,&lcColIndex)"
>			.cnt_PurchOrd.spn_Received.controlsource = m.lcRecvSource
>
>			.cnt_PurchOrd.txt_OnHand.value = evaluate(lcScreenObject +".a_OnHand(&lcRecn,&lcColIndex)")
>			.cnt_PurchOrd.txt_lstCost.value = evaluate(lcScreenObject +".a_LastCost(&lcRecn,&lcColIndex)")
>			.cnt_PurchOrd.txt_OnOrder.value = evaluate(lcScreenObject +".a_OnOrd(&lcRecn,&lcColIndex)")
>		endif
>

>
>when the ActiveForm changes, it gives an error. Is there any way to make the above conditional in the ControlSource?
>
>Thanks in advance.

Change the design.
With this you will always have problems.