المساعدة في عملية عدم الحفظ

[waheidi]

الزملاء الاكارم ارجو المساعدة فيما يلي :

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

وعند احداث تغيير ولو بسيط ككتابة اسم الطالب مثلا والخروج بدون اكمال باقي البيانات ان يظهر رسالة يسال فيها ( هل تود الحفظ ) واذا كانت الاجابة لا لا يحفظ شيئا

 

اما عند اكمال باقي البيانات والضغط على حفظ يقوم بتخزين البيانات

 

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

مثال.rar

[محمد أبوعبدالله]

ضع الكود في حدث قبل التغيير

Private Sub Form_BeforeUpdate(Cancel As Integer)
        If MsgBox("هل تريد حفظ التغيرات الجديدة", vbOKCancel) = vbCancel Then
                Me.Undo
                DoCmd.CancelEvent
            Else
        End If
End Sub

3مثال.rar

تحياتي

[waheidi]

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

[محمد أبوعبدالله]

45 دقائق مضت, waheidi said:

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

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

تحياتي