Hi Tom,

That only works with a single select list box (Multiselect property set to
None). Try something like this, instead:

Function InterateSelections() As Variant
On Error GoTo ProcError

Dim varCategory As Variant

  For Each varCategory In Me.SomeListbox.ItemsSelected()
       Debug.Print Me.lboProjects.Column(2, varCategory)
  Next varCategory
 
ExitProc:
  Exit Function
ProcError:
  MsgBox "Error " & Err.Number & ": " & Err.Description, _
          vbCritical, "Error in InterateSelections Function..."
  Resume ExitProc
End Function


Tom Wickerath
Microsoft Access MVP
http://www.accessmvp.com/TWickerath/
http://www.access.qbuilt.com/html/expert_contributors.html
__________________________________________

Me.SomeListbox.Column(2)
will return the value in column 3 of the selected row.

-Tom.
__________________________________________

"John" wrote:

Hi

How can I get the value of the third column of a multi-select list box?

Thanks

Regards