Microsoft Access är en databas program i Microsoft Office-paketet . Utvecklare skräddarsy denna svit genom att skriva program i programmeringsspråk , Visual Basic for Applications ( VBA ) . Programmering Åtkomst innebär att använda VBA för att skapa och manipulera databasobjekt , inklusive rapporter, tabeller, frågor och uppgifter anmälningsblanketter . Till exempel , kan VBA befolkar automatiskt " genus " fältet i ett formulär för att ange tidningen abonnentuppgifter , när personen med hjälp av formuläret går vanliga namn i " förnamn " fältet . Programmering Access ger dig möjlighet att göra data -entry och uppgifter hämtning lättare för lagets användare . Saker du behöver
Microsoft Access
Visa fler instruktioner
1
Open Access och tryck på " Alt - F11 " för att ange kodning miljö ( kallad " IDE " för " integrerad utvecklingsmiljö " ) för Access .
2
Klicka på " Infoga " -menyn är " Module " objekt för att skapa ett nytt fönster för att ange koden .
3
Klistra in koden fönstret följande programkod , vilket skapar en tabell med VBA :
Sub makeATable ( ) katalog
Dim db som databas , td som TableDef f som Field
Set db = CurrentDb
Set tbl = dbs.CreateTableDef ( " userinfo " ) katalog
Set FLD = tbl.CreateField ( "Förnamn " , dbText ) katalog
tbl . Fields.Append f
dbs.TableDefs.Append tb
" dbs.TableDefs.Refresh
End Sub
4
Kör programmet genom klicka på någon förklaring i den och trycka på " F5 ".
5
Tryck " Alt - F11 " för att återgå till den huvudsakliga tillgång gränssnittet , klicka navigeringsfönstret s " << " -knappen , och sedan sin " >> " knappen . Du ser en ny tabell skapas av ditt program . Läs mer information om hur du skapar tabeller med VBA på MSDN sidan " Skapa och ta bort tabeller " sidan .
6
Typ några exempel förnamn i den nya tabellen för att lämna uppgifter för VBA frågan kommer du skapa nästa
7
Tryck " Alt - F11 " för att återgå till den kodande miljön och klistra in den här nya sub - rutin under den första 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 ) katalog
End sub
8
Kör nya sub - rutin som du gjorde den första , sedan tillbaka till Access och leta efter nya fråga din kod skapas . Det kallas " qUser . "
9
Dubbelklicka på " qUser " för att köra frågan . Tillträde kommer att visa alla de namn du angav i " userinfo " bord .
10
Skapa en rapport genom att klicka på " userinfo " objektet i navigeringsfönstret och sedan klicka på " Anmäl " i verktygsfältet . Du ska skriva ett VBA -program som filtrerar rapporten för ett visst värde som du angav i steg 6 .
11
Högerklicka på den nya rapporten på fliken " Design. " Klicka på nedåtpilen i " On Load " händelse av för rapportens "Event " fliken på skärmen till höger . Denna åtgärd kommer du tillbaka till VBA IDE .
12
Klistra in följande kod i IDE . Ersätt texten " " med något särskilt värde som du angav i steg 6 .
Private Sub Report_Load ( ) katalog
Me.Filter = " förnamn = " " " " "
Me.FilterOn = Sant
End Sub
13
Kör rapporten genom att trycka " Alt - F11 " för att återvända till Access högerklicka rapportens fliken och välja " Rapportera View . " Tillträde kommer att visa rapporten , som visar endast den post du skrev för filtret i steg 12 . Läs mer om hur du använder VBA med rapporter om Access-rapporter sidan .
