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 2 cuestiones:
La primera es: ¿Cómo hago para crear un combo con los 12 meses del año (enero, febrero...)?
Y la segunda y más importante:
Tengo el siguiente código:
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:
Cita: 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!