List box to String conversion 1

[lbigk]

Hello,

I cannot find an error in my code:
If ctl.ItemsSelected.Count > 0 Then
For Each varItm In ctl.ItemsSelected
If lstn = "" Then
lstn = Me.lstAcct.Column(2) & ";"
Else
lstn = lstn & ctl.Column(2) & ";"
End If
Next varItm
End If

I should get a list of selected items as a string separated by ";", but I am getting the same value over and over based on the number of items selected in the listbox.

Thank you for your assistance.

 

[MajP]

something more like

Public Sub listBoxtoString()
  Dim ctl As Access.Control
  Dim varItm As Variant
  Dim lstN As String
  Set ctl = Me.List0
  
  If ctl.ItemsSelected.Count > 0 Then
    For Each varItm In ctl.ItemsSelected
    If lstN = "" Then
       lstN = ctl.Column(1, varItm) & ";"
     Else
        lstN = lstN & ctl.Column(1, varItm) & ";"
     End If
        Next varItm
    End If
    Debug.Print lstN
End Sub

also, remember the second column has an index of 1

 

[lbigk]

Thank you, it worked.