Hoy voy a mostraros cómo copiar datos de una tabla a otra usando VBA en Microsoft Access.
Para ello, he creado una sencilla base de datos con dos tablas y un formulario.
La idea es que cuando rellenemos el campo Sector en el formulario, se copien automáticamente los registros del sector seleccionado desde la tabla Listado original hasta la tabla Listado copia.
Pero antes, vamos a ver el código que hay detrás del botón Copiar,
Private Sub Copiar_Click()
'Comprobamos que hemos rellenado el campo sector
If IsNull(Me.Sector) Then
MsgBox "Es necesario rellenar el campo Sector"
Exit Sub
End If
'Copiamos los registros del sector seleccionado desde la tabla Listado original hasta la tabla Listado copia
Dim dbs As DAO.Database
Set dbs = CurrentDb()
dbs.Execute "INSERT INTO [Listado copia] (Nombre, Sector) SELECT Nombre, Sector FROM [Listado original] where Sector='" & Me.Sector & "'", dbFailOnError
'Mostramos un mensaje de operación exitosa
MsgBox "Operación realizada con éxito"
End Sub
Si, por ejemplo, seleccionamos el sector Educación y pulsamos el botón Copiar,
podemos comprobar cómo se han copiado los tres registros de la tabla Listado original a la tabla Listado copia,
Espero que con este ejemplo hayas aprendido a copiar datos 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