Hi, I can't seem to make bookmarks work. I set up a recordset rs and a clone rsclone. I do a findfirst and then add a record if nomatch. then I need to requery I want the new record to be displayed on the form. I've tried setting a strbookmark string, then what seems like every concievable combination of strbookmark,rs.bookmark,rsclone.bookmark,and rs.lastmodified with = sings mixed in and the result is allways the same which is that the form adds it's record then goes to the first record.
Any help would be appreaciated.
Thanks
Raif

After adding the new record via the AddEntry procedure below, assign the recordsets LastModified property value to the recordsets Bookmark property. This will make you new record the currently displayed record.

Private Sub txtCriteria_AfterUpdate()
    Dim rst As DAO.Recordset
    Dim strCriteria As String

    strCriteria = "[ID] = " & Me![txtCriteria]

    Set rst = Me.RecordsetClone
    rst.FindFirst strCriteria
    If rst.NoMatch Then
        MsgBox "No entry found. The record will be added.", vbInformation
        Call AddEntry(rst, Me![txtCriteria])
    Else
        Me.Bookmark = rst.Bookmark
    End If

    Set rst = Nothing
End Sub

Sub AddEntry(rstTemp As Recordset, newEntry As String)

    ' Adds a new record and set the recordsets Bookmark
    ' at the LastModified record.
    With rstTemp
        .AddNew
        !TestData = newEntry
        .Update
        .Bookmark = .LastModified
    End With
End Sub

HTH,

Bob