Slik kopierer fra en Recordset inn i en tabell på Access 2007

Gjør Microsoft Access 2007 databaser mer dynamisk og automatisert med Visual Basic Editor (VBE). VBE er programmerings skallet følger med Access som bruker Visual Basic for Applications (VBA). En av funksjonene til VBA er å generere data fra databasen og lagre den i en post som kan nås og manipuleres i koden. Når du er ferdig med å jobbe med postsettet i koden, kan du lagre den tilbake til bordet som du trakk den fra eller kopiere den inn i en annen tabell.

Bruksanvisning

1 Åpne din database i Microsoft Access 2007 og åpne Visual Basic Editor. Klikk på "Databaseverktøy" -fanen og deretter "Visual Basic" fra "Makroer & Code" gruppe.

2 Klikk på menypunktet i Visual Basic Editor "Sett inn" og deretter på "Module". Eller, hvis du har en form eller forrige modul som du vil bruke denne fremgangsmåten på, åpner du den i stedet ved å dobbeltklikke på den fra Project Explorer-vinduet på venstre side av skjermen.

3 Skriv den prosedyre som vil trekke postsettet fra databasen:

"Sub RecordsetExample ()

Dim dbTest as Database 'The variable that will hold your database

Dim rsRecordset som Recordset 'The variabel som vil holde din recordset

Sett dbTest = OpenDatabase ( "MyDatabase.mbd") "Endre dette til navnet på databasen

med dbTest

satt rsRecordset = .OpenRecordset ( "Tabell 1", dbOpenTable) Endre Table1 til navnet på tabellen

End With "

4 Skriv inn koden for å kopiere postsettet inn i en annen tabell. Koden ser slik ut:

"Dim sqlStatement som String

'The spørring for å sette inn i til bord. Endre Table2 til navn på tabellen

sqlStatement = "INSERT INTO table2 VERDIER" & rsRecordset

med rsRecordset

rsRecordset.MoveFirst

Gjøre

rsRecordset.RunSQL (sqlStatement)

rsRecordset.MoveNext

Loop Mens Ikke rsRecordset.EOF

End With "

5 Klikk på "Lagre" -ikonet i Visual Basic Editor. Klikk på "Run (!)" Knappen hvis du ønsker å kjøre prosedyren og kopiere postsettet til bordet nå. Hvis ikke, lukker du Visual Basic Editor, og klikk på "Office" -knappen og deretter "Lagre" for å lagre endringene i databasen.