problemas al aplicar un filtro

un cordial saludo a todos

recurro a vosotros que sois unos verdaderos genios, ya que estoy bloqueado en ese punto y no hay manera.

he creado un formulario donde aplico unos filtros al pulsar unos botones, que ya me funcionan perfectamente. Tengo dos cuadros con formato fecha general (desde y hasta) y al introducir el valor y pulsar el valor mustra los registros

ese es el codigo (de novato pero me funciona)

Dim strCadendaBusqueda131 As Long
    Dim strCadendaBusqueda132 As Long
    Dim strCondicio131 As String
    If Not IsNull(Me.menordata) Then
        strCadendaBusqueda131 = Me.menordata
        strCadendaBusqueda132 = Me.majordata
       strCondicio131 = "[data]>=" & strCadendaBusqueda131 & " AND [data]<=" & strCadendaBusqueda132
    Debug.Print strCondicio131
        Me.FilterOn = True
        Me.Filter = strCondicio131
    Else
        Me.FilterOn = False
    End If

ahora quiero hacer lo mismo y poner el codigo al abrir el formulario para que muestre automaticamente los registros del 2021 al abrir el formulario.

lo que hago es modificar las lineas:

        strCadendaBusqueda131 >= "01/01/2021"

        strCadendaBusqueda132 <= "31/12/2021"

he provado entre los caràcters # # y nada de nada siempre me dice se esperava una expresión

alguien me puede indicar que hago mal, supongo que es por trabajar con fechas

muchas gracias a todos

   

Lo estoy mirando. he seguido tus pasos y algo hago mal (no entiendo de programación y hago lo que puedo

Dim sFiltro As String

sFiltro = "strCondicio131 BETWEEN #01/01/2021# AND #31/12/2021#"

Me.Form.Filter = sFiltro

Me.Form.FilterOn = True

 

soy unos genios

doy el tema por cerrado