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

Home
VBA / Excel / Access / Word
1.Access
2.Application
3.Data Type
4.Data Type Functions
5.Date Functions
6.Excel
7.File Path
8.Forms
9.Language Basics
10.Math Functions
11.Outlook
12.PowerPoint
13.String Functions
14.Windows API
15.Word
16.XML
VBA / Excel / Access / Word » Access » 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(adBookmarkThen
      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
1.Does it support bookmark
2.Save Bookmark to an array
3.Using Bookmarks to Filter Records
4.declares a Variant variable named myBookmark and then assigns to it a bookmark representing the current record in an ADO recordset:
java2s.com  | Contact Us | Privacy Policy
Copyright 2009 - 12 Demo Source and Support. All rights reserved.
All other trademarks are property of their respective owners.