Cómo guardar datos filtrados a otra tabla en Access

Conocer cómo guardar la información de una tabla a otra tabla le puede ahorrar tiempo al transferir datos en una base de datos. Microsoft Office Access es un sistema de gestión de base de datos relacional incluido en el paquete de Microsoft Office. Visual Basic para Aplicaciones (VBA) es un lenguaje de programación desarrollado por Microsoft. VBA se puede utilizar en el acceso a automatizar procesos realizados de otra manera de forma manual. En unos pocos pasos se puede escribir código VBA para consultar los datos de una tabla y guardarla en otra mesa.

Instrucciones

1 Iniciar Microsoft Office Access 2007 y seleccione "Base de datos en blanco", a continuación, haga clic en "Crear". Haga clic en "Herramientas de base de datos", a continuación, seleccione "Visual Basic".

2 Haga clic en el "insertar" y seleccione "Módulo".

Copia y pega el siguiente código en el módulo:

Private Sub createNewTable ()

Dim primera medida de registros

Dim db Como Base de Datos

Dim como secuencia sqlstr

Sqlstr = "CREATE TABLE CustomerInfo (TEXTO FirstName (25), Apellido TEXTO (25));"

DoCmd.RunSQL (sqlstr)

Sqlstr = "INSERT INTO CustomerInfo ([Nombre], [Apellido])"

Sqlstr = sqlstr y "VALUES ( 'John', 'Williams');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlstr)

Sqlstr = "INSERT INTO CustomerInfo ([Nombre], [Apellido])"

Sqlstr = sqlstr y "VALUES ( 'Charles', 'González');"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlstr)

Sqlstr = "SELECT CustomerInfo.FirstName"

Sqlstr = sqlstr y "CustomerInfo.LastName EN CharlesInfo"

Sqlstr = sqlstr Y "DE CustomerInfo"

Sqlstr = sqlstr & "WHERE (((CustomerInfo.FirstName) = 'Charles'));"

DoCmd.SetWarnings falsos

DoCmd.RunSQL (sqlstr)

End Sub

3 Pulse la tecla "F5" para ejecutar la subrutina. El código creará una nueva tabla y añadir dos nuevos registros de datos. Una nueva tabla se creará donde "Nombre" es igual a "Charles".