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

[jamal2080]

هذا الكود هو الوحدة النمطية فى انتقال السجلات زار الامر الاول والنهاية والتالى والسابق وهذا جراء من امر السابق

 

Function prevRcd(Frm)
    On Error Resume Next
    If Frm.Dirty Then
        MsgBox "تم تغيير محتويات النافذة، يرجى حفظ التغييرات أو التراجع عنها.", vbCritical, "تذكير"
    Else
        On Error GoTo ErrHandler
        DoCmd.DoMenuItem acFormBar, acEditMenu, 2, , acMenuVer70 ' انتقل إلى السجل السابق
    End If
    Exit Function
ErrHandler:
    If Err.Number = 2105 Then
        MsgBox "لا يمكن الذهاب إلى السجل المطلوب", vbCritical + vbMsgBoxRight, "خطأ"
    End If
End Function

ويتم استدعاء الكود فى زار الامر السابق

Call NavigationModule.prevRcd(Me)

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

 

[jjafferr]

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

 

في موضوعك السابق ، اشرت لك على الرابك الذي به الاوامر الصحيحة :

 

 

وبما انك مُصر على استعمال الكود الذي لديك ، اليك المشكلة :

الاكسس يحفظ السجلات تلقائيا عند خروجك من السجل ،

وانت تقول له برمجيا اذا كان هناك اي شيء في السجل تم تغييره (If Frm.Dirty Then) ، فاعطني الرسالة اعلاه