Multi Select ListBox to populate field(s) 1

I hope I can explain this.

First if you use the multi-select feature of the list box, then the list box must remain unbound.

So with this in mind, you will need to have a textbox on the form to receive the information from the listbox. This txtbox can be hidden from view if necessary. Below is an example of code that should do what you want. I assumed you wanted a comma and a space seperating each choice. If not, alter the code to your needs.

You will also need some way of triggering when the last selection has been made. In the example below I used a cmdButton. First select all choices, then click the button to transfer the results to the textbox that is bound to the table where the information is to be stored.

Private Sub cmdSelectItems_Click()
Dim frm As Form, ctl As Control
Dim varItem As Variant
Dim strTemp As String
Set frm = Me 'sets form to active form
Set ctl = frm!YourListBox 'Name of your listbox
For Each varItem In ctl.ItemsSelected
strTemp = strTemp & ctl.ItemData(varItem) & ", " 'adds the comma and space
Next varItem
strTemp = Left$(strTemp, Len(strTemp) - 2) 'Remove the last comma and space
Me![txtResultOfList] = strTemp
End Sub

"Me.[txtResultOfList]" is the textbox where the information is populated from the listbox.

Hope I haven't lost you, (hope I haven't lost myself)

HTH X-)
RDH

[sig]<p>Ricky Hicks<br><a href=mailto: rdhicks@mindspring.com> rdhicks@mindspring.com</a><br><a href= > </a><br> [/sig]