درخواست تاییدیه از کاربر هنگام خروج از برنامه اکسس

[مهدی د]

در رویداد Unload فرم اصلی برنامه (سوئیچ برد) کد زیر را قرار دهید:


Private Sub Form_Unload(Cancel As Integer)
On Error Resume Next
If vbNo = MsgBox("آيا قصد خارج شدن از برنامه را داريد؟", vbYesNo + vbQuestion + vbDefaultButton1, "خروج") Then
Cancel = True
Else
DoCmd.Quit
End If
End Sub

و در دکمه خروج از برنامه نیز کد زیر را قرار دهید:

DoCmd.Quit

در این روش اگر کاربر به هر طریقی (مثلا با کلیک راست کردن روی فرم و انتخاب کزینه خروج ، بستن پنچره اکسس ، استفاده از کلیدهای میانبر و ... ) بخواهد از برنامه خارج شود کد فعال خواهد شد.