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,
También he creado una tabla destino, donde se copiarán solamente los datos de las columnas: ID, Altura y Peso.
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.
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,
podemos comprobar que se han copiado los cinco registros en la tabla destino,
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
Últimas publicaciones
0 comentarios