Hvordan eksportere data fra ett felt til et annet i Access 2007

February 1

Eksport av data fra en 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 objekt representerer poster i en tabell eller postene returnert fra en spørring. Dette objektet er brukt 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.

Bruksanvisning

1 Klikk "Databaseverktøy" og klikk "Visual Basic" for å åpne Visual Basic-redigering. Begynne å lage en ny sub-prosedyren ved å legge til følgende kode:

Private Sub copyFieldData ()

2 Lag følgende variabler du vil bruke til å kopiere data:

Dim SQLstr As String

Dim sourceRst As Recordset

Dim targetRst As Recordset

Dim rCntr As Integer

Dim dbs som database

Sett dbs = CurrentDb

3 Opprett en tom tabell med ett felt.

strSQL = "CREATE TABLE emptyTable"

strSQL = strSQL & "(Fornavn TEKST)"

DoCmd.RunSQL (strSQL)

4 Åpne kilde- og måltabeller ved hjelp av en Recordset.

Sett targetRst = dbs.OpenRecordset ( "emptyTable")

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

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

sourceRst.MoveLast

sourceRst.MoveFirst

For rCntr = 0 For å sourceRst.RecordCount - 1

targetRst.AddNew

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

targetRst.Update

sourceRst.MoveNext

Neste rCntr

6 Vise en meldingsboks når den eksporterende er fullført.

MsgBox ( "Data fra fornavn feltet har blitt eksportert")

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