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

junio 2024
LMXJVSD
 12
3456789
10111213141516
17181920212223
24252627282930

Debates en el foro

Avatar
guardar imagenes en carpeta
Avatar
Necesito ayuda con un formulario
Avatar
Buscar Datos en Columnas

Contacto