Hello,
I have a multi-select list box and I'm having trouble with the visual basic code to cycle through the values. My append query currently adds all of my fields except for the multi-select list boxes.
This is what I have for On Click:
Private Sub List0_Click()
Dim lngRow As Long
Dim strMsg As String
With Me.List0
For lngRow = 0 To .ListCount - 1
If .Selected(lngRow) Then
strMsg = strMsg & ", " & .Column(1, lngRow)
End If
Next lngRow
End With
' strip off leading comma and space '
If Len(strMsg) > 2 Then
strMsg = Mid(strMsg, 3)
End If
MsgBox strMsg
End Sub