اعمال کنترل برای قبول و یا رد تغییرات بر روی داده ها در فرم

در بسیاری از موارد ممکن است به صورت سهوی در هنگام مرور اطلاعات موجود تغییراتی ناخواسته اعمال شود

بدین منظور اعمال کد زیر میتواند گره گشا باشد

Private Sub Form_BeforeUpdate(Cancel As Integer)
If Me.Dirty = True Then    If MsgBox("اطلاعات تغییر کرده آیا تغییرات ذخیره گردد ", vbYesNo + vbQuestion, "ذخیره سازی اطلاعات ") = vbNo Then
    Me.Undo
    End If
End If
End Sub