>replace (eval(loTextbox)) with Newname>
>>>for i = 2 to 12 >>> loTextbox="ThisForm.Text" + trans(i)+'.value' >>> if !empty(eval(loTextbox)) >>> replace eval(loTextbox) with Newname >>> endif >>>endfor>>>>2.what about replace
>>>>>for i = 2 to 12 >>>>> loTextbox="ThisForm.Text" + trans(i) >>>>> if !empty(eval(loTextbox)) >>>>> lcProperty=loTextbox+'.value' >>>>> &lcProperty=Newname >>>>> endif >>>>>endfor>>>>>
>>>>>>IF (thisform.text2.Value)> SPACE(10) >>>>>> REPLACE (thisform.text2.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text3.Value)> SPACE(10) >>>>>> REPLACE (thisform.text3.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text4.Value)>space(10) >>>>>> REPLACE (thisform.text4.Value) WITH NEWNAME >>>>>>endif >>>>>> >>>>>>IF (thisform.text5.Value)>space(10) >>>>>> REPLACE (thisform.text5.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text6.Value)>space(10) >>>>>> REPLACE (thisform.text6.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text7.Value)>space(10) >>>>>> REPLACE (thisform.text7.Value) WITH NEWNAME >>>>>>endif >>>>>> >>>>>>IF (thisform.text8.Value)>space(10) >>>>>> REPLACE (thisform.text8.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text9.Value)>space(10) >>>>>> REPLACE (thisform.text9.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text10.Value)>space(10) >>>>>> REPLACE (thisform.text10.Value) WITH NEWNAME >>>>>>endif >>>>>> >>>>>>IF (thisform.text11.Value)>space(10) >>>>>> REPLACE (thisform.text11.Value) WITH NEWNAME >>>>>>endif >>>>>>IF (thisform.text12.Value)>space(10) >>>>>> REPLACE (thisform.text12.Value) WITH NEWNAME >>>>>>endif >>>>>> >>>>>>>>>>>>thanks
>>>>>>>>for i= thisform.text1.value to thisform.text12.value >>>>>>>> if (i)any text <>space"" >>>>>>>> REPLACE (thisform.text2.Value) WITH NEWNAME >>>>>>>> REPLACE (thisform.text3.Value) WITH NEWNAME >>>>>>>> REPLACE (thisform.text4.Value) WITH NEWNAME >>>>>>>> REPLACE (thisform.text5.Value) WITH NEWNAME >>>>>>>>.. >>>>>>>>.. >>>>>>>>.. >>>>>>>>.. >>>>>>>>.. >>>>>>>> REPLACE (thisform.text11.Value) WITH NEWNAME >>>>>>>> REPLACE (thisform.text12.Value) WITH NEWNAME >>>>>>>> ENDIF >>>>>>>>ENDFOR >>>>>>>>>>>>>>>>thanks.
>>>>>>>for i = 1 to 12 >>>>>>> loTextBox = eval("ThisForm.Text" + trans(i)) >>>>>>> loTextBox.Value = ... >>>>>>> loTextBox.Visible = ... >>>>>>> loTextBox.Top = ... >>>>>>> * or whatever other property you want to change in each TextBox >>>>>>>next >>>>>>>>>>>>>>