Microsoft Access , en del af Microsoft Office-pakken , er et program til at oprette og administrere data. Visual Basic for Applications ( VBA ) er et scriptsprog, Office -udviklere bruge til at udføre operationer på disse data , herunder forespørgsler , der kræver lidt eller ingen indgriben fra brugeren . Løb forespørgsler VBA giver udviklere mulighed for at skrive programmer i stand til at producere de data programmerne har brug for at køre. For eksempel kan de skrive en VBA -program, der automatisk genererer en månedlig rapport, der viser udbetalte midler til medarbejderne. Instruktioner
1
Åbn en eksisterende database i Access. Klik på " Query Design " ikonet i "Opret "-menuen for at begynde en ny forespørgsel .
2
Dobbeltklik på den øverste post i " Vis tabel " dialogboks, der vises for at angive bordet fra som du ønsker at gøre en forespørgsel.
3
Dobbeltklik på "*" tegnet i det lille vindue, der viser navnene på alle de felter i tabellen , du har valgt at forespørge . Denne handling opretter en forespørgsel, der henter data fra alle tabellens felter på én gang. Notere ned navnet på en af tabellens felter (undtagen asterisk) . Din VBA forespørgsel vil rapportere data til dette felt.
4
Tryk på " Ctrl + S " for at få vist dialogboksen anmoder forespørgslens navn. Type " forespørgsel1 " og derefter klikke på "OK " for at gemme forespørgslen .
5.
Tryk på " Alt + F11 " for at indtaste Visual Basic integrerede udviklingsmiljø (IDE) , og klik derefter på " Module" element under "Indsæt" -menuen. Dette giver en ny kode vindue, hvor du kan indtaste dit program.
6
Indtast eller indsæt det program, der følger overalt i den nye kode modulets vinduet. Type over teksten " YOUR_FIELD_NAME " med navnet på det felt, du skrevet ned i trin 3. .
Public Sub runQuery ()
Const cstrQueryName = " forespørgsel1 "
Dim DBS Som DAO.Database
Dim rst Som DAO.Recordset
Set dbs = CurrentDb
'Åbn postsættet på eksisterende forespørgsel
Set rst = dbs . OpenRecordset ( cstrQueryName )
' Loop igennem alle records
Do While Not rst.EOF
Debug.Print rst ! [ YOUR_FIELD_NAME ]
rst.MoveNext
Loop
' Luk postsættet og database
rst.Close
dbs.Close
End Sub
< p > opkaldet til OpenRecordset funktionen kører dine gemte forespørgsel, " forespørgsel1 ". Udsagnene mellem " Do While " til " Loop " udsagn gentage (med andre ord , loop ) gennem hvert af de poster i tabellen , du har valgt til forespørgslen . Den " Debug.Print " erklæring viser records data for det felt, du har valgt.
7
Klik et vilkårligt sted inde i " runQuery " subrutine du lige skrev og derefter trykke på " F5 " for at køre underprogram. Tryk på " Ctrl + G " for at vise IDE 's " Immediate " vinduet (hvis det ikke allerede er synlig) . Vinduet vil vise alle posterne for det felt, du har valgt.
