Looping through unbound variables 1

[tadzo]

Using Access 2007, VBA within a Form –
Is there a way to transform code such as:
Me.text1=x(1)
Me.text2=x(2)
Me.text3=X(3)

To something like:
For I = 1 to 3
Me.text(I)=X(I)
Next I

Thanks!

 

[MajP]

dim i as integer
for i = 1 to 3
me.controls("text"&i) = x(i)
next i