Microsoft Access , en del av Microsoft Office-paketet , är ett program för att skapa och hantera data . Visual Basic for Applications ( VBA ) är ett skriptspråk som Office utvecklare använder för att utföra operationer på dessa data , inklusive frågor som kräver lite eller ingen åtgärd från användaren . Köra frågor i VBA tillåter utvecklare att skriva program som kan producera de data som programmen behöver köra . Till exempel kan de skriva ett VBA -program som automatiskt genererar en månatlig rapport visar medel som betalas ut till de anställda . Instruktioner
1
Öppna en befintlig databas i Access . Klicka på " Query Design " ikonen i " Skapa " -menyn för att starta en ny sökning .
2
Dubbelklicka på den översta posten i " Visa tabell " i dialogrutan som visas för att ange bordet från som du vill göra en förfrågan .
3
Dubbelklicka på " * " tecknet i det lilla fönstret som visar namnen på alla fält i tabellen du valde att fråga . Denna åtgärd skapar en fråga som hämtar data från alla tabellens fält på en gång . Skriv ner namnet på någon av tabellens fält ( utom asterisk ) . Din VBA fråga kommer att rapportera data för detta område .
4
Tryck " Ctrl + S " för att visa dialogrutan begära frågans namn . Typ " Fråga1 " och klicka sedan på " OK " för att spara frågan .
5
Tryck " Alt + F11 " för att gå in i Visual Basic integrerad utvecklingsmiljö ( IDE ) och klicka sedan på " Module " posten under " Infoga " -menyn . Detta ger en ny kod fönster där du kan skriva in ditt program .
6
Skriv eller klistra in det program som följer helst i den nya koden modulens fönster . Typ över texten " YOUR_FIELD_NAME " med namnet på det fält som du antecknade i steg 3 .
Public Sub runQuery ( ) katalog
Const cstrQueryName = " Fråga1 "
Dim dbs Som DAO.Database
Dim rst Som DAO.Recordset
Set dbs = CurrentDb
" Open postmängd på befintlig fråga
Set rst = dbs . OpenRecordset ( cstrQueryName ) katalog
'Gå igenom alla posterna
Do While Not rst.EOF
Debug.Print RST ! [ YOUR_FIELD_NAME ]
rst.MoveNext
Loop
" Stäng recordset och databas
rst.Close
dbs.Close
End Sub
samtalet till OpenRecordset funktionen kör din sparad fråga , " Fråga1 . " Uttalandena mellan " Do While " till "loop" uttalanden iterate ( med andra ord , en slinga ) genom varje post i tabellen du valde att fråga . Den " Debug.Print " uttalande visar postens uppgifter för det fält som du har valt .
7
Klicka någonstans inne i " runQuery " subrutin du just skrev och tryck " F5 " för att köra subrutinen . Tryck " Ctrl + G " för att visa IDE : s " Omedelbar " fönstret ( om det inte redan är synlig ) . Fönstret kommer att visa alla poster för det fält som du har valt .
