Cosulta Interactiva

[ErPiloto]

Hola a todos.

Tengo una consulta que me saca las nóminas de los monitores de una empresa que imparte cursos de formación.

nominas:'fecha_fin_curso Por mes','monitor','variable_por_dietas','Suma de kilometraje','Variable_por_nomina','Total'

La idea es que el usuario mediante un formulario pueda escoger el mes, y saque las nóminas de todos los monitores para ese mes, ó el monitor y saque todas las nóminas de ese monitor para todos los meses ó ambas cosas, es decir, la nómina de un monitor para un mes determinado.

Tengo el siguiente código: (de momento solo he probado con el monitor)

Código:

Private Sub Comando2_Click()
Dim Filtro As String
Dim qdf As DAO.QueryDef
Dim sSql As String

sSql = "SELECT * FROM nominas "


If Nz(Me.monitor, "") <> "" Then
Filtro = Filtro & " monitor='" & Me.monitor & "' AND "
End If



If Nz(Filtro, "") <> "" Then
Filtro = Left(Filtro, Len(Filtro) - 4)
Set qdf = CurrentDb.QueryDefs("nominas")
qdf.SQL = sSql & " Where " & Filtro
DoCmd.OpenQuery "nominas"

Else
MsgBox "Es necesario escoger al menos un factor de búsqueda", vbInformation
End If
End Sub

Pero no sale, me dice:

Se ha producido el error '3102'en tiempo de ejecución:
Referencia circular causada por 'nominas'

Y lo peor es que me destruye la consulta 'nominas' y me la cambia por otra cosa que no tiene nada que ver y tengo que volver a hacerla.

Alguien me puede decir que estoy haciendo mal??
Gracias!

[ErPiloto]

Hola

Alguien puede echarme un cable? cualquier idea que me pueda ayudar.

Gracias!