Me.Bookmark = Me.RecordsetClone.Bookmark

[zevw]

I cannot explain this, on 1 machine this code works fine. On my second machine, it just closes Access as soon as hits this line "Me.Bookmark = Me.RecordsetClone.Bookmark"

What can I do about it?

Private Sub FindPhone_AfterUpdate()

    If Not IsNull(Me.FindPhone) And Me.FindPhone <> "" Then
        Me.FindName = ""
        Me.FindCode = ""
        Me.FindContact = ""
        Me.RecordsetClone.FindFirst "[CustId] = " & Me![FindPhone]
        Me.Bookmark = Me.RecordsetClone.Bookmark
    Else
        DoCmd.ShowAllRecords
    End If

End Sub

Thanks in advance for your help!!

 

[Zion7]

I have no idea zevw, besdides maybe a reference issue?
If that particular machine does not support
a certain version of DAO?
Did you check references for missing libraries?


BTW, this

If Not IsNull(Me.FindPhone) And Me.FindPhone <> "" Then

can be condensed to

If Me.FindPhone & "" <> "" Then

...good luck either way!