Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na " Databázové nástroje " v aplikácii Microsoft Access 2007 a zvoľte " Visual Basic " , otvorte okno Basic Visual Microsoft . Kliknite na menu " Vložiť " a vyberte " modul " pre vytvorenie " Module1 . " 
 2 
 Typ " Public Sub myVBAQuery " a stlačte tlačidlo " Enter " pre vytvorenie novej podprogram . 
 
 Zadajte nasledujúce deklarovať svoje premenné : 
 
 Dim strSQL As String 
 
 Dim dbs ako databáza 
 
 Dim rst ako Recordset 
 
 Dim rstCnt As Integer 
 
 3 
 Zadajte nasledujúce definovať svoj dotaz a otvorte Recordset : 
 
 Set DBS = CurrentDb 
 
 strSQL = " . SELECT * FROM Tabuľka1 Table1 ; " 
 
 Set rst = dbs.OpenRecordset ( strSQL ) 
 4 
 zadajte nasledujúce prechádzať vaše Recordset displejom dát uložených v poli " 1 " v tabuľke : 
 
 rst.MoveFirst 
 
 rstCnt = 0 rst.RecordCount 
 
 MsgBox rst.Fields ( 1 ) . Hodnota 
 
 rst.MoveNext 
 
 Ďalšie rstCnt 
 
 Stlačte tlačidlo " Ctrl + S " pre uloženie podprogramu " Module1 " a bude k dispozícii pre vás na použitie v budúcnosti .