اريد التخلص من هذه الرسالة المزعجة

[tiger wanted]

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

[سامي الحداد]

Private Sub Command38_Click()
 Me.Dirty = False
 DoCmd.GoToRecord record:=acNext
End Sub

ضع هذا الكود في زر التالي 

غير السطر الثاني من الكود بالنسبة للازرار الباقية مثلا السابق او سجل جديد الخ.

بالتوفيق

تم تعديل نوفمبر 25, 2022 بواسطه سامي الحداد
لم يتم تجربة الكود السابق

[سامي الحداد]

اسف لم اجرب الكود السابق فقد كتبته على عجالة 

اليك التعديل على الكود 

Private Sub Command38_Click()
If Me.CurrentRecord = Me.RecordsetClone.RecordCount Then Exit Sub
DoCmd.GoToRecord acDataForm, Me.Name, acNext

End Sub

Private Sub Command39_Click()
If Me.CurrentRecord = 1 Then Exit Sub
DoCmd.GoToRecord acDataForm, Me.Name, acPrevious


End Sub

 

[ابو جودي]

طيب استخدم الاكواد الاتية 

زر أمر التالى 

  With Recordset
    If .AbsolutePosition = .RecordCount - 1 Then
      MsgBox "Sorry, this is the last  Record.  To create a new Record one click the Add New Record button.", vbInformation
      Exit Sub
    Else
      DoCmd.GoToRecord , , acNext
    End If
  End With

زر أمر السابق 

  With Recordset
    If .AbsolutePosition = 0 Then
      MsgBox "Sorry, this is the First Record", vbInformation
      Exit Sub
    Else
      DoCmd.GoToRecord , , acPrevious
    End If
  End With

 

وبكده تنتهى مشكلة الرسالة المزعجة 

احنا ما يرضينا زعلك

[abouelhassan]

1 ساعه مضت, ابو جودي said:

طيب استخدم الاكواد الاتية 

زر أمر التالى 

  With Recordset
    If .AbsolutePosition = .RecordCount - 1 Then
      MsgBox "Sorry, this is the last  Record.  To create a new Record one click the Add New Record button.", vbInformation
      Exit Sub
    Else
      DoCmd.GoToRecord , , acNext
    End If
  End With

زر أمر السابق 

  With Recordset
    If .AbsolutePosition = 0 Then
      MsgBox "Sorry, this is the First Record", vbInformation
      Exit Sub
    Else
      DoCmd.GoToRecord , , acPrevious
    End If
  End With

 

وبكده تنتهى مشكلة الرسالة المزعجة 

احنا ما يرضينا زعلك

حمد لله على السلامه يا استاذ ابو جودى حضرتك وحشتنا.بارك الله فيك اخي الكريم 

 

[متقاعد]

15 ساعات مضت, ابو جودي said:

وبكده تنتهى مشكلة الرسالة المزعجة 

متميز ياعم محمد

تم تعديل نوفمبر 26, 2022 بواسطه مبرمج متقاعد

[tiger wanted]

شكرا على اهتمامكم سوف اقوم بالتجربة واوافيكم بالنتيجة جزاكم الله عنا خيرا 

[tiger wanted]

ملحوظة الكود المستخدم  هو if keycode = 40 then

docmd.gotorecord,,accnext 

ولم ينفع الحل معه فى انتظار اجابتكم 

[أبو إبراهيم الغامدي]

أهلا بك..

لم تذكر الصيغة التي استخدمتها للتنقل بين السجلات! وفي الغالب أنك استخدمت الصيغة التقليدية..

كل ما يلزمك إضافة متصيد الأخطاء في السطر الأول من الإجراء، بهذه الطريقة..

On Error Resume Next
Docmd.GoToRecord,, acNext

أو استخدم الإجراء الموجود في المثال المرفق في جميع النماذج إن أردت

Simple Navgation Buttoms .accdb

[tiger wanted]

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