سوال از کاربر قبل ذخیره سازی

در یکی از بخش های کاربردی از آموزش اکسس ، اینبار می خواهم تا شما را با یک قطعه کد آشنا کنم که از طریق آن عمل سوال از کاربر قبل ذخیره سازی را میتوان پیاده سازی نمود. در واقع این کد اختیار ذخیره سازی یا انصراف را به کاربر خواهد داد تا بتواند داده های وارد شده در فیلدها را ملغی کند.

نکته قابل توجه اینجاست که باید بجای عبارت FieldName در کدها نام آخرین فیلد جدول خودتون رو وارد کنید تا با یک پیام سوال از کاربر برای ذخیره سازی اطلاعات پرسیده بشود.

On Error GoTo Err_BeforeUpdate
 If Me.Dirty Then
       If MsgBox("؟ آیا قصد ذخیره اطلاعات وارده را دارید ", vbMsgBoxRight + vbYesNo + _
      vbQuestion, "توجه") = vbNo Then
         Me.Undo
      End If
   End If
 
Exit_BeforeUpdate:
   Exit Sub
 
Err_BeforeUpdate:
   MsgBox Err.Number & " " & Err.Description
   Resume Exit_BeforeUpdate

با اعمال برخی تغییرات مانند ، پیام فارسی یا اضافه نمودن برخی دستورات جدید یا تغییر رویداد Event می توان بجای سوال از کاربر قبل ذخیره کردن ؛ عمل دیگری را انجام داد. بطور مثال این امکان وجود دارد تا قبل از خروج کاربر از فرم سوالی بر اطمینان از خروج از فرم پرسیده شود.