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






Using the Bookmark Property

 
Sub UseBookmark()
    Dim strSQL As String
    Dim vntPosition As Variant

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

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

    vntPosition = rst.Bookmark

    Do Until rst.EOF
        Debug.Print rst("ProductID")
        rst.MoveNext
    Loop

    rst.Bookmark = vntPosition
    Debug.Print rst("ProductID")

    rst.Close
    Set rst = Nothing


End Sub

 








Related examples in the same category

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 AbsolutePosition 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