Display a Custom Dialog Box When the User Deletes a Record
When you select a record on a form and delete it, Access displays a dialog box asking the user to confirm the deletion of the record. If you want, you can prevent this dialog box from appearing in two ways. You can cancel the BeforeDelConfirm event, in which case the deletion is canceled. Or you can set the Response argument of the BeforeDelConfirm event procedure to acDataErrContinue, in which case the deletion is confirmed.
You can use a BeforeDelConfirm event procedure to display a custom dialog box and handle users' responses. The following example demonstrates how to use a custom dialog box to ask users whether they want to cancel or proceed with the record deletion.
Private Sub Form_BeforeDelConfirm(Cancel As Integer, Response As Integer) Dim strMessage As String Dim intResponse As Integer On Error GoTo ErrorHandler ' Display the custom dialog box. strMessage = "Would you like to delete the current record?" intResponse = MsgBox(strMessage, vbYesNo + vbQuestion, _ "Continue delete?") ' Check the response. If intResponse = vbYes Then Response = acDataErrContinue Else Cancel = True End If Exit Sub ErrorHandler: MsgBox "Error #: " &; Err.Number &; vbCrLf &; vbCrLf &; Err.Description End Sub