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 .