Consulta base de datos: Filtro con Fecha()

[quimfv]

Vamos a cambiar la estrategia,

1. quita el filtro de la propiedad Filtro,
2. elimina ese objeto EntradaFecha
3. quita la macro incrustada
4. el boton "Ayer" debe llmarse "botonayer" (propiedades del boton ficha "otras" Nombre=botonayer
5. crea un boton "Hoy" nombre=botonhoy
6. crea un boton "-1" nombre=botonmenos1

En propiedades del formulario busca la ficha "Eventos" en "Al abrir" ve al generador de codigo (boton "..." > generador de codigo)

Ahora estas en el modulo asociado al formulario, si no tenias otros eventos, deberia aparecer algo asi

Código vb:

Private Sub Form_Open(Cancel As Integer)
 
End Sub
 

seleccionando des de Private pega el siguiente codigo

Código vb:

'Al abrir aplicar filtro fecha=fecha()
Private Sub Form_Open(Cancel As Integer)
   DoCmd.ApplyFilter , "fecha=Date()"
End Sub
 
'Codigo para el boton "Ayer" aplica filtro fecha=fecha()-1
Private Sub botonayer_Click()
   DoCmd.ApplyFilter , "fecha=Date()-1"
End Sub
 
'Codigo para el boton "Hoy" aplica filtro fecha=fecha()
'permite regresar a la situación inicial
Private Sub botonhoy_Click()
   DoCmd.ApplyFilter , "fecha=Date()"
End Sub
 
'Codigo para el boton "-1" 
'Crea una variable "dia" con formato fecha
'Lee el valor del campo fecha le resta 1 y lo guarda en la variable dia
'Aplica el filtro fecha=dia
Private Sub botonMenos1_Click()
   Dim dia As Date
   dia = Me.fecha - 1
   DoCmd.ApplyFilter , "fecha=#" & dia & "#"
End Sub