• 
  

  hur man driver en fråga i Access VBA

  
  

Microsoft Access , som ingår i Microsoft Office-sviten , ä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 kunna producera de uppgifter som de program som behöver köra . Till exempel kan de skriva ett VBA program som automatiskt genererar en månatlig rapport som visar medel betalas ut till anställda .
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å det översta alternativet i " Visa tabell i dialogrutan som visas till Ange den tabell från vilken 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 den tabell som 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 . Anteckna namnet på någon av bordets fält ( utom asterisk ) . VBA- frågan kommer att rapportera uppgifter för detta område.
4 .
Tryck på " Ctrl + S " för att visa dialogrutan ansökande frågans namn . Skriv " fråga1 " och klicka sedan på " OK " för att spara frågan .
5 .
Tryck på " Alt + F11 " för att öppna Visual Basic integrerad utvecklingsmiljö (IDE ) och klicka sedan på " Modul " post under "Infoga " -menyn . Detta ger en ny kod fönster där du kan skriva in ditt program .
6 .
Skriv eller klistra in program som följer någonstans i den nya koden modulens fönster . Skriv över texten " YOUR_FIELD_NAME " med namnet på det fält som du antecknade i steg 3 .



Public Sub runQuery ( )

Const cstrQueryName=" fråga1 "

Dim dbs Som DAO. Database

Dim rst Som DAO. Recordset

Set DBS=CurrentDb

" Öppna recordset på befintlig fråga

Set rst=dbs. OpenRecordset ( cstrQueryName )



'Gå igenom alla poster

Har visserligen inte RST . EOF

Debug. Print RST ! [ YOUR_FIELD_NAME ]

rst. MoveNext

Loop

" Stäng recordset och databas

rst. Close

dbs. Close

End Sub



anrop till OpenRecordset funktionen kör din sparad fråga , " fråga1 . " Uttalandena mellan " göra medan "till " Loop " uttalanden iterera (med andra ord , slinga ) genom var och en av posterna i tabellen du valt att fråga . Den " Debug. Print " uttalande visar postens data för området du valde .
7 .
Klicka inuti den " runQuery " subrutin du just skrev och trycker "F5 "för att köra subrutin . Tryck "Ctrl + G "för att visa IDE : s " omedelbara " fönster ( om det inte redan syns ) . I fönstret visas alla poster för det fält som du valde .

Previous：nothing Next：Hur får jag ett intervall med värden från den sorterade listan i Java ?

Relaterade artiklar