Function filling textboxes

[Chrissie]

I'd like to creat a function which fills in textboxes...
The function should do something like this...
txtVarType = rs.Fields("Type")
txtVarPrice = rs.Fields("SalesPrice")
txtVarDescr = rs.Fields("Description")

txtVar2Type = rs.Fields("Type")
txtVar2Price = rs.Fields("SalesPrice")
txtVar2Descr = rs.Fields("Description")

txtVar3Type = rs.Fields("Type")
txtVar3Price = rs.Fields("SalesPrice")
txtVar3Descr = rs.Fields("Description")

I was thinking of somthing like this...

Public Function Filltextbox(Fill As String)
"txt" & Fill & "Type" = rs.Fields("Type")
"txt" & Fill & "Price" = rs.Fields("SalesPrice")
"txt" & Fill & "Descr" = rs.Fields("Description")
End Function

Initiating the function as follows...
Filltextbox(Var)
Filltextbox(Var2)
Filltextbox(Var3)

But this..."txt" & Fill & "Type" doesn't seem to work..Can anyone help?

[chatty]

Use control arrays

[chatty]

To do this:

Public Function Filltextbox(Fill As integer)
txtVarType(Fill) = rs.Fields("Type")
txtVarTypePrice(Fill) = rs.Fields("SalesPrice")
txtVarTypeDescr(Fill) = rs.Fields("Description")
End Function

Initiating the function as follows...
Filltextbox(1)
Filltextbox(2)
Filltextbox(3)

[Chrissie]

Ok now I have the follwoing code...

Public Function Filltextbox(Fill As Integer)
txtVarType(Fill) = "Bla"
txtVarTypePrice(Fill) = "Blaat"
txtVarTypeDescr(Fill) = "Blaatt"
End Function

Private Sub Command1_Click()
Filltextbox (1)
End Sub


I have three textboxes...
txtVarType1
txtVarTypePrice1
txtVarTypeDescr1

When I try and run the code...it gives me the following error...
"Sub or Function not defined."

So what's wrong?!?

[chatty]

Check out the example

[Chrissie]

Thank you very much...great help!

[alex_read]

Couple of ways to do this one, i'd use this one normally:
Each conrtol on a form is a menber of the form.controls collection. You can call on this collection to reference your textbox :

Public Function Filltextbox(Fill As String)
    me.controls("txt" & Fill & "Type")  = rs.Fields("Type")
    me.controls(""txt" & Fill & "Price") = rs.Fields("SalesPrice")
    me.controls(""txt" & Fill & "Descr") = rs.Fields("Description")
End Function