Visual Basic - Copiar registros de access

Hola, necesito saber como copio los registros de una Tabla de access a otra Tabla de access en la misma base de datos.

Así lo trato de hacer:

Dim eliminados As Recordset

Set eliminados = Sistema.OpenRecordset("Eliminados", dbOpenDynaset)

eliminados.AddNew

** eliminados!nro_alumno = Tabla_alumnos!nro_alumno

eliminados.Update

y me sale error en **, me dice que debe tener un objeto pero yo necesito copiar de tabla a tabla sin utilizar objetos.

Ojalá me puedan ayudar, chao y gracias.

Hola,

A reserva de que el código que muestras sea solamente una parte, necesitas efectivamente tener dos recordsets disponibles: el de la tabla origen y el de la tabla destino. Siguiendo tu lógica, debes abrir la tabla origen y la tabla destino. Después iterar cada registro de la tabla origen y agregarlo a la tabla destino.

El código que verás a continuación hace eso. Modifícalo según lo necesites, ya que no siquiera captura errores.

Espero te sirva.

Dim origen As Recordset
Dim destino As Recordset
Set origen = db.OpenRecordset(tabla_origen, dbOpenSnapshot)
Set destino = db.OpenRecordset(tabla_destino, dbOpenDynaset)
Do While Not origen.EOF
destino.addnew
For Each fld In origen.Fields
destino(fld.Name).Value = origen(fld.Name).Value
Next
destino.Update
origen.MoveNext
Loop
origen.close
destino.close
set origen=Nothing
set destino=Nothing