Marking Records with a Bookmark : Recordset Bookmark « Access « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Access
3. Recordset Bookmark

Marking Records with a Bookmark

 
Sub TestBookmark()
   Dim rst As ADODB.Recordset
   Dim varMyBkmrk As Variant

   Set rst = New ADODB.Recordset
   rst.Open "Employees", CurrentProject.Connection, adOpenKeyset

   If Not rst.Supports(adBookmark) Then
      MsgBox "This recordset does not support bookmarks!"
      Exit Sub
   End If

   varMyBkmrk = rst.Bookmark
   Debug.Print rst.Fields(1).Value
   rst.AbsolutePosition = 7
   Debug.Print rst.Fields(1).Value

   rst.Bookmark = varMyBkmrk
   Debug.Print rst.Fields(1).Value
   rst.Close
   Set rst = Nothing
End Sub

 

Related examples in the same category