|
Saludos a todos, Acudo aquí bastante desesperado ya que mis conocimientos son bastante básicos. Tengo una base de datos bastante sencilla. Tres tablas: proyectos, investigadores, partes. Un formulario basado en una consulta en el que tengo dos cuadros de fechas (desde y hasta) asociadas a un botón que al hacer click genera un informe con el resultado (muestra todos los proyectos que se encuentran entre las dos fechas indicadas con todos los empleados que han participado, número de horas invertidas por cada empleado... Lo que quiero conseguir es que en el formulario, al meter un rango de fechas (x.e. desde el 01/01/2019 hasta 03/04/2019), en el siguiente cuadro me ofrezca sólo los proyectos que se encuentren en esas fechas (aplicando un primer filtro) y una vez seleccionado el proyecto que me interese, que en el siguiente cuadro sólo me ofrezca los empleados que han participado en ese proyecto seleccionado (éste sería el segundo filtro) y ya al pulsar el botón que sólo muestre en el informe los datos del empleado (horas trabajadas, tareas...) en el proyecto elegido entre las fechas elegidas.
No sé si me he explicado muy bien. El caso es que no consigo plasmar ésto. No sé si es que lo estoy planteando con filtros cuando debería hacerlo con otras opciones. Se agradece cualquier ayuda
Pego el código que estoy usando, pero lamentablemente no me devuelve nada. No consigo que filtre los proyectos según fechas indicadas. El cuadro muestra todos los proyectos existentes. Lo mismo con investigadores. Además, las fechas en el cuadro antes salían bien dd/mm/aaaa y ahora mismo salen 24/01/yyyy
Private Sub Comando7_Click()
Dim FiltroFecha As String, FiltroProyecto As String, FiltroInvestigador As String, FiltroInforme As String
Set Frm = Forms!FBuscar.Form FiltroFecha = "Fecha BETWEEN #" & Frm.txtFechaIni2 & "# AND #" & Frm.txtFechaFin2 & "#" FiltroProyecto = "Proyecto="" & Me.txtProyecto & " FiltroInvestigador = "Investigador =" ' & Me.txtInvestigador & ' FiltroInforme = FiltroFecha & " AND " & FiltroProyecto & " AND " & FiltroInvestigador & " AND " & FiltroFecha1 Me.Filter = FiltroInforme Me.FilterOn = True Set Frm = Nothing End Sub
Gracias
|