آموزش Excel

[مهندس بیاتسرپرست]

مهندس بیات

چگونه قبل از دخیره سازی اطلاعات از کاربر تأئید بگیریم؟

تأئید ذخیره اطلاعات :  با استفاده از کد زیر که بایستی آن را در رویداد Before Update آخرین فیلد قرار دهیم تا توسط یک سوال که از کاربر پرسیده می شود بتوان اطلاعات یک رکورد را دخیره کرد یا منصرف شد.

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

---

Visual Basic

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

1 2 3 4 5 6 7 8 9 10 11 12 13 14

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

---

برای دانلود فایل نمونه این آموزش اینجا کلیک کنید