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.)
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
Want to reply to this thread or ask your own question?
You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.