Esportazione dei dati dal campo di una tabella a altra non è così complicato come si potrebbe pensare. In Access, è possibile utilizzare Visual Basic per applicazioni per automatizzare questo processo. L'oggetto Recordset rappresenta i record in una tabella o i record restituiti da una query. Questo oggetto viene utilizzato in VBA per modificare questi dati a livello di record. È possibile esportare dati scorrono in ciclo i record e aggiungendo i valori di campo ad altri campi nella stessa tabella o una tabella diversa.

Istruzioni

1

Fare clic su "strumenti di Database" e fare clic su "Visual Basic" per aprire l'editor di Visual Basic. Avviare la creazione di una nuova Sub-procedura di aggiungendo il codice seguente:

Private Sub copyFieldData()

2

Creare le seguenti variabili che si utilizzerà per copiare i dati:

Dim SQLstr As String

Dim sourceRst As Recordset

Dim targetRst As Recordset

Dim rCntr As Integer

() Dim dbs As Database

Set dbs = CurrentDb

3

Creare una tabella vuota con un campo.

strSQL = "CREATE TABLE emptyTable"

strSQL = strSQL & "(FirstName testo)"

DoCmd.RunSQL (strSQL)

4

Aprire le tabelle di origine e di destinazione utilizzando un Recordset.

Impostare targetRst = dbs. OpenRecordset("emptyTable")

Impostare sourceRst = dbs. OpenRecordset ("SELECT dipendenti. * FROM dipendenti;")

5

Creare un "per... Loop"per scorrere in ciclo tutte le righe nel campo"Nome"della tabella Employees ed esportarli al campo"FirstName"nella emptyTable.

sourceRst.MoveLast

sourceRst.MoveFirst

Per rCntr = 0 To sourceRst.RecordCount - 1

targetRst.AddNew

targetRst.Fields("FirstName"). Valore = sourceRst.Fields ("cognome"). Valore

targetRst.Update

sourceRst.MoveNext

Prossimo rCntr

6

Visualizzare una finestra di messaggio quando l'esportazione è stata completata.

MsgBox ("dati dal campo nome sono stati esportati")

7

Terminare la procedura digitando "End Sub". Premere "F5" per eseguire la procedura.