Cita:
Iniciado por william_085 
hola, antes no me marcaba nada de errores se ejecutaba todo bien, y a este proyecto le agrege un nuevo formulario ya existente y agrege unas referencias, despues de eso ya no me deja ejecutar el programa, ya quite el form que meti y las referencias y nada me sigue marcando el error.
me lo marca aqui.
If DateValue(fecha_nueva) >= DateValue(fecha_vieja) + 1 Then
Call AbreBaseDatos(basedatos1, rstaleatorio, "select * from aleatorio ", Escritura)
If Not rstaleatorio.EOF Then
While Not rstaleatorio.EOF
rstaleatorio.Edit***********************aqui me marca el error en el edit
rstaleatorio![fecha_depuracion] = fecha_nueva
rstaleatorio.Update
rstaleatorio.MoveNext
Wend
rstaleatorio.Close
Hola william,
habría que ver el código que tiene el procedimiento "AbreBaseDatos", pero si lo que quieres es modificar todas las fechas de la tabla puedes hacerlo con una sola sentencia UPDATE sin necesidad de crear y recorrer un recordset:
Conexion.Execute "UPDATE LaTabla SET fecha_depuracion=fecha_nueva"
Esta consulta de actualización modifica todos los campos "fecha_depuracion" de la tabla.
