Exportieren von Daten aus einer Tabelle Feld zum anderen ist nicht so kompliziert, wie Sie vielleicht denken. In Access können Sie Visual Basic für Applikationen verwenden, um diesen Prozess zu automatisieren. Das Recordset- Objekt stellt die Datensätze in einer Tabelle oder die Datensätze aus einer Abfrage zurückgegeben werden. Diese Aufgabe wird in VBA verwendet werden, um diese Daten auf dem Rekordniveau manipulieren. Sie können Daten durch Durchlaufen der Datensätze und das Hinzufügen Feldwerte auf andere Felder in derselben Tabelle oder einer anderen Tabelle exportieren. Anleitung
1
Klicken Sie auf " Database Tools " und klicken Sie auf " Visual Basic ", um den Visual Basic -Editor zu öffnen . Starten Sie eine neue Sub- Prozedur , indem Sie den folgenden Code : Private Sub
copyFieldData ()
2
Erstellen Sie die folgenden Variablen, die Sie verwenden, um die Daten zu kopieren werden :
< p> Dim sqlstr As String Dim
sourceRst Als Recordset
Dim targetRst Als Recordset
Dim RCNTR As Integer Dim dbs
As Database
< p> Set dbs = CurrentDb
3
erstellen Sie eine leere Tabelle mit einem Feld .
strSQL = " CREATE TABLE EmptyTable "
strSQL = strSQL & " ( Vorname TEXT ) "
DoCmd.RunSQL ( strSQL )
4
Öffnen Sie die Quell-und Ziel -Tabellen mit einem Recordset .
Set targetRst = dbs.OpenRecordset ( " EmptyTable " )
Set sourceRst = dbs.OpenRecordset ( "SELECT * FROM Mitarbeiter Employees; . " )
5
erstellen Sie eine " For ... Loop" zu durchlaufen alle Zeilen in der "First Name" aus der Tabelle Employees und exportieren sie in der " Vorname "-Feld in der EmptyTable .
sourceRst.MoveLast
sourceRst.MoveFirst
< p > Für RCNTR = 0 To sourceRst.RecordCount - . . 1 of
targetRst.AddNew
targetRst.Fields ( " Vorname " ) Wert = sourceRst.Fields ( "Vorname" ) Wert < br >
targetRst.Update
sourceRst.MoveNext
Weiter RCNTR
6
eine Meldung angezeigt , wenn die ausführende abgeschlossen ist.
< p > MsgBox ( "Daten aus Feld Vorname exportiert wurde " )
7
Ende das Verfahren durch Eingabe von " End Sub ". Drücken Sie "F5" um die Prozedur auszuführen .
