Using the AbsolutePosition Property

 
Sub FindPosition()
    Dim strSQL As String

    Dim rst As ADODB.Recordset
    Set rst = New ADODB.Recordset

    rst.ActiveConnection = CurrentProject.Connection
    rst.CursorType = adOpenStatic
    rst.Open "Select * from Products"

    strSQL = "[ProductID] = " & 1
    rst.Find strSQL

    'If record is found, print its position
    If rst.EOF Then
        msgBox lngValue & " Not Found"
    Else
        Debug.Print rst.AbsolutePosition
    End If

    rst.Close
    Set rst = Nothing

End Sub

1.	Looping Through a Recordset
2.	Retrieve data from Recordset by table column name
3.	Move cursor in result set
4.	Build a string text from result set
5.	Creating a Custom Recordset
6.	Creating a Disconnected Recordset
7.	Filling a Combo Box with a Disconnected Recordset
8.	The Supports Method of the Recordset Object
9.	Using the EOF Property to Determine the Bounds of a Recordset
10.	A Recordset That Does Not Support the RecordCount Property
11.	A Recordset That Supports the RecordCount Property
12.	Whether Records Are Returned in a Recordset
13.	The Sort Property of the Recordset Object
14.	Using the Bookmark Property
15.	Refreshing Recordset Data
16.	Assigning Recordsets Dynamically to a form
17.	Set recordset to form
18.	Row order in Dynamic Recordset
19.	Dynamic Recordset
20.	Snapshot Recordset
21.	Set Index and seek the recordset

Using the AbsolutePosition Property : Recordset « Access « VBA / Excel / Access / Word

Related examples in the same category