تعديل كود بحث

[عبدالرزاق الحريبي]

السلام عليكم ورحمة الله وبركاته 

اخواني الكرام وجدت في احد المشاركات طريقه للبحث وجهتني مشكله اريد التعديل عليها بحيث عند الضغط على زر البحث يظهر البيانات في حالة عدم وجودها يظهر رساله بعدم الوجود  ويمكنني البحث اكثر من مره عن سجلات بدون العوده للسجلات الاولى او الاخيره

 

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

تم تعديل أبريل 24, 2015 بواسطه عبدالرزاق الحريبي

[ابو جودي]

اضف مرفق للقاعده لو تكرمت

[عبدالرزاق الحريبي]

اشكرك اخي الكريم تم حل المشكله بوضع هذا الكود بالبدايه 

rs.MoveFirst