هلا اخي تفضل هذا ممكن يفيدك خيو
Private Sub أمر52_Click()
Dim rs As Object
Set rs = Me.Recordset.Clone
rs.FindFirst "[InvoiceNum] = '" & Me![text50] & "'"
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
ضيف هذا الكود بعده
If Me.RecordsetClone.RecordCount = 0 Then
MsgBox "لايوجد شخص بهذا الاسم "
Me.FilterOn = False
End If
End Sub