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

Exportación de datos de un campo de 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 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. Empezar a crear una nueva sub-procedimiento añadiendo el siguiente código:

Private Sub copyFieldData ()

2 Crea las siguientes variables que va a utilizar para copiar los datos:

Dim como secuencia sqlstr

Dim sourceRst Como conjunto de registros

Dim targetRst Como conjunto de registros

Dim RCNTR como número entero

DBS dévil como Base de Datos

Set dbs = CurrentDb

3 Crear una tabla vacía con un solo campo.

strSQL = "CREATE TABLE emptyTable"

strSQL = strSQL & "(Nombre TEXTO)"

DoCmd.RunSQL (strSQL)

4 Abrir las tablas de origen y de destino utilizando un conjunto de registros.

Establecer targetRst = dbs.OpenRecordset ( "emptyTable")

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

5 Crear un "bucle For ..." 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

Para RCNTR = 0 Para sourceRst.RecordCount - 1

targetRst.AddNew

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

targetRst.Update

sourceRst.MoveNext

Siguiente RCNTR

6 Muestra un cuadro de mensaje cuando la exportación se ha completado.

MsgBox ( "Datos de campo Nombre ha sido exportados")

7 Terminar el procedimiento escribiendo "End Sub". Pulse la tecla "F5" para ejecutar el procedimiento.