Ako spustiť dotazu v programe Access VBA

Microsoft Access , ktorý je súčasťou balíka Microsoft Office , je program pre vytváranie a správu dát . Visual Basic for Applications ( VBA ) je skriptovací jazyk , ktorý vývojárom Office použiť na vykonávanie operácií na týchto dát , vrátane otázok , ktoré vyžadujú len málo alebo žiadne užívateľské zásahy . Spustenie dotazov v jazyku VBA umožňuje vývojárom písať programy , ktoré sú schopné produkovať dát programy potrebné na spustenie . Napríklad , oni môžu napísať program , VBA , ktorý automaticky generuje mesačnú správu , v ktorej finančné prostriedky vyplatené zamestnancom . Pokyny dovolená 1

Otvorenie existujúcej databázy v programe Access . Kliknutím na ikonu " Otázka design " v menu " Create " začať nový dotaz .
2

Dvakrát kliknite na hornej položku v " Zobraziť tabuľku " v dialógovom okne , ktoré sa objavia zadať tabuľku zo ktoré chcete , aby dotaz .
3

Double - kliknite na " * " charakter v malom okne , ktoré sa zobrazí názvy všetkých polí v tabuľke , ktoré ste vybrali na dotaz . Táto akcia vytvorí dotaz , ktorý sťahuje dáta zo všetkých polí v tabuľke môže naraz . Zapíšte si meno jedného z polí v tabuľke môže ( okrem hviezdičkou ) . Vaša otázka VBA bude vykazovať dáta pre túto oblasť .
4

Stlačte tlačidlo " Ctrl + S " sa zobrazí dialógové okno požadujúce názov dotazu . Zadajte " Query1 " a potom kliknite na tlačidlo " OK " pre uloženie dotazu.
5

Stlačte tlačidlo " Alt + F11 " zadať Visual Basic integrované vývojové prostredie ( IDE ) a potom kliknite na " modul " položku v menu " Vložiť " . To vytvára nový kód okno , v ktorom môžete zadať svoj ​​program .
6

Zadajte alebo vložte program , ktorý nasleduje kamkoľvek v okne nový kód modulu . Prepíšte text " YOUR_FIELD_NAME " s názvom poľa , ktoré si zapísal v kroku 3.

Public Sub runQuery ( )

Const cstrQueryName = " Query1 "

Dim dbs Ako DAO.Database

Dim rst Ako DAO.Recordset

Set DBS = CurrentDb

" Otvoriť záznamov na existujúci dotaz

Set rst = DBS . OpenRecordset ( cstrQueryName )

" slučka cez všetky záznamy

robiť , keď nie je rst.EOF

Debug.Print rst ! [ YOUR_FIELD_NAME ]

rst.MoveNext

Loop

" Zavrite záznamov a databázu

rst.Close

dbs.Close

End Sub

Volanie funkcie OpenRecordset beží uložený dotaz , " Query1 . " Príkazy medzi " robiť , keď " k " zacyklenie " vyhlásenie iterácii ( inými slovami , slučky ) cez každý záznam v tabuľke , ktoré ste vybrali na dotaz . " Debug.Print " výkaz zobrazuje dáta záznamu pre oblasti , ktorú ste zvolili .
7

Kliknite na ľubovoľné miesto vo vnútri " runQuery " podprogram ste práve napísal a potom stlačte " F5 " spustiť podprogram . Stlačením tlačidla " Ctrl + G " sa zobrazí okno IDE je " bezprostredná " ( ak to nie je už vidieť ) . V okne sa zobrazia všetky záznamy v poli , ktorý ste zvolili .

• Predchádzajúca strana: Ako sa naučiť VBA pre aplikáciu Access 
• Ďalšia strana: Ako môžem nastaviť pole v MS Word 2007 pre prístup do VBA ?