No problems, best of luck to you.
Can you please help me with my problem if you have a minute?
Thanks a lot in advance.
>Naomi,
>you are just too quick. I fixed it with a macro but then saw your code so I redid it your way. I just keep missing the small stuff. My new glasses are supposed to be in Friday.
>
>Thanks for the help and the sharp eye,
>John.
>
>
Local mName, oCol, oControl
>FOR EACH oCol IN this.Columns
> for each oControl in oCol.controls
> if Upper(oControl.class) == 'TEXTBOX'
> mName = oControl.name
> oCol.RemoveObject(mName)
> oCol.NewObject(mName,[cTextBox],[vjctrl.vcx])
> oCol.CurrentControl = mName
> store .t. to ('oCol.' + mName + '.visible')
> EndIf
> endfor
>ENDFOR
If it's not broken, fix it until it is.
My Blog