Å vite hvordan man skal lagre informasjon fra en tabell til en annen tabell kan du spare tid ved overføring av data i en database . Microsoft Office Access er en relasjonsdatabase styringssystem inkludert i Microsoft Office-pakken. Visual Basic for Applications ( VBA ) er et programmeringsspråk utviklet av Microsoft. VBA kan brukes i Access å automatisere prosesser ellers utføres manuelt . I noen få trinn kan du skrive VBA -kode for å spørre data fra én tabell og lagre den i en annen tabell . Instruksjoner
en
start Microsoft Office Access 2007 og velg "Blank Database ," klikk " Opprett". Klikk på " Database Verktøy ", velg deretter " Visual Basic. "
2
Klikk på " Insert "-feltet og velg " Module ".
Kopier og lim inn følgende kode i modulen : en
Private Sub createNewTable ( )
Dim rst Som Recordset
Dim db As Database
Dim SQLstr As String
SQLstr = "CREATE TABLE CustomerInfo ( Fornavn TEKST ( 25 ) , Etternavn TEKST ( 25 )); "
DoCmd.RunSQL ( SQLstr )
SQLstr = " INSERT INTO CustomerInfo ( [Fornavn ] , [Etternavn ] ) "
SQLstr = SQLstr &" VALUES ( ' John ', ' Williams '); "
DoCmd.SetWarnings False
DoCmd.RunSQL ( SQLstr )
SQLstr = " INSERT INTO CustomerInfo ( [Fornavn ] , [Etternavn ] )"
SQLstr = SQLstr & " VALUES ( ' Charles ', ' Gonzalez '); "
DoCmd . VisAdvarsler 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
DoCmd.RunSQL ( SQLstr )
End Sub
3
Trykk " F5 " for å kjøre din subrutine . Koden vil opprette en ny tabell og legge til to nye registreringer av data . En ny tabell opprettes der " Fornavn" er lik " Charles ".