BaldyWeb

Use a Multi-Select Listbox to Add Records to a Table

There are a number of ways to do this.  Here is the "guts" of one method, plus a sample db demonstrating it:

Set ctl = Me.lstEmployees
For Each varItem In ctl.ItemsSelected
  rs.AddNew
  rs!EmpID = ctl.ItemData(varItem)
  rs!OtherValue = Me.txtOtherValue
  rs.Update
Next varItem

Multiselect Append sample db

Home