Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 otvorený prístup a kliknite na " Vytvoriť " nadpis ponuky , nasledovaný " Tabuľka " . Budete vytvoriť malú tabuľku vykonať VBA trochu ďalej . 
 2 
 Dvakrát kliknite na hlavičku stĺpca " Tabuľka 1 je " a zadajte " Meno " zadajte niekoľko mien v danom stĺpci . Uistite sa , každé meno začína iným písmenom abecedy , takže môžete jasne vidieť vplyv VBA druh , ktorý nasleduje . Z rovnakého dôvodu sa uistite , že zadáte mená v netriedeného poradí . Napríklad , zadajte názvy " Carol " , " Bob " a " Amanda " , v tomto poradí . 
 3 
 Stlačte tlačidlo " Ctrl " + " S " , zadajte " UserInfo " pre názov tabuľky . 
 4 
 Kliknite na " Vytvoriť " menu hlavičky, kliknite na tlačidlo " Ďalšie " panelu " Query Design " . Budete vytvoriť dotaz pre triedenie programu VBA na vykonanie . 
 5 
 Double - kliknite na " UserInfo " položku v dialógovom okne " Zobraziť tabuľku " , potom kliknite na tlačidlo v dialógovom okne je " Close " . 
 6 
 Presuňte " * " , ktorá predstavuje všetky polia v tabuľke , na prvú farbu mriežky dotazu . 
 7 
 pravým tlačidlom myši na " Query1 " kartu , potom vyberte " zobrazenie SQL . " Zadajte nasledujúce bezprostredne po " Z UserInfo " klauzula : " . Meno " . 
 
 Zoradiť podľa 
 
 Táto nová klauzula ukladá dáta pri pripojení spustí dotaz 
 8 
 Stlačte tlačidlo " Ctrl " + " S " , zadajte " q1 " pre názov dotazu . 
 9 
 Stlačte tlačidlo " Alt " + " F11 " zadať VBA integrované vývojové prostredie ( IDE ) , čo je miesto , kde si budete môcť zadať kód programu pre triedenie " UserInfo " tabuľku 
 10 
 Kliknite na " Vložiť " " Modul " položky v menu , vložte nasledujúci programový kód do okna modulu . : 
 
 Public Sub doQuery ( ) 
 
 Const QName = " q1 " 
 
 Dim DB1 ako DAO.Database 
 
 Dim RS1 ako DAO.Recordset 
 
 Set DB1 = CurrentDb 
 
 Set RS1 = db1.OpenRecordset ( QName ) 
 
 robiť , keď nie je rs1.EOF 
 
 Debug.Print " Name : " a RS1 ! [ jmeno ] 
 
 rs1.MoveNext 
 
 Loop 
 
 rs1.Close 
 
 db1.Close 
 
 End Sub 
 
 Tento program otvorí a zobrazí sa záznamy o virtuálne objekt s názvom záznamov . Recordset výsledky z vykonávania dotazu ste práve vytvorili . 
 11 
 Kliknite na akékoľvek vyhlásenie v programe , potom stlačte " F5 " pre spustenie programu . Stlačte tlačidlo " Ctrl " + " G " , ak nechcete zobraziť okno " bezprostrednej " . Toto okno sa zobrazí výsledky " q1 " radené dotaz , ktorý ste vytvorili .