>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.

That is...weird.
If you need to update some properties in some form then pass it as parameter to the routine.
You can't relay on the current form (maybe only if you have SDI).