I am getting errors when I use the FindNext method of a recordsetclone object (see code snippet).
What's puzzling is:
- If I step through the code after FindNext causes an error, I find that the FindFirst statement works fine.
- If I step through the code after FindNext causes an error, and change the Criteria, I can get it to work without error.
- This problem is intermittent.
- I've tried reconstructing the database by importing all database object into a new mdb file, and the problem is still there.
I know this isn't much to go on, but can anyone suggest what the problem might be?
Dim rs As DAO.Recordset
Dim CMC As Variant
Set rs = Me.RecordsetClone
If rs.EOF Then
CMC = Null
CMC = False
rs.Bookmark = Me.Bookmark 'Synchronize
If rs.BOF Then
If Not rs.NoMatch Then
If StrComp(rs.Bookmark, Me.Bookmark, vbBinaryCompare) = 0 Then CMC = True