none
Filtro Esta Semana no funciona RRS feed

  • Pregunta

  • Tengo un reporte en un formulario con con cuadro de opciones que me filtra un subformulario por año, mes, semana y dia; segun la opcion a elegir. Todos los filtros funcionan menos el de semana , que en el siguiente codio es el caso 4.
    Dim FECHA As Date
    Select Case grupoOpcion.Value
    Case 1: FECHA = "1/1/1900"
    Case 2: FECHA = "1/1/" & Year(Date)
    Case 3: FECHA = Month(Date) & "/1/" & Year(Date)
    Case 4: FECHA = Date - Weekday(Date, vbUseSystemDayOfWeek) + 2
    Case 5: FECHA = Date
    End Select
    
    Me.Visor_de_Captura.Form.Filter = "[Fecha]>=#" & FECHA & "#"
    Me.Visor_de_Captura.Form.FilterOn = True
    
    If FECHA = "1/1/1900" Then
    Me.Visor_de_Captura.Form.FilterOn = False
    End If
    
    
    End Sub



    Luis Carlos Lugo

    sábado, 15 de marzo de 2014 15:56

Respuestas

  • Encontre que el error esta en el formato de fecha del access por alguna extraña razon, el problema lo resolvi de la siguiente manera:

    Dim FECHA, FECHASEM As Date
    Select Case grupoOpcion.Value
    Case 1: FECHA = "1/1/1900"
    Case 2: FECHA = "1/1/" & Year(Date)
    Case 3: FECHA = Month(Date) & "/1/" & Year(Date)
    Case 4: FECHASEM = Date - Weekday(Date, vbUseSystemDayOfWeek) + 2
    FECHA = Format(FECHASEM, "mm/dd/yyyy")
    Case 5: FECHA = Date
    End Select
    
    Me.Visor_de_Captura.Form.Filter = "[Fecha]>=#" & FECHA & "#"
    Me.Visor_de_Captura.Form.FilterOn = True
    
    If FECHA = "1/1/1900" Then
    Me.Visor_de_Captura.Form.FilterOn = False
    End If


    Luis Carlos Lugo

    • Marcado como respuesta luclugo sábado, 15 de marzo de 2014 17:58
    sábado, 15 de marzo de 2014 17:58

Todas las respuestas

  • Hola!

    no tengo claro que pretendes, eso, hoy día 15/3/14, devuelve 11/3/14, martes, de modo que no sé si hace lo que quieres o no porque no se que es lo que quieres.


    Saludos a todos desde Huelva <br/> http://www.mvp-access.es/emilio/

    sábado, 15 de marzo de 2014 16:28
  • Quiero filtrar los registros de la semana en curso, en un subformulario que se muestra en vista de hoja de datos. Gracias

    Luis Carlos Lugo

    sábado, 15 de marzo de 2014 16:38
  • Encontre que el error esta en el formato de fecha del access por alguna extraña razon, el problema lo resolvi de la siguiente manera:

    Dim FECHA, FECHASEM As Date
    Select Case grupoOpcion.Value
    Case 1: FECHA = "1/1/1900"
    Case 2: FECHA = "1/1/" & Year(Date)
    Case 3: FECHA = Month(Date) & "/1/" & Year(Date)
    Case 4: FECHASEM = Date - Weekday(Date, vbUseSystemDayOfWeek) + 2
    FECHA = Format(FECHASEM, "mm/dd/yyyy")
    Case 5: FECHA = Date
    End Select
    
    Me.Visor_de_Captura.Form.Filter = "[Fecha]>=#" & FECHA & "#"
    Me.Visor_de_Captura.Form.FilterOn = True
    
    If FECHA = "1/1/1900" Then
    Me.Visor_de_Captura.Form.FilterOn = False
    End If


    Luis Carlos Lugo

    • Marcado como respuesta luclugo sábado, 15 de marzo de 2014 17:58
    sábado, 15 de marzo de 2014 17:58
  • Hola

    ¿Y no te valdría usar DatePart y year para filtrar los registros de la semana en curso?

    Salu2,


    José Mª Fueyo [MS MVP Access]

    lunes, 17 de marzo de 2014 9:07