>I thank you to trie help me
>
>1- Run the following before issueing a save command
> IF EVAL(thisform.ActiveControl.ControlSource)
>thisform.ActiveControl.Value
> REPLACE (thisform.ActiveControl.ControlSource) WITH
>thisform.ActiveControl.Value
>ENDIF
>
>I´m using the follow code
>IF EVAL(_screen.ActiveControl.ControlSource)
>_screen.ActiveControl.ControlSource
> REPLACE (_screen.ActiveControl.ControlSource) WITH
>_screen.ActiveControl.Value
>ENDIF
> and the VFP shows me the message ACTIVECONTROL IS NOT A OBJECT
>
>What i´m doing wrong
>Thanks
>Anderson Girardi
>ander@net1.com.br

You IF statement is wrong
IF EVAL(thisform.ActiveControl.ControlSource) <> thisform.ActiveControl.Value
REPLACE (thisform.ActiveControl.ControlSource) WITH thisform.ActiveControl.Value
ENDIF