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