کلید حذف رکورد را در فرم مورد نظر طراحی کنید و کد زیر را در رویداد On Click کلیدتان کپی کنید بعد از آن هر بار که کلید حذف را برای رکورد انتخاب کنید برنامه از شما برای حذف آن رکورد اجازه میخواهد و میتوانید از حذف رکورد انصراف دهید On Error GoTo Err_DelRec_Click
i = MsgBoxFa("رکورد جاری حذف میشود آیا اطمینان دارید ؟", vbYesNo, "پیام سیستم")
If i = 6 Then
DoCmd.SetWarnings (warningoff)
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
MsgBoxFa "رکورد انتخاب شده حذف شده", vbOKOnly, "پیام سیستم"
'DoCmd.SetWarnings (warningon)
Exit_DelRecord_Click:
Exit Sub
Err_DelRec_Click:
MsgBox Err.Description
پاسخ با نقل قول
