Multiple Selection List Boxes

[Muzzy]

I have a multiple selection list box on a form, when more than one value is selected I need to 'walk' the list box and pick out each selected value and add it to a table with a key. The key is a unique identifier for the site but there will obvioulsy be multiple occurences of this .i.e.
31 public
31 private
31 Both
32 Private
etc.
Any help on this would be greatly appreciated.

 

[pgk]

Hi,
Modify the followinf code to suit your needs.


Private Sub AddListContents_Click()
'Code to open databse and table

dim lst as Variant
For each lst in Me.List1.ItemsSelected
rs.AddNew
rs.Fields("X&quot=Me.List1.Column(1, lst)
rs.Update
Next lst

'Close database
End Sub

This code will add the contents of the Second column of each row in the list box to the table. Hope it helps. Let me know what happens.
With regards,
PGK