الاكسس يحفظ البيانات تلقائيا

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

إليك هذا الكود أخي الفاضل :-

الهدف منه :- لإضهار رسالة تحذير عند تعديل أي بيانات في النموذج ، مع تأكيد حفظ التعديل .

أين يكتب :- في خصائص ( النموذج ) حدث " قبل التحديث "

كيفية كتابته :-

If MsgBox(" تحذير.. تحذير...لقد قمت بإجراء تعديلات على البيانات هل ترغب في حفظ هذه التعديلات ؟؟ ", vbYesNo, _

" إحذر..إحذر...إحذر..رسالة تأكيد تعديل بيانات") = vbNo Then

Cancel = True

SendKeys "{ESC}"

Exit Sub

End If

ملاحظة :- قد يظهر الكود بشكل غير مرتب ( من اليمين لليسار ) والصحيح ( من اليسار لليمين )

وأي مساعدة أنا جاهز في حدود ماأستطيع