multi-column List Box

[shepHeard]

Hi there,

I'm sure I'm not being dim, but I really can't figure how to do this.

I have a list box with two columns. One column (bound) is a name, the other is a unique ID. I need to transfer both the Name and the ID to a second list box (again, two columns).

I can get it to do this with single selections, but not multiple ones, and this is what I need.

Any ideas?

Cheers

 

[shepHeard]

Yup. I was being dim.

isn't it annoying when you realise the code is this simple:

Private Sub Command5_Click()
Dim listString

For Each i In Me.lstSp.ItemsSelected
listString = listString & Me.lstSp.Column(1, i) & ";" & Me.lstSp.Column(0, i) & ";"
Next i

Me.lstSpList.RowSource = Left(listString, Len(listString) - 1)

End Sub

C'est le vie.