Att veta hur man sparar information från en tabell till en annan tabell kan spara tid när du överför data i en databas . Microsoft Office Access är en relationsdatabas management system som ingår i Microsoft Office-paketet . Visual Basic for Applications ( VBA ) är en dator programmeringsspråk utvecklat av Microsoft . VBA kan användas i Access för att automatisera processer annars utförs manuellt . I några steg du kan skriva VBA-kod för att ställa frågor om data från en tabell och spara den i en annan tabell . Instruktioner
1
Starta Microsoft Office Access 2007 och välj " Tom databas , " klicka sedan på " Skapa ". Klicka på " Databas Verktyg " och välj sedan " Visual Basic . "
2
Klicka på " Infoga "-fältet och välj " Modul . "
Kopiera och klistra in följande kod på din modul :
Private Sub createNewTable ( ) katalog
Dim rst Som Recordset
Dim db som databas
Dim sqlstr As String
sqlstr = " CREATE TABLE customerinfo ( FirstName TEXT ( 25 ) , Efternamn TEXT ( 25 ) ), "
DoCmd.RunSQL ( sqlstr ) katalog
sqlstr = " INSERT INTO customerinfo ( [Förnamn ], [ Efternamn ] ) "
sqlstr = sqlstr & " VALUES ( ' John ' , ' Williams ' ) ; "
DoCmd.SetWarnings False
DoCmd.RunSQL ( sqlstr )
sqlstr = " INSERT INTO customerinfo ( [ Förnamn] , [ Efternamn ] ) "
sqlstr = sqlstr & " VALUES ( ' Charles ' , ' Gonzalez ' ) ; "
DoCmd . SetWarnings False
DoCmd.RunSQL ( sqlstr ) katalog
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 ) katalog
End Sub
3
Tryck " F5 " för att köra din subrutin . Koden kommer att skapa en ny tabell och lägga till två nya register över uppgifterna . En ny tabell skapas där " Förnamn " är lika med " Charles . " Addera
