حذف رکورد ( خیلی مهم )

[iransim]

با سلام
چطور میتونم با کلیک به روی دکمه حذف قبل از حذف رکورد پیام تائید حذف را ببینم و در صورت تائید رکورد حذف شود؟
ممنون

[انگوران]

با کد زیر

On Error GoTo Err_Command22_Click
DoCmd.SetWarnings False
If MsgBox("پیغام دلخواه", vbQuestion + vbMsgBoxRight + vbYesNo, "توجه") = vbNo Then
Undo
Else
DoCmd.DoMenuItem acFormBar, acEditMenu, 8, , acMenuVer70
DoCmd.DoMenuItem acFormBar, acEditMenu, 6, , acMenuVer70
End If
DoCmd.SetWarnings True
Exit_Command22_Click:
Exit Sub

Err_Command22_Click:
MsgBox err.Description
Resume Exit_Command22_Click