Makroer til databaseprogram Access er programmer , som automatiserer opgaver som at finde journaler eller lukke vinduer. Access-brugere kan udvikle disse programmer ved hjælp af Visual Basic for Applications , eller VBA , udviklingsmiljø. Et vigtigt skridt i at skrive makroer til Access specificerer det formål du ønsker det at udrette, såsom sletning af poster opfylder visse kriterier. Oprettelse Access -makroer kan du udføre dit arbejde holds data ledelsesopgaver hurtigere og med færre fejl end ved manuelle metoder . Instruktioner
1
Open Access og oprette en ny database ved at trykke på " Ctrl" + "N. " Klik på " Tom database " og derefter trykke på "Alt " + " F11 " for at indtaste VBA integrerede udviklingsmiljø eller IDE. Her kan du oprette makroer , der viser de fælles database operationer for at skabe en tabel og indsætte og hente data fra en tabel .
2
Klik på menuen Indsæt s " Module" kommando til at lave et nyt vindue til indtastning din makro kode. Indsæt følgende underprogram i vinduet . Denne subrutine skaber en forespørgsel definition med " CreateQueryDef " funktion opkald . Den " oprette tabellen " forespørgsel koden definerer bruger samme SQL-syntaks findes i Access s forespørgselsgitteret . Udsagnet " dbase.QueryDefs (1). Udfør " kører bordet -creation forespørgsel.
Public Sub createTable ()
Dim qdef Som DAO.QueryDef
Dim dBASE som DAO.Database
Dim s As String
Set dBASE = CurrentDb
s = "opret table KidsBooks ( Bookname tekst ( 50) , Forfatter tekst ( 50) )"
Set qdef = dbase.CreateQueryDef ( " qCreateTable " , s)
dbase.QueryDefs (1). Udfør
End Sub
3
Klik på en udtalelse i underprogram , derefter trykke på " F5 " for at køre " createTable ". Tryk på " Alt" + " F11 " for at vende tilbage til den standard Access brugergrænseflade.
4
Luk og genåbne navigationsruden ved at klikke på dets titel barens pileikonerne . Ruden vil vise KidsBooks tabellen din subrutine oprettet.
5.
Tryk på " Alt" + " F11 " for at vende tilbage til din subrutine i IDE. Indsæt følgende nye underprogram under createTable underprogram. De addTableRow sub indsætter en række data i tabellen din createTable program lavet . Dette nye program virker ved at åbne en RecordSet objekt og kalde TilføjNy metode pågældende objekt.
Public Sub addTableRow ()
Dim dBASE Som DAO.Database
Dim rst Som DAO.Recordset
Set dBASE = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks " )
rst.AddNew
rst ! Bookname = " The Wizard of Oz "
rst ! Author = " Frank Baum "
rst.Update
End Sub
6
Kør det nye program som du gjorde den forrige. Vend tilbage til Access , og luk derefter KidsBooks tabellen ved at højreklikke på dens fane og klikke på " Close ". Dobbeltklik på " KidsBooks " i navigationsruden at genåbne bordet og se den nye postering dit program tilføjet.
7
Paste i IDE, følgende nye program under de to foregående. Dette program vil vise alle oplysningerne i KidsBooks tabellen. Dette program åbner en RecordSet objekt , som gjorde det forrige program . Denne gang dog er MoveNext funktion kaldet . Denne funktion flytter en intern indeks gennem hver af rækkerne i KidsBooks tabellen.
Public Sub visdata ()
Dim dBASE Som DAO.Database
Dim rst Som DAO . Recordset
Set dBASE = CurrentDb
Set rst = dbase.OpenRecordset ( " KidsBooks " )
Dim s As String
Do While Not rst.EOF
s = "Bog titel: " & rst [ BookName ] & " Forfatter: ". ! & rst [ Forfatter ]
MsgBox (r)
rst.MoveNext !
Loop
rst.Close
dbase.Close
End Sub
8
Kør programmet som du kørte to andre. Programmet vil vise en besked boks der viser " Troldmanden fra Oz " indrejse.