hvordan man programmerer Microsoft Access med Visual Basic

Indlæg af Birthe Møller     opdateret: 2011-10-23

Microsoft Access er den database program i Microsoft Office-pakke. Udviklere tilpasse denne suite ved at skrive programmer i det programmeringssprog, Visual Basic for Applications ( VBA ) . Programmering Adgang sker ved at bruge VBA til at skabe og manipulere database objekter , herunder rapporter , tabeller , forespørgsler og dataindtastning formularer. For eksempel kan VBA automatisk udfylde " køn " felt i en formular til indtastning af magasinet abonnent oplysninger , når den person ved hjælp af formularen træder almindelige navne i " fornavn " feltet . Programmering Access giver dig muligheden for at foretage data- adgang og hentning opgaver nemmere for dit team 's brugere

Du skal bruge: .
Microsoft Access


1
. Open Access og trykke på " Alt-F11 "for at indtaste kodning miljøet ( kaldet " IDE " til " integreret udviklingsmiljø " ) til Access .
2 .
Klik på " Indsæt "menuen 's " Modul " punkt for at oprette et nyt vindue for at indtaste kode
3
Indsæt i kodevinduet følgende programkode , der opretter en tabel med VBA : .


Sub makeATable ( )

Dim db som database , Td, TableDef , f Som Field

Set db=CurrentDb

Set tbl=DBS . CreateTableDef ( " UserInfo " )
Set Fld=tbl. CreateField ( " Fornavn " , dbText )

tbl. Fields. Append f

dbs. TableDefs. Append tb
' dbs. TableDefs. Refresh

End Sub

4 .
Kør programmet ved at klikke på en erklæring, i det og trykke på " F5 ".
5 .
Tryk på " Alt-F11 " for at vende tilbage til den hovedforpligtede Adgang interface, og klik derefter på navigationsruden 's " <" knappen , derefter sin " > > " knappen . Du vil se et nyt bord er oprettet af dit program . Læs mere information om oprettelse af tabeller med VBA på MSDN side " Opret og Slet tabeller " side .
6 .
Skriv et par prøve fornavne i den nye tabel til at fremlægge data VBA forespørgsel skal du oprette næste
7
Tryk på " Alt-F11 " for at vende tilbage til kodningen miljøet og indsæt dette nye sub-rutine under den første , du skrev : .


Public Sub makeQuery ( )

Dim db Som DAO. Database
Dim qd Som DAO. QueryDef
Dim str As String

Set db=CurrentDb


On Error GoTo DontDelete

db . QueryDefs. Delete " qUser "

DontDelete :
str=" SELECT * FROM UserInfo "


Set qd=db. CreateQueryDef ( " qUser " , str. )

End Sub
8 .

Kør den nye sub-rutine , som du gjorde den første , og derefter vende tilbage til Access og kigge efter den nye forespørgsel din kode oprettet . Det kaldes " qUser . "
9 .
Dobbeltklik på " qUser "for at køre forespørgslen . Access vise alle de navne du har indtastet i " UserInfo "-tabellen .
10 .
Oprette en rapport ved at klikke på " UserInfo -punkt i navigationsruden og derefter klikke på " Rapport " på værktøjslinjen. Du skal skrive en VBA program , der filtrerer rapporten for en bestemt værdi du indtastede i trin 6 .
11 .
Højreklik på den nye rapport er fanen og vælg " Designvisning ". Klik på den nedadgående pil i " On Load " begivenhed af den af rapportens " Event "-fanen på skærmen til højre . Denne handling vil returnere dig 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=" Fornavn=" " "" "
Me. FilterOn=True
End Sub
13 .
køre rapporten ved at trykke " Alt-F11 " for at vende tilbage til Access , højreklikke på rapportens fanen og vælge " Rapport View. " Adgang vil vise rapporten , som vil vise kun den post, du har skrevet for filteret i trin 12 . Læs mere om brug af VBA rapporter om adgang rapporter.


Previous:hvordan man debug en syntaksfejl Next:hvordan man åbner en postsættet



 

Kommentarer

Code:
change