Subs and Arrays

[cpalermo]

Hopefully, someone can help me out here.

I have a control array of 9 textboxes. I want to pass the array of the textbox to a subwhere processing can occur for each instance of textbox.text

The textboxes contain name, address, city, state, etc... in the sub, I want add these to a database. I want to use this sub, as customers will be added from more than one screen.

ie:

From Form1:
=============================
sub cmdAddCustomer_click()
dbCustAdd(textbox1())
end sub
=============================

From Module1
=============================
Sub dbCustAdd(textbox as TextBox)
sqlString = "insert into customers values('"
for each textbox1.text in textbox1
sqlString-sqlString & textbox1.text & "'"
next
db.execute(sqlString)
end sub
==============================
This does not work... can anyone help?

TIA,
Chris

 

[strongm]

Sorry, in a rush here at the moment, so this is merely an information bulletin rather than a solution: a control array is not the same thing as an array of controls. It's just bad terminology from MS. So you can't pass a control array in the same way as you might pass, say, an array of integers.

 

[JohnYingling]

A control array is an object not an array.
sub cmdAddCustomer_click()
dbCustAdd(textbox1) '??? Textbox1 is control array name
end sub
=============================

From Module1
=============================
Sub dbCustAdd(objTxt as object)
Dim txtW As textbox
sqlString = "insert into customers values('"
for each txtw in objTxt
sqlString = sqlString & txtw.text & "'"
next
db.execute(sqlString)
end sub

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[JohnYingling]

Also, ditch the parens on a Sub call or add "Call". Parens are used on function calls around the argument list and around individual arguments that are expressions.
Use
Call dbCustAdd(textbox1)
or
dbCustAdd textbox1

http://www.VBResizer.com

Generate Forms/Controls Resizing/Tabbing Class

http://www.VBCompare.com

Compare Code (Text)

http://www.VBSortGen.com

Generate Sort Class in VB or VBScript

 

[cpalermo]

Thanks so much... got it!