for i = 2 to 12 loTextbox="ThisForm.Text" + trans(i) if !empty(eval(loTextbox)) lcProperty=loTextbox+'.value' &lcProperty=Newname endif endfor>hi,
>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 >>>>