كتابة سجل غير موجود فى مربع التحرير والسرد

[محمد احمد لطفى]

السلام عليكم ورحمة الله و بركاته
عند البحث عن سجل غير موجود يظهر سجل بشكل عشوائى 
اريد عند البحث عن سجل غير موجود تاتى رسالة هذا السجل غير موجود ولا يذهب الى اى سجل 


وجزاكم الله خيرا

test622.mdb

[محمد احمد لطفى]

اسف فى هذا النموذج

test622.mdb

[ابوخليل]

وعليكم السلام

ايضا مثالك الثاني ناقص

على كل حال ما تريده واضح  انظر التعديل على  الكود .. ويمكنك في آخر الكود اضافة سطر  لتوجيه مكان المؤشر ان اردت

Private Sub search_AfterUpdate()
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[numx] = " & Str(Nz(Me![search], 0))
    If Not rs.EOF Then
    MsgBox "لا يوجد سجل مطابق"
      Exit Sub
   End If
End Sub

اقصد بتوجيه مكان المؤشر ,, اي ان كنت تريد المؤشر يبقى في خانة البحث او تريده ينتقل الى حقل آخر

[محمد احمد لطفى]

3 ساعات مضت, ابوخليل said:

وعليكم السلام

ايضا مثالك الثاني ناقص

على كل حال ما تريده واضح  انظر التعديل على  الكود .. ويمكنك في آخر الكود اضافة سطر  لتوجيه مكان المؤشر ان اردت

Private Sub search_AfterUpdate()
Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[numx] = " & Str(Nz(Me![search], 0))
    If Not rs.EOF Then
    MsgBox "لا يوجد سجل مطابق"
      Exit Sub
   End If
End Sub

اقصد بتوجيه مكان المؤشر ,, اي ان كنت تريد المؤشر يبقى في خانة البحث او تريده ينتقل الى حقل آخر

جزاك الله خيرا استاذى ابو خليل ليست لى خبرة جيدة بالاكسيس و البرمجة و لكن تعلمت من حضرتكم الكثير 

[محمد احمد لطفى]

 استاذى ابو خليل الرسالة 

    MsgBox "لا يوجد سجل مطابق"

تاتى سواء السجل مطابق أو لا يطابق

عند كتابة سجل غير موجود يذهب الى سجل اخر اريده ان لا يذهي الى سجل اخر

 

[ابوخليل]

اعتذر عن التأخر اخي محمد

تفضل

     Dim rs As Object
    Set rs = Me.Recordset.Clone
    rs.FindFirst "[numx] = " & Str(Nz(Me![txtSearch], 0))
    If rs.NoMatch Then
   MsgBox "لا يوجد سجل"
          txtSearch = ""
       Else
    Me.Bookmark = rs.Bookmark
   End If

 

test7.mdb

[محمد احمد لطفى]

أستاذى ابو خليل لى استفسار هل هذا الكود يعمل على النص و الارقام

    rs.FindFirst "[numx] = " & Str(Nz(Me![txtSearch], 0))

 

[ابوخليل]

العبرة في نوع  الحقل  الذي يتم البحث فيه ، فالكود اعلاه يبحث في الحقل الرقمي

ولو تم تغيير نوع الحقل numx الى نصي سيصبح الكود على هذا النحو

rs.FindFirst "[numx] = '" & Me![txtSearch] & "'"