hi,
thank you very much...it works.

have a nice time

>Sorry, change that line to

>replace (eval(loTextbox)) with Newname

>
>>thank you,
>>error message... command contains unrecognized phrase/key word
>>at replace eval(loTextbox) with Newname
>>
>>thanks
>>
>>>>hi,
>>>>thank you,
>>>>1.error message... Function argument value, type, or count is invalid at
>>>>if !empty(eval(loTextbox))
>>>

>>>for i = 2 to 12
>>>  loTextbox="ThisForm.Text" + trans(i)+'.value'
>>>  if !empty(eval(loTextbox))
>>>    replace eval(loTextbox) with Newname
>>>  endif
>>>endfor

>>>>2.what about replace
>>>
>>>I misread your code, I thought you wanted to change the property value.
>>>
>>>>
>>>>thanks
>>>>
>>>>>Something like this

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

>>>>>>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
>>>>>>
>>>>>>>>hi all,
>>>>>>>>
>>>>>>>>is there a way to convert it to vfp code
>>>>>>>>

>>>>>>>>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.
>>>>>>>
>>>>>>>I am not sure exactly what you want to do.
>>>>>>>
>>>>>>>To loop through the textboxes, you might use something like this:
>>>>>>>
>>>>>>>

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

>>>>>>>
>>>>>>>REPLACE is used for fields in a table. To change the TextBox, just use the .Value property.
>>>>>>>
>>>>>>>If you want to REPLACE table fields, where do you have the name of the fields, and the values?