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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de