Access - Buscando fechas

Gente, en una busqueda de fechas tengo este codigo y no me encuentra nada. Si alguien puede decirme que es lo que estoy haciendo mal se los agradezco. Y si no, se los agradezco tambien.

Dim base As Database
Dim tabla As Recordset

Set base = CurrentDb
Set tabla = base.OpenRecordset("Fecha", dbOpenDynaset)

Dim b As Date

b = tabla.Fields("fecha").Value
tabla.FindFirst ("fecha=" & b & "")
If tabla.NoMatch Then
c = 1
End If

Gracias
Saludos

Rodolfo

En tu código, parece que estás tratando de buscar un registro en la tabla "Fecha" basado en el valor de una variable "b" que contiene una fecha. Sin embargo, hay un error en la línea donde intentas realizar la búsqueda.

El problema radica en la forma en que estás construyendo la cláusula de búsqueda en el método FindFirst. Cuando se trata de valores de fecha, es necesario encerrarlos entre comillas en la cláusula de búsqueda. Además, para asegurarte de que el formato de fecha sea reconocido correctamente, puedes utilizar la función Format para formatear la fecha en el formato adecuado.

Aquí tienes una versión corregida del código:


En esta versión, se ha utilizado la función Format para formatear la fecha en el formato "yyyy-mm-dd" que es reconocido por Access. Además, se han agregado comillas alrededor de la fecha en la cláusula de búsqueda.

Recuerda cerrar y liberar los objetos Recordset y Database una vez que hayas terminado de utilizarlos para evitar problemas de memoria.

Espero que esta solución corrija el problema de búsqueda en tu código. ¡Buena suerte!