List Boxes

[MJCoxy]

I'm using a list box which holds a list of telephone numbers. I go down the list in turn from top to bottom using the 'selected' function. Firstly is there an easier way to do this i.e. MoveNext ?

The second thing, does anyone know how to display the selected number in a message box? It seems simple but I don't seem to be able to make it work.

 

[MisterC]

I assume you have Multi-Select set to something other than None
Access allows you to use the ItemsSelected property of the listbox. If you want to see the data for each selected item:

   Dim varItem         As Variant
   For Each varItem In Me.List1.ItemsSelected
        Debug.Print Me.List1.ItemData(varItem)
   Next

Hope this helps!