Filtro por Fecha
Publicado por Julian David (20 intervenciones) el 03/04/2014 17:47:48
Buen día amigos,
A ver si alguno me puede ayudar con esto:
Tengo un formulario divido, con varios campos, entre los cuales hay uno llamado FECHA (formato dd/mm/yy) , por medio de un botón en el mismo formulario , deseo que al hacer click me filtre todos los campos con la fecha de hoy, es decir la fecha actual, tengo algo como esto pero me presenta error:
Espero me puedan ayudar, ya que el error que me arroja es por la composición del filtro.
De antemano gracias
A ver si alguno me puede ayudar con esto:
Tengo un formulario divido, con varios campos, entre los cuales hay uno llamado FECHA (formato dd/mm/yy) , por medio de un botón en el mismo formulario , deseo que al hacer click me filtre todos los campos con la fecha de hoy, es decir la fecha actual, tengo algo como esto pero me presenta error:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub CmdHoy_Click()
Dim vfecha As Variant
Dim miFiltro As String
vfecha = Me.FECHA.Value
miFiltro = "[vFecha]#" & Format(Date, "mm/dd/yy") & "#"
vLargo = Len(miFiltro)
If vLargo > 0 ThenmiFiltro = Right(miFiltro, vLargo - 4)
End If
Me.Filter = miFiltro
Me.FilterOn = True
End Sub
Espero me puedan ayudar, ya que el error que me arroja es por la composición del filtro.
De antemano gracias
Valora esta pregunta
0
