Actually, I only need to have 35 textboxes showing, but in the designer, I want to move some around and improve the appearance but neither scrolling, maximizing will allow me to access the ones below the bottom margin!!!!!!
>Hello Timothy,
>
>You don't need to be able to visually access all of the controls for this method to work. You only have to select one control on the form (in design mode). You put can this code in a .prg file and run it, it will go through all the controls on the form. Pretty cool, huh?
>
>Another issue to consider is whether or not you should really be putting that many textboxes on the same form...will it be user friendly? Pageframes may be more appropriate.
>
>>>
>>>Then select any one control on form and run :
>>>
>>>
aselobj(arrForm,1)
>>>for each oControl in arrForm[1].Controls
>>> with oControl
>>> if upper(.Baseclass)='TEXTBOX' and !empty(.Controlsource)
>>> .ControlSource = substr(.Controlsource, at('.',.Controlsource)+1)
>>> endif
>>> endwith
>>>endforCetin
>>
>>Cetin, I have 50 fields, I only only visually access 18, whcih is how many can be displayed with my designer form maximized. Even if I scroll or resize! :(
"Build a man a fire, and he's warm for a day.
Set a man on fire, and he's warm for the rest of his life."
