Need to assign values to field in form dynamically

[Scoty]

Hey Guys,
I have a database which reads data from another program. I want to assign data I receive to form fields. My form fields are named as

FirstName1, FirstName2, FirstName3...

ect.,ect. now in my database I have these setup in a loop such as:

y = 1
Do Until FirstName = "          "
FirstName = "FirstName" & y
FirstName = GetText(1 , 3, 10)
y = y + 1
Loop

now what happens is, of couse, A97 reassigns the value of

FirstName

to the value of

GetText(1, 3, 10)

instead of assigning the value of

GetText(1, 3, 10)

to the field (on the form) that

FirstName

is assigned to first.
Help Please
scoty:

 

[RickSpr]

Try this:

    Me.Controls(FirstName) = GetText(1, 3, 10)

In your statement, you're not "assigning" FirstName to a form field, you're just giving it a string value that happens to be the name of a form field. Then you're trying to use FirstName as if it was a control. What you really need is a reference to the control whose name is in FirstName. That's what Me.Controls(FirstName) does.

 

[Scoty]

Thanks Rick
What I ended up doing was

Dim FirstName as Control

and then

Set FirstName = "Me.FisrtName" & y

in my loop. This Set FirstName as the control FirstName1, FirstName2...so on and so on. I did have the coding correct it was field names that were throwing me off. I had FirstName1, FirstName2, FName3...So the program got to the third entry and choked. Got it worked out now and it is wonderful.

Thanks for you help though
Scott :