Vide, hvordan at gemme oplysninger fra én tabel til en anden tabel kan du spare tid , når du overfører data i en database. Microsoft Office Access er en relationel database management system inkluderet i Microsoft Office-pakken. Visual Basic for Applications ( VBA ) er en computer programmeringssprog udviklet af Microsoft. VBA kan bruges i Access at automatisere processer ellers udføres manuelt. I et par trin, du kan skrive VBA-kode til at forespørge data fra én tabel og gemme det i en anden tabel. Instruktioner
1

Start Microsoft Office Access 2007 og vælg " Tom database " og derefter klikke på "Opret ". Klik på " Database Tools " og derefter vælge "Visual Basic ".
2

Klik på "Indsæt "-feltet og vælg " Modul ".

Kopier og indsæt følgende kode i dit modul : Hej

Private Sub createNewTable ()

Dim rst Som Recordset

Dim db Som Database

Dim SQLstr As String

SQLstr = " CREATE TABLE CustomerInfo ( Fornavn TEXT ( 25) , Efternavn TEXT ( 25 )), "

DoCmd.RunSQL ( SQLstr )

SQLstr = " INSERT INTO CustomerInfo ( [Fornavn ] , [Efternavn ] ) "

SQLstr = SQLstr &" VALUES ( 'John ', ' Williams '); "

DoCmd.SetWarnings False

DoCmd.RunSQL ( SQLstr ) < br >

SQLstr = " INSERT INTO CustomerInfo ( [Fornavn ], [ Efternavn] ) "

SQLstr = SQLstr & " VALUES ( ' Charles ', ' Gonzalez '); "

DoCmd . SetWarnings False

DoCmd.RunSQL ( SQLstr )

SQLstr = "SELECT CustomerInfo.FirstName , "

SQLstr = SQLstr & " CustomerInfo.LastName INTO CharlesInfo "

SQLstr = SQLstr & " FROM CustomerInfo "

SQLstr = SQLstr & " WHERE ((( CustomerInfo.FirstName ) = ' Charles' )), "

DoCmd.SetWarnings False < br >

DoCmd.RunSQL ( SQLstr )

End Sub
3

Tryk på " F5 " for at køre din subrutine . Koden vil oprette en ny tabel og tilføje to nye registreringer af data. En ny tabel vil blive oprettet hvor " Fornavn" er lig med " Charles ".