Recordset/offset question

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

Is there a way to find out the position/offset of a record within a recordset
without running a loop with a counter in it?
 
Try AbsolutePosition

Careful though: if you are deleting records from this recordset, do some
very thorough testing before you trust this property. (That's not from a bad
experience, it just sounds like a likely trap.)
 
Example:

Function TestAbsPos()
Dim rs As DAO.Recordset
Set rs = DBEngine(0)(0).OpenRecordset("SELECT * FROM tClient;")
Debug.Print rs.AbsolutePosition
rs.MoveNext
Debug.Print rs.AbsolutePosition
rs.Move 100
Debug.Print rs.AbsolutePosition
rs.Close
End Function
 
Back
Top