Mostrar un cuadro de diálogo personalizado cuando el usuario elimina un registro

Cuando se selecciona un registro de un formulario y se elimina, Access muestra un cuadro de diálogo para pedir al usuario que confirme la eliminación del registro. Si lo desea, puede impedir que aparezca este cuadro de diálogo de dos maneras. Puede cancelar el evento BeforeDelConfirm, en cuyo caso la eliminación se cancela. O puede establecer el argumento Response del procedimiento de evento BeforeDelConfirm en acDataErrContinue, en cuyo caso la eliminación se confirma.

Use un procedimiento de evento BeforeDelConfirm para mostrar un cuadro de diálogo personalizado y controlar las respuestas de los usuarios. En el ejemplo siguiente se muestra cómo utilizar un cuadro de diálogo personalizado para preguntar a los usuarios si desean cancelar o seguir adelante con la eliminación del registro.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.