Private Sub cmdSearch_Click()
Dim strSearch As String
Dim rs As Object
Set rs = Me.RecordsetClone
If IsNull(Me![txtSearch]) Or (Me![txtSearch]) = "" Then
MsgBox "رجاء ادخل اسم للبحث عنه", vbOKOnly, "خطأ في البحث"
Me![txtSearch].SetFocus
Exit Sub
End If
strSearch = Me![txtSearch]
With rs
' .FindNext "[EmpName] = '" & strSearch & "'"
.FindNext "[EmpName] like '*" & strSearch & "*'"
If Not .EmpName Like "*" & strSearch & "*" Then
' If .EmpName <> strSearch Then
MsgBox "لا يوجد سجل بهذا الإسم : " & strSearch, , "غير موجود"
Me.txtSearch = ""
Me![txtSearch].SetFocus
ElseIf .NoMatch Then
MsgBox "آخر سجل في البحث عن : " & strSearch, , "آخر سجل"
Me.cmdSearch.Caption = "بحث"
Me.txtSearch = ""
Me![txtSearch].SetFocus
Me.cmdSearch.ForeColor = RGB(0, 0, 255)
DoCmd.GoToRecord , , acFirst
Else
Me.Bookmark = .Bookmark
MsgBox "تم ايجاد اسم : " & strSearch, , "مبروك"
Me.cmdSearch.Caption = "اكمال البحث"
Me.cmdSearch.ForeColor = RGB(255, 0, 0)
End If
End With
rs.Close
Set rs = Nothing
End Sub
تفضل اخي الكريم
هذا التعديل على نفس الكود. واليك الملف بعد التعديل
وافينا بالنتيجة
تحياتي
za-EmployyeUP.accdb