تعديل كود البحث عن سجل

[ماجدجلال]

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

ارجو منكم التعديل علي الكود التالي

Private Sub 14_Click()
    Dim A As String
    Dim rs As Object
    A = InputBox("ادخل رقم العقد المراد البحث عنة ")
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[NOCO] = '" & A & "'"
    If Not rs.EOF Then
    Me.Bookmark = rs.Bookmark
    Else
    MsgBox (" هذا السجل غير موجود حاليا قم باضافة الي جدول العقود ")
    End If
End Sub

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

[أمجد جمالي]

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

ارفق المثال لحتى ساعدك

وتقبل تحياتي

[rudwan]

عدل هكذا

Private Sub Command6_Click()

    Dim A As String
    Dim rs As Object
    A = InputBox("ادخل رقم العقد المراد البحث عنة ")
    Set rs = Me.Recordset.Clone
  If Not IsNull(DLookup("NOCO", "table1", "[NOCO] = '" & A & "'")) Then
  
   rs.FindFirst "[NOCO] = '" & A & "'"
   
    Me.Bookmark = rs.Bookmark
    Else
    MsgBox (" هذا السجل غير موجود حاليا قم باضافة الي جدول العقود ")
    End If
End Sub

[ماجدجلال]

شكرا لكم استاذتي الكرام .

سوف الكود بعد التعديل واوفيكم بالنتيجة ,,

[ماجدجلال]

ممتاز استاذ رضوان

الكود يعمل ويودي المطلوب منة

جزاك الله عني كل خير وزادك من علمة وفضلة امين