Multi Select List Box

[MTSPEER]

Hello,

I have a listbox names LstHello and you can select multiple states. I want to be able for it to select multiple states in the listbox and add it to a new record in the table and put all the values into one field separating it by a comma. The table name is "Users" and the field name is "States"

Thanks

[RuralGuy]

So I'll start by asking what part of your issue has you stuck?

[RuralGuy]

Here's an example of part of your solution: http://www.baldyweb.com/MultiselectAppend.htm

[MTSPEER]

that example adds a new record and inserts each value. I want to add all the values into one record. In one field, separating each value by a comma. I can't figure out how to get all the values into one record

[RuralGuy]

Maybe this link will give you some ideas: http://theaccessweb.com/forms/frm0007.htm

[Missinglinq]

Here's something I have archived, with your names inserted...see if it works for you:

Private Sub lstHello_AfterUpdate()

Dim strNames As String

Dim varItem As Variant

For Each varItem In Me.lstHello.ItemsSelected
  strNames = strNames & Me.lstHello.ItemData(varItem) & ", "
Next varItem

Me.States = strNames

End Sub