Microsoft Access is het database- programma in de Microsoft Office-suite . Ontwikkelaars pas deze suite door het schrijven van programma's in haar programmeertaal , Visual Basic for Applications ( VBA ) . Programmeren Access gaat met behulp van VBA om database- objecten , zoals rapporten , tabellen, query's en data-entry formulieren maken en manipuleren . Bijvoorbeeld , kan VBA automatisch het veld " gender" bevolken in een formulier voor het invoeren tijdschrift abonnee-informatie , wanneer de persoon die het formulier binnenkomt gemeenschappelijke namen in het veld " voornaam" in . Programming Access geeft u de mogelijkheid om data- invoer en opvraag van taken gemakkelijker te maken voor de gebruikers van uw team . Wat je nodig hebt
Microsoft Access
Toon Meer Aanwijzingen
1 Open Access en druk op ' Alt - F11 "om de codering milieu ( de" IDE " in te voeren " geïntegreerde ontwikkelomgeving " ) voor Access . kopen van 2 Klik op " Module " punt in het menu ' Insert ' om een nieuw venster voor het invoeren van code.
3 Plakken in het code -venster het volgende programmacode , die een tafel creëert met VBA : Sub makeATable
( ) Dim db
Als Database , td Zoals TableDef , f Als Field
Set db = CurrentDb
Set tbl = dbs.CreateTableDef ( " Userinfo " ) op Twitter Stel fld = tbl.CreateField ( " firstName " , dbText ) tbl
. Fields.Append f dbs.TableDefs.Append tb
'
dbs.TableDefs.Refresh End Sub
4
Start het programma door klikken op een verklaring in het en druk op " F5 . "
Press 5 " Alt - F11 " om terug te keren naar de belangrijkste Access -interface , klik vervolgens op " << " knop het navigatievenster 's , dan de " >> " knop . Je zult een nieuwe tabel aangemaakt door uw programma te zien . Lees meer informatie over het maken van tabellen met VBA op de MSDN pagina pagina "Create en Delete tabellen " .
Type 6 een paar voorbeeld voornamen in de nieuwe tabel om gegevens voor de VBA vraag u zult bieden creëren volgende
Press 7 " Alt - F11 " om terug te keren naar de codering milieu en plak deze nieuwe sub - routine onder de eerste die je schreef : . Public Sub makeQuery ( ) op Twitter Dim db
Zoals DAO.Database Dim qd
Zoals DAO.QueryDef Dim str
als Koord 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
Voer de nieuwe sub - routine als u de eerste die dat deed, dan terug naar Access en zoek naar de nieuwe bevragen uw code aangemaakt . Het heet " qUser . "
Dubbelklik op " qUser " 9 op de query uit te voeren . Access zal u in de " Userinfo " table ingevoerd alle namen weer te geven .
10 Maak een rapport door op de " Userinfo " in het navigatievenster , vervolgens klikken op " Report" op de werkbalk . Je hebt een VBA programma dat het rapport filtert voor een bepaalde waarde die u in stap 6 ingevoerde schrijven .
11 Klik met de rechtermuisknop op de tab nieuwe rapport en selecteer "Design view . " Klik op de pijl naar beneden in de " On Load " event van het tabblad van het rapport "Event " op het scherm rechts . Deze actie gaat u terug naar de VBA IDE .
12 Plak de volgende code in de IDE . Vervang de tekst " " met u in stap 6 ingevoerde geen bijzondere waarde . Private Sub Report_Load ( ) op Me.Filter
= " firstName = " " " " " Me.FilterOn = True End Sub
13
Voer het rapport door op ' Alt - F11 "om terug te keren naar Access , rechtermuisknop op het tabblad van het rapport en het selecteren van " Report View . " Toegang zal het verslag , waarin alleen de record die u hebt getypt voor het filter in stap 12 zal laten zien . Lees meer over het gebruik van VBA met verslagen over de Access Rapporten pagina .
|
