How to Program Microsoft Access Med Visual Basic
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 inngår felles navn i "fornavn" feltet. Programmering Access gir deg muligheten til å gjøre dataregistrering og henting oppgavene enklere for lagets brukere.
Bruksanvisning
1 Open Access og trykk "Alt-F11" for å gå inn i kodingen miljøet (kalt "IDE" for "integrert utviklingsmiljø") for Access.
2 Klikk på "Sett inn" menyen "Module" element for å skape et nytt vindu for å legge inn kode.
3 Lim inn koden vinduet følgende programkode, noe som skaper en tabell med VBA:
Sub makeATable ()
Dim db As Database, td Som TableDef- f As Feltet
Sett db = CurrentDb
Sett tbl = dbs.CreateTableDef ( "userinfo")
Set 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 "F5".
5 Trykk "Alt-F11" for å returnere til hoved Tilgang grensesnittet, og klikk deretter navigeringsruten er "<<" -knappen, deretter sin ">>" -knappen. Du vil se en ny tabell som er opprettet av programmet. Les mer om hvordan du oppretter tabeller med VBA på MSDN side "Opprette og slette bord" side.
6 Skriv noen eksempler fornavn i den nye tabellen 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
Sett db = CurrentDb
På Error GoTo DontDelete
db.QueryDefs.Delete "qUser"
DontDelete:
str = "SELECT * FROM userinfo;"
Set 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 den nye spørringen 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 angav i trinn 6.
11 Høyreklikk på den nye rapporten fane og velg "Design view." Klikk på pil som peker nedover i "På Load" begivenhet av kategorien rapportens "hendelse" på skjermen til høyre. Denne handlingen vil ta deg tilbake til VBA IDE.
12 Lim inn følgende kode i IDE. Bytt ut teksten "<ENTER verdien av en bestemt ROW>" med en bestemt verdi du angav i trinn 6.
Private Sub Report_Load ()
Me.Filter = "fornavn =" "<ENTER verdien av en bestemt rad>" ""
Me.FilterOn = True
End Sub
1. 3 Kjør rapporten ved å trykke på "Alt-F11" for å gå tilbake til Access, høyreklikke rapportens fanen og velge "Rapporter 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.