0

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
7
  • ¿Que es lo que no funciona? El resultado de Debug.Print strSelect cual es? Commented el 18 jun. 2020 a las 8:16
  • Al pulsar el botón, se imprime el informe con los proyectos seleccionados, pero ignora la fecha
    – Lucía
    Commented el 18 jun. 2020 a las 8:35
  • No recuerdo bien en Access, pero me suena muy mal ver cosas como Me.FechaDesde, creo que debería ser Me.FechaDesde.Value y así con el resto de referencias a controles como Me.txtFecha, etc. Commented el 18 jun. 2020 a las 8:44
  • El código intenté fusionarlo de otro filtro total, es decir, el otro filtro total que tengo funciona perfectamente y de ahí es la parte de If IsNull(Me.FechaDesde)... Entonces se supone que tendría que funcionar igual, ¿no?
    – Lucía
    Commented el 18 jun. 2020 a las 8:53
  • En teoría la referencia Me.FechaDesde es una referencia a un objeto, para hacer referencia al su valor debería se Me.FechaDesde.Value. De todas formas antes del If IsNull(Me.FechaDesde) And IsNull(Me.FechaHasta) Then pon una linea con Debug.Print Me.FechaDesde y otra con Debug.Print Me.FechaDesde.Value, a ver que valores aparecen en el debug. Commented el 18 jun. 2020 a las 8:57

1 respuesta 1

2

Después de aislar el código e ir probando combinaciones, logré dar con el resultado que quería.

Con este código ahora si selecciono uno o varios proyectos en un intervalo de fechas, salta el informe con los datos filtrados correspondientes.

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 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 FiltroFecha <> "" Then
        If FiltroTotal <> "" Then
            FiltroTotal = FiltroTotal & " AND " & FiltroFecha
        Else
            FiltroTotal = FiltroFecha
        End If
    End If
    
    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, FiltroTotal
    
End Sub

Tu Respuesta

By clicking “Publica tu respuesta”, you agree to our terms of service and acknowledge you have read our privacy policy.

¿No es la respuesta que buscas? Examina otras preguntas con la etiqueta o formula tu propia pregunta.