Selección de varios filtros de un formulario para abrir informes
Tengo un formulario con varios botones de consultas que abren cada uno informes diferentes. He añadido 2 cuadros de texto "fecha_desde" y "fecha_hasta" y 2 cuadros combinados "Empresa" y "Proveedor". Quisiera que el botón consulta tuviese en cuenta estos 4 filtros a la hora de ejecutarse.
Lo he conseguido con los 2 campos combinados por separado (aquí abajo filtro por el cuadro combinado Empresa y Proveedor) pero no se como juntarlos y añadir los filtros por fechas. Gracias
Filtro por cuadro combinado Empresa:
Dim vEmpresa As String
Dim MiFiltro As String
vEmpresa = Nz(Me.consultasempresa.Value, "")
If vEmpresa <> "" Then
MiFiltro = "[Empresa]='" & vEmpresa & "'"
End If
If Len(MiFiltro) > 0 Then
DoCmd.OpenReport "a_facturas_pdtes_aprobacion", acViewReport, , MiFiltro
Else
DoCmd.OpenReport "a_facturas_pdtes_aprobacion", acViewReport
End If
Filtro por cuadro combinado Proveedor:
Dim vProveedor As String
Dim MiFiltro As String
vProveedor = Nz(Me.consultasproveedor.Value, "")
If vProveedor <> "" Then
MiFiltro = "[Proveedor2]='" & vProveedor & "'"
End If
If Len(MiFiltro) > 0 Then
DoCmd.OpenReport "a_facturas_pdtes_aprobacion", acViewReport, , MiFiltro
Else
DoCmd.OpenReport "a_facturas_pdtes_aprobacion", acViewReport
End If