Login or Sign Up to become a member!

Less Than Dot is a community of passionate IT professionals and enthusiasts dedicated to sharing technical knowledge, experience, and assistance. Inside you will find reference materials, interesting technical discussions, and expert tips and commentary. Once you register for an account you will have immediate access to the forums and all past articles and commentaries.

From Wiki

This is a straight cut-and-paste of an example supplied by Microsoft.

Example: List Selected Range

  Function DisplaySelectedCompanyNames()
     Dim i As Long
     Dim frm As Form
     Dim rs As DAO.Recordset
     
     ' Get the form and its recordset.
     Set frm = Forms![Customers]
     Set rs = frm.RecordsetClone
     
     ' Move to the first record in the recordset.
     rs.MoveFirst
     
     ' Move to the first selected record.
     rs.Move frm.SelTop - 1
     
     ' Enumerate the list of selected records presenting
     ' the CompanyName field in a message box.
     For i = 1 To frm.SelHeight
       MsgBox rs![CompanyName]
       rs.MoveNext
     Next i
     
  End Function

Further Information

How to enumerate selected form records in Access 2000: [1]