Multiselect List - 3 columns - Problem selecting 1

[ZOR]

I have a listbox which works with the code below when having only 1 column. Now there are three columns I cannot get a value in strList1. Anyone know how to sort it out. Thanks.

Private Sub L14_Click()
strList1 = ""

For Each Item1 In Me.L14.ItemsSelected
strList1 = strList1 & ",'" & Replace(Me.L14.ItemData(Item1), "'", "''") & "'"
Next Item1

Me.RR = strList1
End Sub

 

[PHV]

Seems you forgot to define the BoundColumn property of L14.

Hope This Helps, PH.
FAQ219-2884
FAQ181-2886

 

[ZOR]

Many thanks, Stupid me, you were correct. Reagrds