Lanzamiento desde VBA de un informe con parametros

[Taribo007]

Imaginemos que el compbo se llama CmdEstado. Comprueba su contenido, si es nulo, lanzas la apertura del informe sin filtrar. Si contiene algun valor, abres el informe filtrado usando la el parametro where del metodo openreport:

If Nz(CmbEstado, "") = "" Then
'Nada seleccionado ene l combo, lanzamos el informe tal cual
DoCmd.OpenReport "NombreInforme", acViewPreview
Else
'Lanzamos el informe filtrado
DoCmd.OpenReport "NombreInforme", acViewPreview, , "Estado='" & Me.CmbEstado & "'"
End If

1. No olvides quitar de la consulta origen de registro del informe, lo de [Escribe el valor del estado]
2. Estado, es el campo de la consulta origen de registro del informe por el que quieres filtrar (pon el nombre correcto.
3. Si este campo es de tipo numerico, quita lo rojo y ten en cuenta que la columna dependiente del combo tendra que ser de tipo numerico.

Un saludo