CodeItBetter Programming Another VB Programming Blog

'Database - How to set and retrieve book marks in DAO.
Sub Bookmark()
    ' This procedure sets a bookmark on the current record,
    ' performs a seek operation, and returns to the original
    ' record when the seek fails.

    Dim dbs As Database, rst As Recordset
    Dim varOrigin As Variant
    Dim strPath As String
 
    'strPath is the path to the database
    Set dbs = OpenDatabase(strPath)
    ' Open table-type recordset.
    Set rst = dbs.OpenRecordset("Employees", dbOpenTable)
    With rst
        ' Set recordset index.
        .Index = "EmployeeName"
        MsgBox "Current Record: EmployeeName = " & !EmployeeName
        ' Return bookmark.
        varOrigin = .Bookmark
        ' Perform seek.
        .Seek "=", "Smith"
        ' Check for match.
        If .NoMatch Then
            Call MsgBox("Can't find employee ""Smith""", vbInformation, "There is no current record!")
            ' Set bookmark to original value to return to previous record.
            .Bookmark = varOrigin
        End If
        MsgBox "Current Record: EmployeeName = " & !EmployeeName
        .Close
    End With
    dbs.Close
    Set dbs = Nothing
End Sub