How to assign multi select listbox value to a field on the form

[zhangyu]

Hello,

I am new to design and program FORMs in ACCESS. what i was trying to do is build a multi select list box on the form and then assign user selected item to a field on the form. i found a code snippet online and modified a bit. i can use Messagebox to display selected items, but the value did not saved into my table.

List133 is the listbox name. i am trying to assgin strValue to a field called "Language" in my table. if it is not a multi selected listbox, the selected item will be saved in to the Language field, but how to make it work for multi-select listbox?

Thank you for your time and hope my question makes sense to you.

Private Sub List133_Exit(Cancel As Integer)
Dim valSelect As Variant
Dim strValue As String ' just used for the demonstration



For Each valSelect In Me.List133.ItemsSelected
strValue = strValue & "'" & Me.List133.ItemData(valSelect) & "', "
Next valSelect
' to remove trailing comma
strValue = Left(strValue, Len(strValue) - 2)
MsgBox strValue


End Sub

[June7]

The code is not populating the field, it simply sets a variable.

Instead of the MsgBox line:

Me!Language = strValue

This is assuming the form is bound to table and Language field is in the form RecordSource.

[zhangyu]

Thanks, June7. I tried your suggestion, but i got error. the form is bound to a table and language was set to be the CONTROL source for the listbox.

[June7]

The code should work. What is the exact error message?

Don't need the apostrophes in the string concatenation, although should not be an issue.

strValue = strValue & Me.List133.ItemData(valSelect) & ", "

[zhangyu]

Hi, June7,

i think i must have done something stupid. first time i tried, it was not working and gave a compile error, but now it is working. thank you so much for your patience and have a great weekend!!