تأكــــــيد الخروج
If MsgBox("هل أنت متأكد من الخروج ", vbYesNo, "رسالة تأكيد ") = vbYes Then
DoCmd.Quit
End If
'وإذا ما نفع
a = MsgBox("هل تريد الخروج من البرنامج ؟", vbYesNo, "رسالة تأكيد")
If a = vbYes Then DoCmd.Quit
تأكـــــيد الحذف
نفس الكوود السابق ولك بتغير العبارة docmd.quit الى
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70