Esportazione dei dati in un campo di tabella a un altro non è così complicato come si potrebbe pensare . In Access , è possibile utilizzare Visual Basic, Applications Edition per automatizzare questo processo . L'oggetto Recordset rappresenta i record di una tabella oppure i record restituiti da una query . Questo oggetto viene utilizzato in VBA per manipolare questi dati a livello di record . È possibile esportare i dati da looping tra i record e l'aggiunta di valori di campo di altri campi nella stessa tabella o in una tabella diversa . Istruzioni
1
Clicca su "Strumenti Database " e cliccare su " Visual Basic " per aprire l'editor di Visual Basic . Avviare la creazione di un sub- procedimento nuovo , aggiungendo il seguente codice : Private Sub
copyFieldData ( ) economici 2
Creare le seguenti variabili che si intende utilizzare per copiare i dati :
< p > Dim sqlstr As String Dim
sourceRst come Recordset
Dim targetRst come Recordset
Dim rCntr As Integer
Dim dbs Come base di dati < p > Set dbs = CurrentDb
3
Creare una tabella vuota con un solo campo .
strSQL = " CREATE TABLE emptyTable "
strSQL = strSQL & "(testo Nome ) "
DoCmd.RunSQL ( strSQL ) economici 4
Aprire tabelle di origine e di destinazione utilizzando un Recordset .
targetRst = dbs.OpenRecordset ( " emptyTable " ) per
sourceRst = dbs.OpenRecordset ( " Dipendenti SELECT * FROM Impiegati , . " ) economici 5
Creare un " per ... loop" per eseguire il ciclo tutte le righe nel campo "Nome" della tabella Employees ed esportarli nel campo " Nome " nel emptyTable .
sourceRst.MoveLast
sourceRst.MoveFirst
< p > Per rCntr = 0 Per sourceRst.RecordCount - . . 1
targetRst.AddNew
targetRst.Fields ( " Nome " ) Valore = sourceRst.Fields ( "Nome" ) Valore < br >
targetRst.Update
sourceRst.MoveNext
Avanti rCntr
6
visualizzare una finestra di messaggio quando l' esportazione è stata completata .
< p > MsgBox ( " dati da campo Nome è stato esportato " ) economici 7
Fine della procedura digitando " End Sub ". Premere il tasto " F5 " per eseguire la procedura .
