Eksport av data fra én tabell felt til et annet er ikke så komplisert som du kanskje tror. I Access kan du bruke Visual Basic for Applications for å automatisere denne prosessen . Den Recordset objektet representerer postene i en tabell eller postene som returneres fra en spørring . Dette objektet brukes i VBA til å manipulere disse dataene på rekordnivå. Du kan eksportere data ved looping gjennom postene og legge feltverdier til andre felt i samme tabell eller en annen tabell . Instruksjoner
en

Klikk " Database Tools " og klikk " Visual Basic " for å åpne Visual Basic-redigering . Begynne å lage en ny sub - prosedyre ved å legge følgende kode:

Private Sub copyFieldData ( )
2

Lag følgende variabler du vil bruke til å kopiere data:
< p> Dim SQLstr As String

Dim sourceRst Som Recordset

Dim targetRst Som Recordset

Dim rCntr As Integer

Dim dBS Som Database
< p> Sett dBS = CurrentDb
3

Opprett en tom tabell med ett felt .

strSQL = "CREATE tABLE emptyTable "

strSQL = strSQL & "( Fornavn TEKST )"

DoCmd.RunSQL ( strSQL )
4

Åpne kilden og målet tabeller ved hjelp av en Recordset .

Set targetRst = dbs.OpenRecordset ( " emptyTable ")

Set sourceRst = dbs.OpenRecordset ( " SELECT ansatte * FROM Ansatte ; . ")
5

Lag et "For ... Loop " å sløyfe alle radene i " First Name "-feltet fra Ansatte-tabellen og eksportere dem til " Fornavn" -feltet i emptyTable .

sourceRst.MoveLast

sourceRst.MoveFirst
< p > For rCntr = 0 For å sourceRst.RecordCount - . . en

targetRst.AddNew

targetRst.Fields ( " Fornavn" ) Verdi = sourceRst.Fields ( " fornavn ") Verdi

targetRst.Update

sourceRst.MoveNext

Neste rCntr
6

Vis en meldingsboks når eksport er fullført.
< p > MsgBox ( "Data fra feltet Fornavn har blitt eksportert ")
7

End prosedyren ved å skrive " End Sub . " Trykk "F5 " for å kjøre prosedyren.