Hi,
To save each selected items in a multiple selection listbox, you can
walk through the ItemsSelected collection and issue an INSERT INTO for each
one.
Dim varItem As Variant
Dim db As Database : Set db=CurrentDb
For Each varItem In Me.ctlName.ItemsSelected
db.Excute "INSERT INTO myTable(fieldName) VALUES(" & _
Me.ctlName.ItemData(varItem) & ")"
Next varItem
You will need to add the right delimiters if the value is a string, or a
date; here, I assumed it is a number (and that your locale setting use a dot
for the decimal delimiter, not a coma, which may be important if the number
has a decimal portion). ctlName is the list box name. You also have to
replace MyTable and fieldName with the real name involved in your
application.
Hoping it may help,
Vanderghast, Access MVP