Cómo exportar los datos de un campo a otro en Access 2007

Exportación de datos de un campo de una tabla a otra no es tan complicado como usted puede pensar . En Access , puede utilizar Visual Basic para aplicaciones para automatizar este proceso. El objeto Recordset representa los registros de una tabla o los registros devueltos por una consulta . Este objeto se utiliza en VBA para manipular estos datos a nivel de registro . Puede exportar los datos de bucle a través de los registros y la adición de los valores de campo a otros campos de la misma tabla o una tabla diferente . Instrucciones
1

Haga clic en " Herramientas de base de datos " y haga clic en "Visual Basic " para abrir el editor de Visual Basic . Comienza a crear una nueva sub-procedimiento con el código siguiente : Private Sub

copyFieldData ()
2

Crea las siguientes variables que va a utilizar para copiar los datos :
< p> sqlstr dévil como secuencia

sourceRst As Recordset

targetRst As Recordset

rCntr Dim As Integer Dim dbs

Como Base de datos < p> Set dbs = CurrentDb
3

Crear una mesa vacía con un campo .

strSQL = " CREATE TABLE emptyTable "

strSQL = strSQL y " ( TEXTO nombre) "

DoCmd.RunSQL ( strSQL )
4

Abra las tablas de destino mediante un conjunto de registros y fuentes .

Set targetRst = dbs.OpenRecordset ( " emptyTable " )

Set sourceRst = dbs.OpenRecordset ( " Empleados SELECT * FROM Empleados ; ").
5

Crear un " For ... Loop" para recorrer todas las filas en el campo " Nombre" de la tabla Empleados y exportarlos al campo " Nombre" en el emptyTable .

sourceRst.MoveLast

sourceRst.MoveFirst
< p > En rCntr = 0 Para sourceRst.RecordCount - . . 1

targetRst.AddNew

targetRst.Fields ( " Nombre" ) Valor = sourceRst.Fields ( "Nombre" ) Valor

targetRst.Update

sourceRst.MoveNext

Siguiente rCntr
6

Muestra un cuadro de mensaje cuando el exportador haya sido completado.
< p > MsgBox ( " los datos del campo Nombre se ha exportado ")
7

Fin del procedimiento escribiendo " End Sub ". Pulse la tecla "F5 " para ejecutar el procedimiento .