Copiar registros de una tabla a otra

Tengo una tabla rellena llamada Usuarios con los campos Nombre, Edad y Numero (un numero del 1 al 9400 diferente para cada registro, en total 9400 registros). Dispongo de otra tabla con la misma estructura pero vacía.
Me interesaría un código que me copiara automáticamente 1800 registros de la primera tabla a la segunda, teniendo en cuenta que le he de introducir el valor del campo Numero inicial a partir del cual copiará los registros y considerando que si llega al final de la primera tabla debe seguir copiando por el principio.
Es decir, yo introduzco el número 8000, entonces copiará del registro que tiene valor en el campo Numero 8000 al que tiene 9400 y como sólo ha copiado 1400, seguirá copiando desde el registro que tiene valor en el campo Numero 1 al 400 (en total 1800).

1 respuesta

Respuesta
1
Con un código como este podrás hacerlo, el valor se toma de una caja de texto llamada texto1
Dim db As Database
Dim rs As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim mivalor As Integer
Set db = CurrentDb
Set rs = db.OpenRecordset("select * from tabla1 where numero >= " & Me.Texto1 & " and numero <= " & Me.Texto1 + 1799)
rs.MoveLast
mivalor = rs.RecordCount
rs.MoveFirst
faltan = 1800 - mivalor
Set rs2 = db.OpenRecordset("select * from tabla2")
Do
rs2.Edit
rs2("nombre") = rs("nombre")
rs2("edad") = rs("edad")
rs2("numero") = rs("numero")
rs2.Update
rs.MoveNext
rs2.MoveNext
Loop Until rs.EOF
If faltan > 0 Then
Set rs = db.OpenRecordset("select * from tabla1 where numero >= 1 and numero <= " & faltan)
Do
rs2.Edit
rs2("nombre") = rs("nombre")
rs2("edad") = rs("edad")
rs2("numero") = rs("numero")
rs2.Update
rs.MoveNext
rs2.MoveNext
Loop Until rs.EOF
End If
MsgBox "hecho"

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

PORQUE da error 3021 no hay reg. Activo

En este tema quedó pendiente de responder esta duda que ahora tengo yo. Reproduzco aquí: Hola fejr, Con un código como este podrás hacerlo, el valor se toma de una caja de texto llamada texto1 Dim db As Database Dim rs As DAO.Recordset Dim rs2 As...
1 respuesta

Rellenar Campo con valor Aleatorio No Repetido

Tengo una tabla simple que unicamente dispone de los campos nombre, apellidos, edad y código. El campo código está vacío. Necesitaría saber como puedo rellenar automáticamente el campo código (numérico) con cifras del 1 al 9400 (ya que existen 9400...
1 respuesta

Duplicar registros de una tabla POR veces

Tengo una tabla con diferentes campos: Campo "articulo" de texto Campo "descripcion" de texto Cantidad campo numérico Necesito crear duplicados de los registros que hay en los campos artículos y descripción un número de veces igual al valor del campo...
1 respuesta

Crear contador

Necesito saber cómo puedo crear un contador mediante código. Tengo un formulario en el que se muestra una tabla y un contador en un cuadro de texto que debe mostrar el número de registros de la tabla, incrementando el contador en caso de añadir un...
1 respuesta

Access mensaje antes de elimin registro en fórmula

Espero que me puedas ayudar con un tema en el que ando un poco bloqueado y no se como hacerlo. Tengo la siguiente tabla: Tabla1: Registo Campo1 Campo2.. 1 Juan 2 Luis Juan 3 Pedro Juan 4 Ramón Pedro Tengo un formulario en el que me aparecen todos...
1 respuesta

Numerar registros de una tabla según un campo especifico

Tengo una tabla FACTURAS con los campos id_Cliente, Tipo_fc, Numero_fc El campo Numero_fc esta en blanco y quisiera poder numerarlo mediante un procedimiento según las facturas sean de un tipo u otro (en el ejemplo son A o B). La idea es llamar este...
1 respuesta

¿Cómo recorrer una consulta en VBA?

Se como recorrer una tabla e ir jugando con sus valores. Pero las consultas se me resisten y no se ni si siquiera se puede hacer. Ejemplo de como recorrer una tabla: 'Declaramos las variables Dim Tabla_mes As DAO.Recordset 'Creamos el recordset Set...
1 respuesta

Problema con contador numérico en access

Tengo un campo Contador que cuenta registros con el siguiente formato número de registro-año Ejm. 001-2010, 002-2010,... 200-2010, utilizando Dmax Cuenta = DMax("Contador", "TblRegistros")+1 luego el contador se reinició con el cambio de año,...
1 respuesta

Añadir registro en access

Encontré el siguiente código en internet para añadir registro en un cuadro combinado, me en msgbox. Private Sub Lista52_NotInList(NewData As String, Response As Integer) Dim Db As DAO.Database Dim Rs As DAO.Recordset Dim Msg As String Dim NewID As...
1 respuesta

Guardar solo al pulsar en Access

Tengo un formulario de entrada de registros con un botón "Guardar", lo que pasa es que si cierro el formulario con cualquier dato metido, me guarda ese registro y yo lo que quiero es que se guarde sólo si pulsamos el botón guardar. Incluso si relleno...
1 respuesta