Microsoft Access er databasen program i Microsoft Office-pakken. Utviklere tilpasse denne suiten ved å skrive programmer i sin programmeringsspråk, Visual Basic for Applications ( VBA ) . Programmering Tilgang innebærer å bruke VBA til å opprette og manipulere databaseobjekter , inkludert rapporter, tabeller, spørringer og dataregistrering former. For eksempel kan VBA automatisk fylle ut " kjønn " felt i et skjema for å legge inn magasinet abonnent informasjon , når personen ved hjelp av skjemaet trer vanlige navn i "fornavn" feltet . Programmering Access gir deg muligheten til å lage data -entry og henteoppgavene lettere for lagets brukere. Du trenger
Microsoft Access
Vis flere instruksjoner
en

Open Access og trykk på "Alt- F11 " for å gå inn i kodemiljø (kalt " IDE " for "integrert utviklingsmiljø ") for Access.
2

Klikk på " Insert " -menyen er " Module" element for å skape et nytt vindu for å legge inn koden .
3

Lim inn koden vinduet følgende programkode, noe som skaper et bord med VBA : en

Sub makeATable ( )

Dim db As Database , td som TableDef , f som Felt
< p> Set db = CurrentDb

Set tbl = dbs.CreateTableDef ( " UserInfo ")

Sett fld = tbl.CreateField ( " fornavn " , dbText )

tbl . Fields.Append f

dbs.TableDefs.Append tb

' dbs.TableDefs.Refresh

End Sub
4

Kjør programmet ved klikke på noen uttalelse i den og trykke på " F5 ".
5

Trykk " Alt- F11 " for å returnere til rektor Tilgang grensesnittet , og klikk deretter navigasjonsruten er " << "-knappen, deretter sin " >> "-knappen . Du vil se en ny tabell som er opprettet av programmet. Les mer om å opprette tabeller med VBA på MSDN side " opprette og slette tabeller " side .
6

Type noen eksempler på fornavn i det nye bordet for å gi data for VBA spørringen du vil lage neste
7

Trykk " Alt- F11 " for å gå tilbake til koding miljø og lim inn denne nye sub - rutine under den første du skrev : .

Public sub makeQuery ( )

Dim db As DAO.Database

Dim qd Som DAO.QueryDef

Dim str As String

Set db = CurrentDb

on Error GoTo DontDelete

db.QueryDefs.Delete " qUser "

DontDelete : en

str = "SELECT * FROM UserInfo ; "

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

End sub ​​
8

Kjør den nye sub - rutine som du gjorde den første, deretter tilbake til Access og se etter nye spørre koden opprettet. Det kalles " qUser . "
9

Dobbeltklikk på " qUser " for å kjøre spørringen . Tilgang vil vise alle navnene du skrev i " UserInfo " tabellen .
10

Opprette en rapport ved å klikke på " UserInfo " element i navigasjonsruten , og deretter klikke på " Report" på verktøylinjen. Du skal skrive en VBA program som filtrerer rapporten for en bestemt verdi du skrev inn i trinn 6 .
11

Høyreklikk den nye rapporten kategorien og velg " Design visning. " Klikk på pilen som peker nedover i "På Load" tilfelle av av rapporten "Event "-fanen på skjermen rett . Denne handlingen vil ta deg tilbake til VBA IDE .
12

Lim inn følgende kode i IDE . Erstatt teksten " " med en bestemt verdi du angav i trinn 6 .

Private Sub Report_Load ( )

Me.Filter = " fornavn = " " "" "

Me.FilterOn = sant

End Sub
13

Kjør rapporten ved å trykke på " Alt- F11 "for å gå tilbake til Access høyreklikke rapportens fanen og velge" Report View. " Tilgang vil vise rapporten , som vil vise bare posten du skrev for filteret i trinn 12 . Les mer om bruk av VBA med rapporter om Access rapporter.