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

Haz Microsoft Access 2007 bases de datos 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 guardarlos en un conjunto de registros que se puede acceder y manipular 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 sacó de o copiarlo en otra tabla . Instrucciones
1

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

2 Haga clic en la opción del menú " Insertar" en el Editor de Visual Basic y, a continuación , haga clic en "Módulo ". O , si usted tiene un formulario o módulo anterior que desee utilizar este procedimiento , abra que en vez de hacer doble clic en él desde la ventana Explorador de proyectos en el lado izquierdo de la pantalla.
3

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

"Sub RecordsetExample ()

dbTest Dim como base de datos ' la variable que contendrá la base de datos
< p > rsRecordset Dim como Recordset ' la variable que contendrá el conjunto de registros

Set dbTest = OpenDatabase ( " MyDatabase.mbd ")' Cambiar esta con el nombre de la base de datos

dbTest

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

End With "
4

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

" SqlStatement dévil como secuencia

' La consulta para insertar en la tabla Tabla2 Cambiar a nombre de su mesa

SQLStatement = . " INSERT INTO Table2 VALORES " y rsRecordset

Aunque no rsRecordset.EOF

End With "
5

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