eksport af data fra én tabel felt til et andet er ikke så kompliceret som du måske tror . I Access kan du bruge Visual Basic for Applications til at automatisere denne proces . Recordset objektet repræsenterer posterne i en tabel eller de poster, der returneres fra en forespørgsel. Dette objekt bruges i VBA til at manipulere disse data på rekordniveau. Du kan eksportere data ved looping gennem posterne og tilføje feltværdier til andre marker i samme tabel eller en anden tabel . Instruktioner
1

Klik på " Database Funktioner" og klik på " Visual Basic " for at åbne Visual Basic Editor. Start med at skabe en ny sub- procedure ved at tilføje følgende kode : Hej

Private Sub copyFieldData ()
2

Opret følgende variabler , du vil bruge til at kopiere data: Salg < p> Dim SQLstr As String

Dim sourceRst Som Recordset

Dim targetRst Som Recordset

Dim rCntr As Integer

Dim dbs som database
< p> Indstil dbs = CurrentDb
3

Opret en tom tabel med ét felt.

strSQL = " CREATE tABLE emptyTable "

strSQL = strSQL & "( Fornavn TEXT) "

DoCmd.RunSQL ( strSQL )
4

Åben kilde-og mål tabeller ved hjælp af en Recordset .

Set targetRst = dbs.OpenRecordset ( " emptyTable " )

Set sourceRst = dbs.OpenRecordset ( " SELECT Medarbejdere * FROM Medarbejdere , ").
5

Opret en " for ... loop " at sløjfe gennem alle rækkerne i "First Name " feltet fra tabellen Medarbejdere og eksportere dem til " Fornavn" feltet i den emptyTable .

sourceRst.MoveLast

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

targetRst.AddNew

targetRst.Fields ( " Fornavn" ) Value = sourceRst.Fields ( "Fornavn " ) Value < br >

targetRst.Update

sourceRst.MoveNext

Næste rCntr
6

Vise en besked boks , når den eksporterende er afsluttet.
< p > MsgBox ( "Data fra feltet Fornavn er blevet eksporteret " )
7

afslutte proceduren ved at skrive " End Sub ". Tryk på " F5 " for at køre proceduren.