Function filling textboxes

Printable View

Aug 19th, 2002, 06:39 AM
Chrissie

Function filling textboxes

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?
Aug 19th, 2002, 06:45 AM
chatty

Use control arrays
Aug 19th, 2002, 06:50 AM
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)
Aug 19th, 2002, 07:10 AM
Chrissie

What name to Textboxes?

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?!?
Aug 19th, 2002, 07:19 AM
chatty

1 Attachment(s)

Check out the example
Aug 19th, 2002, 07:23 AM
Chrissie

Thanks very much!

Thank you very much...great help!

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 :
VB Code:
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