Error al cancelar la introducción de un parámetro en una consulta
Tengo, en un formulario, un botón para que me abra un informe, en el que previamente le pido que me introduzca un valor, como se puede ver en la pantalla. Pero cuando cancelo la introducción, me salta un error. ¿Cómo puedo, con VBA, evitar que me salte ese fallo?
2 respuestas
En el evento al Hacer clic del botón pon
On Error GoTo Comando25_Click_Err
DoCmd.OpenReport "Borrar", acViewpreview, "", "[ciudad] Like [escribe una]"
Comando25_Click_Exit:
Exit Sub
Comando25_Click_Err:
MsgBox Error$
Resume Comando25_Click_Exit
Siendo comando25 el nombre que aparece en las propiedades del botón, otras-nombre
En el código donde le dices que abra el informe, añade como primera linea ésta: On Error Resume Next.
Te tendría que quedar así:
Private Sub ... On Error Resume Next DoCmd.OpenReport "NombreInforme" End Sub
Otra forma, más "elegante", si quieres avisar de lo que pasa:
Private Sub ... On Error GoTo sol_err DoCmd.OpenReport "Consulta6", acViewPreview Salida: Exit Sub sol_err: If Err.Number = 2501 Then MsgBox "Se ha cancelado la apertura del informe.", vbInformation End If End Sub
Saludos!
Visítanos: http://nksvaccessolutions.com/