Consulta interactiva en ACCESS II. Ayuda!!

[Taribo007]

Prueba esto a ver si cuela:

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 & " monitor=" & Me.monitor & " 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.OpenReport "nombreInforme", acViewPreview

Else
MsgBox "Ninguno de los controles ha sido rellenado", vbInformation
End If
End Sub

Un saludo