Copiar un determinado número de registros de una tabla a otra en Access

Escrito por Administrador

18 de octubre de 2023

Vamos a ver hoy cómo copiar un determinado número de registros de una tabla a otra en Access.

En su día, escribí un post similar para copiar datos de una tabla a otra usando VBA en Microsoft Access. Sin embargo, en esta ocasión, seleccionaremos el número de registros que queremos copiar y, de camino, las columnas que nos interesen.

Para ello, vamos a partir de una tabla como la que muestro a continuación,

saber-usuarios-conectados-base-datos

También he creado una tabla destino, donde se copiarán solamente los datos de las columnas: ID, Altura y Peso

saber-usuarios-conectados-base-datos

Para darle un poco más de chicha al ejemplo, he creado un formulario con dos campos. Los usaremos para seleccionar los registros que queremos copiar.

saber-usuarios-conectados-base-datos

Antes de probar, vamos a ver el código que hay detrás del botón Copiar,

Private Sub Copiar_Click()

Dim dbs As DAO.Database
Dim rst As DAO.Recordset

Set dbs = CurrentDb

'En primer lugar borramos todos los registros de la tabla destino

borrar = "DELETE * FROM [Copia de Datos]"
dbs.Execute borrar

'Seleccionamos solo las columnas que nos interesa copiar

strSQL = "SELECT Datos.ID, Datos.Altura, Datos.Peso FROM Datos;"

Set rst = dbs.OpenRecordset(strSQL, dbOpenSnapshot)

'Nos movemos al primer registro seleccionado

rst.Move (Form!inicio - 1)

'Recorremos los registros insertándolos en la tabla destino

For i = Form!inicio To Form!Fin

insertar = "INSERT INTO [Copia de Datos] (ID, Altura, Peso) VALUES (" & rst!ID & ",'" & rst!Altura & "','" & rst!Peso & "')"
dbs.Execute insertar

rst.MoveNext

Next

'Cerramos el Recordset

rst.Close
Set rst = Nothing
Set dbs = Nothing

End Sub

Si, por ejemplo, seleccionamos los registros del 10 al 15 y pulsamos el botón Copiar,

saber-usuarios-conectados-base-datos

podemos comprobar que se han copiado los cinco registros en la tabla destino,

saber-usuarios-conectados-base-datos

Espero que con este ejemplo hayas aprendido a copiar un determinado número de registros de una tabla a otra en Microsoft Acces. Descárgate el archivo de ejemplo y practica.

Por último, quiero invitarte a compartir tus dudas en los comentarios o en el foro. Intentaré ayudarte en todo lo que pueda, y así aprenderemos todos.

Hasta la próxima.

Si te ha servido y quieres donar

Descarga el archivo del ejemplo

0 comentarios

Enviar un comentario

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.

Últimas publicaciones

Categorías

febrero 2024
LMXJVSD
 1234
567891011
12131415161718
19202122232425
26272829 

Debates en el foro

Avatar
Access en una sola ventana
Avatar
Versiones frontend

Contacto