>>IF LEN(RTRIM(Thisform.Namefile)) =0
>> WITH Thisform
>> WITH .Dataenvironment
>> .Closetables
>> .Addobject([Cli_name],[Cursor])
>> .Cli_name.Buffermodeoverride =2
>> .Opentables
>> ENDWITH
>> ENDWITH
>>ENDIF
>
>Oops: I forget a few lines there.
>
>Try

>.Cli_name.Alias = "Cli_name"
>

>and whatever other property settings are called for....

This is the code:

WITH Thisform
WITH .Dataenvironment
.Addobject([Cli_name],[Cursor])
.Cli_name.Buffermodeoverride =2
.Cli_name.Alias="Cli_name"
.Closetables
.Opentables
ENDWITH
.Field_name.ControlSource =[Cli_name.Field_name]
.ChkField_core.ControlSource=[Cli_name.Field_core]
.ChkField_mand.ControlSource=[Cli_name.Field_mand]
.SpnField_len.ControlSource =[Cli_name.Field_len]
.SpnField_dec.ControlSource =[Cli_name.Field_dec]
.NameFile =[Cli_name]
.MainFile =[Clients]
.CboFilename.Value =[Clients]
.Objsrefresh
ENDWITH

And it poops out when I mention Cli_name.Field_name, saying "Alias 'Cli_name' does not exist."

I've sent a similar msg to the others, so I won't send this to them too.

JR