Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky

Domáce Hardware Siete Programovanie Softvér Otázka Systémy

Ako vytvoriť dotaz v programe Access VBA

Vedieť , ako rýchlo vytvoriť dotaz v programe Microsoft Access a potom používať ho pomocou jazyka Visual Basic for Applications ( VBA ) vám môže ušetriť čas . Access je relačný databázový systém , ktorý je súčasťou balíka Microsoft Office . Otázka sa používa na načítanie dát z databázovej tabuľky . VBA je programovací jazyk , ktorý sa používa na automatizáciu rutinných úloh v programe Access a ďalších aplikácií balíka Microsoft Office . V niekoľkých krokoch môžete vytvoriť podprogram pomocou VBA dotaz na dáta z tabuľky Zamestnanci v databáze Northwind . Veci , ktoré budete potrebovať v Microsoft Office Access
Zobraziť ďalšie inštrukcie Cestuj 1

Otvorte databázu Northwind Access . Databáza Northwind je súčasťou balíka Microsoft Office .
2

Kliknite na " Vytvoriť " a vyberte " Návrh dotazu . " Vyberte " tabuľky " kartu , zvoľte " Zamestnanci " a potom kliknite na tlačidlo " Pridať " . Zvoľte " Close " .
3

Double - kliknite na " spoločnosť " , " Priezvisko " a " Meno " pridať pole . Zvoľte " Zobrazenie SQL " v " Výsledky " panelu . Stlačte tlačidlo " Ctrl " a " C " skopírovať výberový dotaz .
4

Kliknite na " Databázové nástroje " a potom vyberte " Visual Basic " . Zadajte nasledujúci príkaz na vytvorenie novej podprogram : " . Enter "

Private Sub createVBAQuery ( )

Tlačové
5

Zadajte nasledujúce deklarovať svoje premenné :

Dim strSQL As String

Dim rst ako Recordset

Dim dbs ako databáza

Set DBS = CurrentDb
6

Press " Ctrl " a " V " pre vloženie výberový dotaz vnútri podprogramu . Pridať " strSQL = " na začiatku svojho dotazu a pridať koncovej úvodzovky na konci vášho dotazu takto : ..

strSQL = " SELECT Employees.Company , zamestnancov [ Priezvisko ] , zamestnanci [ Meno ] FROM Zamestnanci ; "
7

zadajte nasledujúce otvorte výberový dotaz a zobrazte výsledky

Set rst = dbs.OpenRecordset ( strSQL )

rst . . MoveLast

rst.MoveFirst

robiť , keď nie je rst.EOF

Debug.Print rst.Fields ( 0 ) Value & . "

Najnovšie články

Copyright © počítačové znalosti Všetky práva vyhradené