** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - On Error GoTo...
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoOn Error GoTo...

 Responder Responder
Autor
Mensaje
alexmubo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Diciembre/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 464
Enlace directo a este mensaje Tema: On Error GoTo...
    Enviado: 12/Marzo/2019 a las 16:45
Hola amigos, tengo un pequeño problema, que me sucedió por casualidad, pero quisiera evitar en caso de que fortuitamente pasara de nuevo.

Al imprimir un informe en un portatil que no tenia la impresora instalada, yo cancele la impresión y esto genero un bloqueo en el aplicativo y me llevo directo a la linea de

comando: DoCmd.RunCommand acCmdPrint, es decir al momento de imprimir. 

Sin embargo lo que quisiera es que al dar cancelar a la impresion, el aplicativo siguiera funcionando normal, continuando con las lineas posteriores a ese momento.

Estoy implementando: On Error Go to... de la siguiente manera.

DoCmd.RunSQL "INSERT INTO Ultima_factura ( Factura_n ) " _
& "SELECT Clientes_tmp.Factura_n " _
& "FROM Clientes_tmp;"

DoCmd.OpenReport "Factura_imprimir", acViewPreview, "", "", acNormal

On Error GoTo alimprimir

DoCmd.Close acReport, "Factura_imprimir"

alimprimir:

Forms!principal.Comando300_Click

DoCmd.RunSQL "delete from Clientes_tmp"
DoCmd.Close acForm, "FRM_clientes"

Pero sigue sucediendo lo mismo, me lleva al error de imprimir y se detiene el aplicativo.

Me pueden ayudar por favor a implementar bien este metodo, o usar algun otro pero que cumpla con lo que requiero. Muchas gracias de antemano.
Dejar que todos den sus ideas es mas inteligente que pensar que uno se las sabe todas.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: en línea
Puntos: 10841
Enlace directo a este mensaje Enviado: 12/Marzo/2019 a las 17:03
El error te lo genera la linea Openreport  ...

Podrías poner lo siguiente:

On error Resume Next
Docmd.OpenReport ....
On error GoTo 0


por cierto el Docmd.close acReport .... sobra

Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 4920
Enlace directo a este mensaje Enviado: 12/Marzo/2019 a las 17:12
El Sr. Mihura anda veloz, 
Saludos.


Editado por emiliove - 12/Marzo/2019 a las 17:13
Arriba
alexmubo Ver desplegable
Asiduo
Asiduo
Avatar

Unido: 15/Diciembre/2010
Localización: Colombia
Estado: Sin conexión
Puntos: 464
Enlace directo a este mensaje Enviado: 12/Marzo/2019 a las 17:23
Perfecto Mihura, al pie de la letra, y quitando la linea que sobra.

Muchas gracias,

Se puede cerrar el hilo.
Dejar que todos den sus ideas es mas inteligente que pensar que uno se las sabe todas.
Arriba
Mihura Ver desplegable
Administrador
Administrador
Avatar

Unido: 06/Mayo/2005
Localización: En la dehesa
Estado: en línea
Puntos: 10841
Enlace directo a este mensaje Enviado: 12/Marzo/2019 a las 18:44
Un saludo Emilio Wink.
Jesús Mansilla Castells.
Saludos desde Móstoles.

Access Aplicaciones
Tecsys.es
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable