Microsoft Access er den database program i Microsoft Office-pakken. Udviklere tilpasse denne pakke ved at skrive programmer i sin programmeringssprog , Visual Basic for Applications ( VBA ) . Programmering Adgang sker ved at bruge VBA til at oprette og manipulere database objekter , herunder rapporter, tabeller, forespørgsler og indtastning af data former . For eksempel kan VBA automatisk at udfylde " køn " felt i en formular til indtastning magasin abonnent information, når den person ved hjælp af formularen indtaster almindelige navne i "fornavn " feltet. Programmering Access giver dig mulighed for at gøre data -entry og genfinding opgaver nemmere for dit holds brugere. Ting du skal
Microsoft Access
Vis Flere Instruktioner
1
Open Access og trykke på " Alt- F11 " for at indtaste kodning miljøet ( kaldet " IDE " for "integreret udviklingsmiljø ") for Access.
2
Klik på " Indsæt" menuen " Module" element for at skabe et nyt vindue til indtastning kode.
3 < p > Sæt ind i kodevinduet følgende program kode, som opretter en tabel med VBA : Hej
Sub makeATable ()
Dim db som database , td som TableDef f som Field
< p> Set db = CurrentDb
Set tbl = dbs.CreateTableDef ( " brugerinfo " )
Set FLD = tbl.CreateField ( " Fornavn" , dbText )
tbl . Fields.Append f
dbs.TableDefs.Append tb
' dbs.TableDefs.Refresh
End Sub
4
Kør programmet ved klikke på ethvert udsagn i det og trykke på " F5 ".
5
Tryk på " Alt- F11 " for at vende tilbage til den primære Access interface, og klik derefter på navigationsruden s " <<" knappen, og derefter dens " >> " knappen. Du vil se en ny tabel skabt af dit program. Læs flere oplysninger om oprettelse tabeller med VBA på MSDN siden "Opret og Slet tabeller " siden.
6
Type et par prøve fornavne i den nye tabel til at levere data til VBA forespørgsel vil du skabe næste
7
Tryk på " Alt- F11 " for at vende tilbage til kodningen miljø og indsætte denne nye sub- rutine under den første, du skrev : .
Public sub makeQuery ()
Dim db Som DAO.Database
Dim QD Da DAO.QueryDef
Dim str As String
Set db = CurrentDb
Ved fejl GoTo DontDelete
db.QueryDefs.Delete " qUser "
DontDelete : Hej
str = " SELECT * FROM brugerinfo , "
Set qd = db.CreateQueryDef ( " qUser " , str. )
End sub
8
Kør nye sub- rutine , som du gjorde den første , og derefter vende tilbage til Access og kigge efter nye forespørge din kode oprettet. Det hedder " qUser ".
9
Dobbeltklik på " qUser " for at køre forespørgslen . Adgang vil vise alle de navne, du har indtastet i " brugerinfo " tabellen.
10
Oprette en rapport ved at klikke på " brugerinfo " element i navigationsruden og derefter klikke på " Rapport" på værktøjslinjen. Du skal skrive et VBA -program, der filtrerer rapporten for en bestemt værdi , du har indtastet i trin 6. .
11
Højreklik på den nye rapport fane og vælg " Designvisning ". Klik på den nedadgående pil i " On Load " tilfælde af af rapportens "Event "-fanen skærmen til højre. Denne handling vil du tilbage til VBA IDE .
12
Indsæt følgende kode i IDE. Erstat teksten " " med nogen særlig værdi , du indtastede i trin 6. .
Private Sub Report_Load ()
Me.Filter = " firstname =" " "" "
Me.FilterOn = Sand
End Sub
13
køre rapporten ved at trykke på" Alt- F11 "for at vende tilbage til Access , højreklikke på rapportens fanen og vælge " Report View ". Adgang vil vise rapporten, som vil kun vise den post, du har skrevet for filteret i trin 12 . Læs mere om brug VBA med rapporter om Access-rapporter siden.
