S
Steve
Something like this should do the trick. (untried and
tested
For the OnClick event for the button;
dim db as database
dim rst as recordset
set rst = db.openrecordset("***TABLE NAME TO APPEND TO***")
dim intCur_Row as Integer
for intCur_Row = 1 to ***AMOUNT FIELDNAME HERE***
rst.addnew
rst("Item") = ***DROPDOWN BOX NAME HERE***
rst.update
next intCur_Row
(I use access97, this could be different if you are using
Access2000 (ADO))
Good Luck!
Steve.
tested
For the OnClick event for the button;
dim db as database
dim rst as recordset
set rst = db.openrecordset("***TABLE NAME TO APPEND TO***")
dim intCur_Row as Integer
for intCur_Row = 1 to ***AMOUNT FIELDNAME HERE***
rst.addnew
rst("Item") = ***DROPDOWN BOX NAME HERE***
rst.update
next intCur_Row
(I use access97, this could be different if you are using
Access2000 (ADO))
Good Luck!
Steve.