Ver Mensaje Individual
  #1 (permalink)  
Antiguo 10/05/2010, 23:33
ErPiloto
 
Fecha de Ingreso: enero-2010
Mensajes: 52
Antigüedad: 14 años, 11 meses
Puntos: 0
Pregunta Cosulta Interactiva

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:
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!