Copiar datos de una tabla a otra en Microsoft Access

Escrito por Administrador

22 de mayo de 2023

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.

saber-usuarios-conectados-base-datos
saber-usuarios-conectados-base-datos

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,

saber-usuarios-conectados-base-datos

podemos comprobar cómo se han copiado los tres registros de la tabla Listado original a la tabla Listado copia,

saber-usuarios-conectados-base-datos

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

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