FOR i = 2 TO 12>all of texts is characters type.
>>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 >>>>>>>>