عدم حفظ التغييرات فى النموذج الفرعى عند الضغط على لا

[safari]

السلام عليكم ورحمة الله

يوجد نموذج رئيسي و نموذج فرعى 

اريد عند اجراء اى تعديلات على السجلات فى النموذج الفرعى لا يتم حفظها الا عند اختيار نعم 

و في حالة اختيار لا يتم تجاهل التعديلات الجديدة و استرجاع السجلات و الحقول كما كانت قبل اجراء التعديلات 

كيف يتم ذلك ؟

[ابو جودي]

ممكن مرفق 

[AlwaZeeR]

الطريقة الاولى: اضف الكود التالي الى النموذج الفرعي:
 

Private Sub Form_BeforeUpdate(Cancel As Integer)
    Dim Response As Integer
    Response = MsgBox("هل تريد الحفظ?", vbYesNo + vbQuestion, "تاكيد الحفظ")
    If Response = vbNo Then
        Me.Undo
        Cancel = True
    End If
End Sub

Private Sub Form_AfterUpdate()
    MsgBox "تم الحفظ بنجاح", vbInformation, "تاكيد الحفظ"
End Sub

الطريقة الثانية: ايضا في النموذج الفرعي:
قم باضافة زر امر حفظ وزر امر الغاء الحفظ
ثم ضع هذا الكود في حدث الزرين

 

Private Sub btnSave_Click()
    On Error GoTo Err_Handler
    Me.Dirty = False
    MsgBox "تم الحفظ بنجاح", vbInformation, "تاكيد الحفظ"
    Exit Sub

Err_Handler:
    MsgBox "خطأ في حفظ السجل", vbExclamation, "خطأ"
End Sub

Private Sub btnCancel_Click()
    If Me.Dirty Then
        Me.Undo
        MsgBox "تم تجاهل التغييرات التي حدثت", vbInformation, "التراجع عن الحفظ"
    End If
End Sub