Microsoft Access , en del av Microsoft Office-pakken , er et program for å opprette og administrere data . Visual Basic for Applications ( VBA ) er et skriptspråk som Office- utviklere bruker til å utføre operasjoner på disse dataene , herunder spørsmål som krever liten eller ingen brukermedvirkning . Kjører spørringer i VBA lar utviklere skrive programmer i stand til å produsere dataene programmene trenger for å kjøre . For eksempel kan de skrive en VBA- program som automatisk genererer en månedlig rapport som viser midler som utbetales til ansatte . Instruksjoner
en

Åpne en eksisterende database i Access. Klikk på " Query Design "-ikonet i " Lag "-menyen for å begynne en ny spørring .
2

Dobbeltklikk på øverste elementet i " Vis tabell " i dialogboksen som vises for å angi bordet fra som du ønsker å lage en spørring .
3

Dobbeltklikk på "* "-tegnet i det lille vinduet som viser navnene på alle feltene i tabellen du valgte å spørre . Denne handlingen skaper en spørring som henter data fra alle tabellens felter samtidig. Notere ned navnet på en av tabellens felt (unntatt asterisk) . Din VBA søket vil rapportere data for dette feltet .
4

Trykk " Ctrl + S " for å vise dialogboksen ber spørringen navn. Type " Query1 " og klikk "OK" for å lagre spørringen .
5

Trykk " Alt + F11 " for å gå inn i Visual Basic integrert utviklingsmiljø (IDE ) og klikk deretter på " Module" element under "Insert "-menyen . Dette gir en ny kode vindu der du kan skrive inn ditt program .
6

Skriv eller lim programmet som følger hvor som helst i den nye koden modulen vindu. Skriv over teksten " YOUR_FIELD_NAME " med navnet på feltet du noterte ned i trinn tre .

Public Sub RunQuery ( )

Konst cstrQueryName = " Query1 "

Dim dBS Som DAO.Database

Dim rst Som DAO.Recordset

Set dBS = CurrentDb

'Open recordset på eksisterende spørring

Sett rst = dBS . OpenRecordset ( cstrQueryName )

' Loop gjennom alle postene

Mens Ikke rst.EOF

Debug.Print rst ! [ YOUR_FIELD_NAME ]

rst.MoveNext

Loop

' Lukk recordset og database

rst.Close

dbs.Close

End Sub
< p > Kallet til OpenRecordset funksjonen kjører den lagrede spørringen , " Query1 . " Uttalelsene mellom " Do While " til " Loop " uttalelser ITERATE (med andre ord , loop ) gjennom hvert av postene i tabellen du valgte å spørre. Den " debug.print " statement viser rekordhøye data for feltet du valgte .
7

Klikk hvor som helst inne i " RunQuery " subrutine du nettopp skrev og trykk "F5 " for å kjøre subrutine . Trykk " Ctrl + G " for å vise IDE er " Immediate " vinduet (hvis det ikke allerede er synlig) . Vinduet vil vise alle postene for det feltet du valgte .