Comparar campo fecha en una tabla
Buenas!
A ver si alguien puede darme una ayudita. Utilizo Access 2007. Tengo una tabla con un campo fecha y quiero rellenar todos los registros correspondientes hasta cierta fecha. Para ello utilizo el siguiente código. El mismo Visual Basic me modifica un poco el formato de la fecha, por lo que doy por hecho de que es como lo acepta. Lo que ocurre en este programa es que el bucle no se para cuando se alcanza esa fecha y sigue operando hasta el final, donde acaba dando un error al llegar el recordset al final del todo. Las fechas en la tabla están bien escritas porque sí puedo hacer algo parecido utilizando consultas.
Dim rs As Recordset
Dim fechaLimite As Date
Set rs = CurrentDb.OpenRecordset("SELECT * FROM coste_evol;", dbOpenDynaset)
rs.MoveFirst
fechaLimite = 1 - ago - 12
Do Until rs![fecha] = 1 - ago - 12
rs.Edit
rs![software] = 75
rs.Update
rs.MoveNext
Loop
Muchas gracias adelantadas. Un saludo!
A ver si alguien puede darme una ayudita. Utilizo Access 2007. Tengo una tabla con un campo fecha y quiero rellenar todos los registros correspondientes hasta cierta fecha. Para ello utilizo el siguiente código. El mismo Visual Basic me modifica un poco el formato de la fecha, por lo que doy por hecho de que es como lo acepta. Lo que ocurre en este programa es que el bucle no se para cuando se alcanza esa fecha y sigue operando hasta el final, donde acaba dando un error al llegar el recordset al final del todo. Las fechas en la tabla están bien escritas porque sí puedo hacer algo parecido utilizando consultas.
Dim rs As Recordset
Dim fechaLimite As Date
Set rs = CurrentDb.OpenRecordset("SELECT * FROM coste_evol;", dbOpenDynaset)
rs.MoveFirst
fechaLimite = 1 - ago - 12
Do Until rs![fecha] = 1 - ago - 12
rs.Edit
rs![software] = 75
rs.Update
rs.MoveNext
Loop
Muchas gracias adelantadas. Un saludo!
