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 .