a ver...
Tengo el siguiente código
que sí funciona que realicé con la ayuda de Taribo007:
Cita: Option Compare Database
Private Sub Comando5_Click()
Dim Filtro As String
Dim qdf As DAO.QueryDef
Dim sSql As String
sSql = "SELECT * FROM Ofertas_Cursos "
If Nz(Me.nom_curso, "") <> "" Then
Filtro = Filtro & " nom_curso='" & Me.nom_curso & "' AND "
End If
If Nz(Me.nom_cliente, "") <> "" Then
Filtro = Filtro & " nom_cliente='" & Me.nom_cliente & "' AND "
End If
If Nz(Me.provincia_curso, "") <> "" Then
Filtro = Filtro & " provincia_curso='" & Me.provincia_curso & "' AND "
End If
If Nz(Me.monitor, "") <> "" Then
Filtro = Filtro & " monitor='" & Me.monitor & "' AND "
End If
If Not IsNull(Me.horario_mañana) Then
Filtro = Filtro & " horario_mañana=" & Me.horario_mañana & " AND "
End If
If Nz(Filtro, "") <> "" Then
Filtro = Left(Filtro, Len(Filtro) - 4)
Set qdf = CurrentDb.QueryDefs("ConsultaInteractiva")
qdf.SQL = sSql & " Where " & Filtro
DoCmd.OpenQuery "ConsultaInteractiva"
'y esto para abrir el informe, que tendra como origen la consulta ConsultaInteractiva
DoCmd.OpenForm "Listado de Cursos Consulta"
Else
MsgBox "Es necesario escoger al menos un factor de búsqueda", vbInformation
End If
End Sub
En él seleccionaba varios campos con un formulario y ejecutaba la consulta filtrando por esos campos.
Ahora necesito hacer lo mismo pero sobre la consulta "nóminas" y no consigo hacerla. Puse lo que tengo puesto al principio del tema pero no va.
Alguien me puede decir cómo modificar esto para que me haga lo que necesito?