Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 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 & . "