Share via


Recordset.Bookmark Property

Access Developer Reference

Sets or returns a bookmark that uniquely identifies the current record in a Recordset object.

Syntax

expression.Bookmark

expression   A variable that represents a Recordset object.

Remarks

For a Recordset object based entirely on Microsoft Access database engine tables, the value of the Bookmarkable property is True, and you can use the Bookmark property with that Recordset. Other database products may not support bookmarks, however. For example, you can't use bookmarks in any Recordset object based on a linked Paradox table that has no primary key.

When you create or open a Recordset object, each of its records already has a unique bookmark. You can save the bookmark for the current record by assigning the value of the Bookmark property to a variable. To quickly return to that record at any time after moving to a different record, set the Recordset object's Bookmark property to the value of that variable.

There is no limit to the number of bookmarks you can establish. To create a bookmark for a record other than the current record, move to the desired record and assign the value of the Bookmark property to a String variable that identifies the record.

To make sure the Recordset object supports bookmarks, check the value of its Bookmarkable property before you use the Bookmark property. If the Bookmarkable property is False, the Recordset object doesn't support bookmarks, and using the Bookmark property results in a trappable error.

If you use the Clone method to create a copy of a Recordset object, the Bookmark property settings for the original and the duplicate Recordset objects are identical and can be used interchangeably. However, you can't use bookmarks from different Recordset objects interchangeably, even if they were created by using the same object or the same SQL statement.

If you set the Bookmark property to a value that represents a deleted record, a trappable error occurs.

The value of the Bookmark property isn't the same as a record number.

Example

This example uses the Bookmark and Bookmarkable properties to let the user flag a record in a Recordset and return to it later.

Visual Basic for Applications
  Sub BookmarkX()

Dim dbsNorthwind As Database Dim rstCategories As Recordset Dim strMessage As String Dim intCommand As Integer Dim varBookmark As Variant

Set dbsNorthwind = OpenDatabase("Northwind.mdb") Set rstCategories = _ dbsNorthwind.OpenRecordset("Categories", _ dbOpenSnapshot)

With rstCategories

  If .Bookmarkable = False Then
     Debug.Print "Recordset is not Bookmarkable!"
  Else
     ' Populate Recordset.
     .MoveLast
     .MoveFirst

     Do While True
        ' Show information about current record and get 
        ' user input.
        strMessage = "Category: " & !CategoryName & _
           " (record " & (.AbsolutePosition + 1) & _
           " of " & .RecordCount & ")" & vbCr & _
           "Enter command:" & vbCr & _
           "[1 - next / 2 - previous /" & vbCr & _
           "3 - set bookmark / 4 - go to bookmark]"
        intCommand = Val(InputBox(strMessage))

        Select Case intCommand
           ' Move forward or backward, trapping for BOF 
           ' or EOF.
           Case 1
              .MoveNext
              If .EOF Then .MoveLast
           Case 2
              .MovePrevious
              If .BOF Then .MoveFirst

           ' Store the bookmark of the current record.
           Case 3
              varBookmark = .<strong class="bterm">Bookmark</strong>

           ' Go to the record indicated by the stored 
           ' bookmark.
           Case 4
              If IsEmpty(varBookmark) Then
                 MsgBox "No Bookmark set!"
              Else
                 .<strong class="bterm">Bookmark</strong> = varBookmark
              End If

           Case Else
              Exit Do
        End Select

     Loop

  End If

  .Close

End With

dbsNorthwind.Close

End Sub

This example uses the LastModified property to move the current record pointer to both a record that has been modified and a newly created record.

Visual Basic for Applications
  Sub LastModifiedX()

Dim dbsNorthwind As Database Dim rstEmployees As Recordset Dim strFirst As String Dim strLast As String

Set dbsNorthwind = OpenDatabase("Northwind.mdb") Set rstEmployees = _ dbsNorthwind.OpenRecordset("Employees", _ dbOpenDynaset)

With rstEmployees ' Store current data. strFirst = !FirstName strLast = !LastName ' Change data in current record. .Edit !FirstName = "Julie" !LastName = "Warren" .Update ' Move current record pointer to the most recently ' changed or added record. .Bookmark = .LastModified Debug.Print _ "Data in LastModified record after Edit: " & _ !FirstName & " " & !LastName

  ' Restore original data because this is a demonstration.
  .Edit
  !FirstName = strFirst
  !LastName = strLast
  .Update

  ' Add new record.
  .AddNew
  !FirstName = "Roger"
  !LastName = "Harui"
  .Update
  ' Move current record pointer to the most recently 
  ' changed or added record.
  .<strong class="bterm">Bookmark</strong> = .LastModified
  Debug.Print _
     "Data in LastModified record after AddNew: " &amp; _
     !FirstName &amp; " " &amp; !LastName

  ' Delete new record because this is a demonstration.
  .Delete
  .Close

End With

dbsNorthwind.Close

End Sub

See Also