>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 >>>>>>