En un formulario, tengo una lista (lstProyectos) en la que aparecen unos cuantos proyectos, junto con un campo de fecha (txtFecha) y otro de un intervalo de fechas (FechaDesde y FechaHasta).
Lo que se pretende conseguir es hacer un filtro conjunto en el que, si se seleccionan x proyectos en tal fecha, solo aparezcan los proyectos que se hicieron en esa fecha o intervalo de fechas.
La lista sola se filtra bien, pero no consigo hacer que filtre también la fecha.
Este es el código que he intentado, fijándome de otro filtro total que tengo, pero no ha funcionado...
Private Sub cmdOpenQuery_Click()
Const cstrQuery As String = "Filtro"
Dim strNames As String
Dim strSelect As String
Dim varItm As Variant
Dim FiltroFecha As String
Dim FiltroFechaU As String
Dim FiltroTotal As String
strSelect = "SELECT QryTrabajadores.PROYECTO, QryTrabajadores.Trabajador, QryTrabajadores.FECHA, QryTrabajadores.TIEMPO" & vbCrLf & "FROM QryTrabajadores"
For Each varItm In Me.lstProyecto.ItemsSelected
strNames = strNames & ",'" & _
Me.lstProyecto.ItemData(varItm) & "'"
Next varItm
If Len(strNames) > 0 Then
strNames = Mid(strNames, 2)
strSelect = strSelect & vbCrLf & _
"WHERE QryTrabajadores.PROYECTO IN (" & strNames & ")"
End If
If IsNull(Me.FechaDesde) And IsNull(Me.FechaHasta) Then
FiltroFecha = ""
Else
FiltroFecha = "FECHA BETWEEN #" & Format(Nz(Me.FechaDesde, #1/1/2020#), "mm/dd/yyyy") & _
"# AND #" & Format(Nz(Me.FechaHasta, #12/31/2050#), "mm/dd/yyyy") & "#"
End If
If IsNull(Me.txtFecha) And IsNull(Me.txtFecha) Then
FiltroFechaU = ""
Else
FiltroFechaU = "FECHA BETWEEN #" & Format(Nz(Me.txtFecha, #1/1/2020#), "mm/dd/yyyy") & _
"# AND #" & Format(Nz(Me.txtFecha, #12/31/2050#), "mm/dd/yyyy") & "#"
End If
If FiltroFecha <> "" Then
If FiltroTotal <> "" Then
FiltroTotal = FiltroTotal & " AND " & FiltroFecha
Else
FiltroTotal = FiltroFecha
End If
End If
If FiltroFechaU <> "" Then
If FiltroTotal <> "" Then
FiltroTotal = FiltroTotal & " AND " & FiltroFechaU
Else
FiltroTotal = FiltroFechaU
End If
End If
Debug.Print FiltroTotal
If FiltroTotal <> "" Then
Me.Subformulario.Form.Filter = FiltroTotal
Me.Subformulario.Form.FilterOn = True
Else
Me.Subformulario.Form.FilterOn = False
End If
Debug.Print strSelect
CurrentDb.QueryDefs(cstrQuery).SQL = strSelect
DoCmd.OpenReport "IFiltro", acViewPreview, cstrQuery
End Sub
Debug.Print strSelect
cual es?Me.FechaDesde
, creo que debería serMe.FechaDesde.Value
y así con el resto de referencias a controles comoMe.txtFecha
, etc.If IsNull(Me.FechaDesde)...
Entonces se supone que tendría que funcionar igual, ¿no?Me.FechaDesde
es una referencia a un objeto, para hacer referencia al su valor debería seMe.FechaDesde.Value
. De todas formas antes delIf IsNull(Me.FechaDesde) And IsNull(Me.FechaHasta) Then
pon una linea conDebug.Print Me.FechaDesde
y otra conDebug.Print Me.FechaDesde.Value
, a ver que valores aparecen en el debug.