>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 nextREPLACE is used for fields in a table. To change the TextBox, just use the .Value property.