PRB: Comparing Bookmarks Generates Type Mismatch Error (129933)

SYMPTOMS

If you attempt to use the Bookmark property in a compare operation with another bookmark, you receive the following error if the bookmarks are not first stored in string variables:

Run-time error 13 - Type Mismatch

RESOLUTION

Before accessing the Bookmark property, copy the bookmark values to string variables, and make all comparisons using the string variables. The following code compares two bookmarks correctly.

Step-by-Step Example

Start a new project in Visual Basic. Form1 is created by default.

In the click event for Form1, place the following code:

   Private Sub Form_Click()
      Dim Db As Database
      Dim Rs As Recordset
      Dim Cs As Recordset
      Dim sBook1 as String
      Dim sBook2 as String

      Set Db = DBEngine.Workspaces(0).OpenDatabase("biblio.mdb")
      Set Rs = Db.OpenRecordset("authors", dbOpenDynaset)
      Set Cs = Rs.Clone()

      sBook1 = Rs.Bookmark
      sBook2 = Cs.Bookmark

      If sBook1 = sBook2 Then
         MsgBox "Match"
      Else
         MsgBox "No Match"
      End If
   End Sub

Run the program by pressing the F5 key.

MORE INFORMATION

Steps to Reproduce Problem

Use the above example, but replace the code in the Form_Click procedure with this code:

   Private Sub Form_Click()
      Dim Db As Database
      Dim Rs As Recordset
      Dim Cs As Recordset

      Set Db = DBEngine.Workspaces(0).OpenDatabase("biblio.mdb")
      Set Rs = Db.OpenRecordset("authors", dbOpenDynaset)
      Set Cs = Rs.Clone()

      If Rs.Bookmark = Cs.Bookmark Then  'Error 13 - Type Mismatch
         MsgBox "Match"
      else
         MsgBox "No Match"
      End If
   End Sub