Makroer for databaseprogrammet Access- er programmer som automatiserer oppgaver som å finne poster eller lukke vinduer . Access-brukere kan utvikle disse programmene ved hjelp av Visual Basic for Applications , eller VBA , utviklingsmiljø . Et viktig skritt i å skrive makroer for Access spesifiserer formålet du vil den skal gjøre , for eksempel å slette poster som oppfyller visse kriterier. Opprette Tilgang makroer lar deg utføre arbeidet ditt lagets data - administrasjonsoppgaver raskere og med færre feil enn med manuelle metoder . Instruksjoner
en
åpen tilgang og opprette en ny database ved å trykke " Ctrl" + " N. " Klikk "Blank Database , " trykk " Alt" + "F11 " for å gå inn i VBA integrert utviklingsmiljø eller IDE . Her vil du lage makroer som viser vanlige database operasjoner for å skape et bord og sette inn og henter data fra en tabell .
2
Klikk på Insert -menyen er " Module "-kommandoen for å gjøre et nytt vindu for å legge inn makroen kode . Lim inn følgende subrutine inn i vinduet . Dette subrutine skaper en spørring definisjon med " CreateQueryDef " funksjon samtale . Den "Opprett bord " søket koden definerer bruker samme SQL syntax tilgjengelig i Access er utformingsrutenettet for spørringen. Uttalelsen " dbase.QueryDefs ( 1 ) . Execute " kjører table- etableringen spørringen .
Public Sub createTable ( )
Dim qdef Som DAO.QueryDef
Dim dbase som DAO.Database
Dim s As String
Sett dbase = CurrentDb
s = " opprette tabellen KidsBooks ( Bookname tekst ( 50 ) , Forfatter tekst ( 50 ) )"
Set qdef = dbase.CreateQueryDef ( " qCreateTable " , s)
dbase.QueryDefs ( 1 ) . Execute
End Sub
3
Klikk på en uttalelse i subrutine , og trykk "F5 " for å kjøre " createTable . " Trykk " Alt" + "F11 " for å gå tilbake til standard Access- brukergrensesnittet .
4
Lukk og åpne navigasjonsruten ved å klikke på tittelen barens arrow ikoner. Ruten vil vise KidsBooks bordet ditt subrutine opprettet.
5
Trykk " Alt" + "F11 " for å returnere til subrutine din i IDE . Lim inn følgende nye subrutinen under createTable subrutine . De addTableRow sub setter inn en rad med data i tabellen createTable program laget . Dette nye programmet fungerer ved å åpne en RecordSet objekt og kalle AddNew metode for dette objektet.
Public Sub addTableRow ( )
Dim dbase Som DAO.Database
Dim rst As DAO.Recordset
Sett dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks ")
rst.AddNew
rst ! Bookname = " The Wizard of Oz "
rst ! Forfatter = " Frank Baum "
rst.Update
End Sub
6
Kjør det nye programmet som du gjorde den forrige. Tilbake til Access , og lukk KidsBooks tabellen ved å høyreklikke sin fane og klikke på " Close ". Dobbeltklikk på " KidsBooks " i navigasjonsruten for å gjenåpne bordet og se den nye boken din oppføring program lagt .
7
Lim , i IDE , følgende nye programmet under de to foregående. Dette programmet vil vise alle dataene i KidsBooks tabellen . Dette programmet åpner en RecordSet objekt , som gjorde det forrige programmet . Denne gangen , derimot, er MoveNext funksjon kalt. Denne funksjonen flytter en intern indeks gjennom hver av radene i KidsBooks tabellen .
Public Sub showData ( )
Dim dbase Som DAO.Database
Dim rst Som DAO . Recordset
Sett dbase = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks ")
Dim s As String
Mens Ikke rst.EOF
s = "Book title: " & rst [ BookName ] & " Forfatter : ". ! & rst [Forfatter ]
MsgBox ( s )
rst.MoveNext !
Loop
rst.Close
dbase.Close
End Sub
8
Kjør programmet som du kjørte andre to. Programmet vil vise en meldingsboks viser " Wizard of Oz " oppføring .
