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

1 respuesta

Respuesta
1
Supongo que ya lo tendrás solucionado pero por si acaso...
if len(me.codcliente) > 0 then
DoCmd.OpenReport "Clientes",acViewNormal,"", "[CodCliente] = [forms] ! [Nombre] ! [CodCliente] "
else
msgbox "introduzca el codigo del cliente... p favor..."
end if
Pues no, todavía no lo había solucionado, más bien lo había dejado por imposible, y ahora por fin perfecto, así es que muchísimas gracias.
Un saludo
Un saludo

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas