السلام عليكم ورحمة الله وبركاته
اخواني الكرام وجدت في احد المشاركات طريقه للبحث وجهتني مشكله اريد التعديل عليها بحيث عند الضغط على زر البحث يظهر البيانات في حالة عدم وجودها يظهر رساله بعدم الوجود ويمكنني البحث اكثر من مره عن سجلات بدون العوده للسجلات الاولى او الاخيره
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 "[Number] = '" & strSearch & "'"
If .Number <> 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