Foros del web, para los que viven de bits

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, creo que puede ser por no tener declarada la variable "rstaleatorio" a mi me pasa algunas veces
salu2

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.

gracias avellaneda por tu tiempo, fue error de una referencia que la tenia en mal orden, que raro que marque error por el orden en que las fui ordenando pero bueno lo bueno que ya se arreglo.

muchas gracias

Me alegro que hayas logrado resolver tu problema. Ahora, solo como sugerencia siempre coloca Option Explicit, la mayoría de las veces que ocurre ese error es porque alguna variable no está declarada. (De preferencia selecciona declarar todas las variables en las opciones).