FOR i = 2 TO 12>
>>>FOR i = FirstTextboxNumber TO LastTextboxNumber >>> IF EVALUATE(EVALUATE("thisform.text"+TRANSFORM(I)+".value")) > SPACE(10) >>> **** but my guess is NOT EMPTY() is what you really want >>> REPLACE (EVALUATE("thisform.text"+TRANSFORM(i)+".value")) WITH newname >>>ENDIF >>>ENDFOR >>> >>> >>>>hi, >>>>thank you for help and code, >>>>this code under works....is there any other way to rewrite i mean new way >>>><pre> >>>>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 >>>>>>>>>>