حذف پیغام حذف رکورد

[Abbas Amiri]

سلام
ازکد زیر استفاده کنید

Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer)

    If MsgBox("Delete Error message", vbCritical + vbYesNo) = vbNo Then

        Cancel = True

    End If

    Response = acDataErrContinue

End Sub