Makron för databasprogram Tillträde är program som automatiserar uppgifter som att hitta poster eller stänga fönster . Access-användare kan utveckla dessa program med Visual Basic for Applications , eller VBA , utvecklingsmiljö . Ett viktigt steg i att skriva makron för Access där syftet du vill att den ska utföra , t.ex. ta bort poster som uppfyller vissa kriterier . Skapa Access-makron kan du utföra ditt arbete lagets data förvaltningsuppgifter snabbare och med färre fel än med manuella metoder . Instruktioner
1
Open Access och skapa en ny databas genom att trycka på " Ctrl " + " N. " Klicka på " Tom databas , " tryck sedan på " Alt " + " F11 " för att komma in i VBA integrerad utvecklingsmiljö , eller IDE . Här kommer du skapa makron som visar den gemensamma databasen verksamhet skapa en tabell och infoga och hämta data från en tabell .
2
Klicka på Infoga -menyn " Module " -kommandot för att göra ett nytt fönster för att ange makrot kod . Klistra in följande subrutinen i fönstret . Denna subrutin skapar en frågedefinition med " CreateQueryDef " funktionsanrop . Den " skapa bord " query koden definierar använder samma SQL- syntax finns i Access : s frågerutnätet . Påståendet " dbase.QueryDefs ( 1 ) . Utför " springer bordet skapande fråga .
Public Sub createTable ( ) katalog
Dim qdef Som DAO.QueryDef
Dim dbase som DAO.Database
Dim s As String
Set dbase = CurrentDb
s = " skapa tabellen KidsBooks ( Bookname text ( 50 ) , författare text ( 50 ) ) "
Set qdef = dbase.CreateQueryDef ( " qCreateTable " , s)
dbase.QueryDefs ( 1 ) . Execute
End Sub
3
Klicka på ett uttalande i subrutinen , tryck " F5 " för att köra " createTable . " Tryck på " Alt " + " F11 " för att återgå till den vanliga Access-gränssnittet .
4
Stäng och öppna navigeringsfönstret genom att klicka på dess titel barens pilarna . Rutan visar KidsBooks tabellen din subrutin skapas .
5
Tryck " Alt " + " F11 " för att återgå till din subrutin i IDE . Klistra in följande nya subrutin under createTable subrutinen . De addTableRow sub infogar en rad med data i tabellen ditt createTable programmet gjorde . Detta nya program fungerar genom att öppna ett Recordset-objekt och anropa SparNy för det objektet .
Public Sub addTableRow ( ) katalog
Dim dbase Som DAO.Database
Dim rst Som DAO.Recordset
Set dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks " ) katalog
rst.AddNew
RST ! Bookname = " Trollkarlen från Oz "
RST ! Författare = " Frank Baum "
rst.Update
End Sub
6
Kör det nya programmet som du gjorde tidigare . Återgå till Access , stäng sedan KidsBooks tabellen genom att högerklicka på fliken och klicka på " Stäng ". Dubbelklicka på " KidsBooks " i navigeringsfönstret för att återuppta bordet och se den nya boken posten ditt program läggs .
7
Paste , i IDE , följande nya program under de två föregående. Detta program kommer att visa alla data som finns i KidsBooks tabellen . Detta program öppnar ett Recordset-objekt , som gjorde det tidigare programmet . Men den här gången , är det MoveNext funktionen heter . Denna funktion flyttar ett internt index genom var och en av raderna i KidsBooks tabellen .
Public Sub showData ( ) katalog
Dim dbase Som DAO.Database
Dim rst Som DAO . Recordset
Set dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks " ) katalog
Dim s As String
Do While Not rst.EOF
s = " Bokens titel : " & rst [ BookName ] & " Författare : . " ! & rst [ Författare ]
MsgBox (s ) katalog
rst.MoveNext !
Loop
rst.Close
dbase.Close
End Sub
8
Kör programmet som du körde andra två . Programmet kommer att visa en meddelanderuta som visar " Trollkarlen från Oz " posten .
