¿Cómo copiar de un conjunto de registros en una tabla en Access 2007

Hacer que el acceso bases de datos de Microsoft 2007 más dinámico y automatizado con el Editor de Visual Basic (VBE). El VBE es la cáscara de programación se incluye con Access que utiliza Visual Basic para Aplicaciones (VBA). Una de las funciones de VBA es generar los datos de la base de datos y guardarlo en un conjunto de registros que puede ser accedido y manipulado en el código. Una vez que haya terminado de trabajar con el conjunto de registros en el código, puede volver a guardarlo en la tabla que se tiró de él desde o copiarlo en otra tabla.

Instrucciones

1 Abra la base de datos en Microsoft Access 2007 y abrir el Editor de Visual Basic. Haga clic en la pestaña "Herramientas de base de datos" y luego "Visual Basic" del grupo "Macros y código".

2 Haga clic en la opción de menú "Insertar" en el Editor de Visual Basic y haga clic en "módulos". O, si usted tiene un formulario o módulo anterior que desea utilizar este procedimiento en abierto que en lugar haciendo doble clic sobre él desde la ventana Explorador de proyectos en el lado izquierdo de la pantalla.

3 Escribir el procedimiento que se tire el conjunto de registros de la base de datos:

"Sub RecordsetExample ()

Dim dbTest as Database 'The variable that will hold your database

Dim rsRecordset como de registros 'La variable que contendrá el conjunto de registros

Establecer dbTest = OpenDatabase ( "MyDatabase.mbd") 'Cambie esto a nombre de su base de datos

con dbTest

establecer rsRecordset = .OpenRecordset ( "Tabla 1", dbOpenTable) 'Cambiar la Tabla 1 para el nombre de la tabla

Terminar con"

4 Escribir el código para copiar el conjunto de registros en otra tabla. El código es el siguiente:

"Dim como secuencia SqlStatement

'La consulta para insertar en la mesa. Cambie Tabla 2 en nombre de la tabla

SqlStatement = "INSERT INTO VALORES Tabla2" y rsRecordset

con rsRecordset

rsRecordset.MoveFirst

Hacer

rsRecordset.RunSQL (SqlStatement)

rsRecordset.MoveNext

Loop Aunque no rsRecordset.EOF

Terminar con"

5 Haga clic en el icono "Guardar" en el Editor de Visual Basic. Haga clic en la opción "Ejecutar (!)" Botón si desea ejecutar el procedimiento y copiar el conjunto de registros de la tabla ahora. Si no es así, cierre el Editor de Visual Basic y haga clic en el botón "Office" y luego "Guardar" para guardar los cambios en la base de datos.