تأكــــــيد الخروج 
 
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