No imprimir un informe en blanco
Hola a todos
En un formulario de entrada de datos tengo un botón que al hacerle click imprimo un informe con los datos que he entrado en dicho formulario, con el siguiente código:
DoCmd.OpenReport "Clientes",acViewNormal,"", "[CodCliente] = [forms] ! [Nombre] ! [CodCliente] "
Esto me funciona perfecto, el problema es cuando al hacer click al botón, y aun no hay datos introducidos, y claro el informe sale en blanco.
He intentado poniendo el siguiente código en el evento "Al no haber datos" del informe en cuestión, y me muestra el mensaje, pero también me muestra un error dirigido al primer botón, osea al de imprimir
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Aviso desde el Reporte:" & Me.Name & Chr(13) & Chr(13) _
& "No hay datos para imprimir.", vbCritical + vbOKOnly, "AVISO"
Cancel = -1
End Sub
¿Alguien me puede ayudar?
Muchas gracias desde ya
En un formulario de entrada de datos tengo un botón que al hacerle click imprimo un informe con los datos que he entrado en dicho formulario, con el siguiente código:
DoCmd.OpenReport "Clientes",acViewNormal,"", "[CodCliente] = [forms] ! [Nombre] ! [CodCliente] "
Esto me funciona perfecto, el problema es cuando al hacer click al botón, y aun no hay datos introducidos, y claro el informe sale en blanco.
He intentado poniendo el siguiente código en el evento "Al no haber datos" del informe en cuestión, y me muestra el mensaje, pero también me muestra un error dirigido al primer botón, osea al de imprimir
Private Sub Report_NoData(Cancel As Integer)
MsgBox "Aviso desde el Reporte:" & Me.Name & Chr(13) & Chr(13) _
& "No hay datos para imprimir.", vbCritical + vbOKOnly, "AVISO"
Cancel = -1
End Sub
¿Alguien me puede ayudar?
Muchas gracias desde ya
1 respuesta
Respuesta de ohmygood
1