Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Kliknite na záložku " Vytvoriť " v programe Access a zvoľte " Návrh formulára . " Program vytvorí nový formulár . Vyberte ovládacie tlačidlá " " pod " Controls " panelu a presuňte kurzor myši na novej podobe . Kliknite ľavým tlačidlom myši a vytvoriť nové tlačidlo . Pridať " zoznamu " riadenie do formulára rovnakým spôsobom ste pridali tlačidlá . 
 2 
 Pravým tlačidlom myši na pole so zoznamom a vyberte " Vlastnosti " . Na " vlastností " kliknite na záložku " Data " a vyberte rozbaľovací zoznam na " Typ zdroja riadkov " a vyberte " Zoznam hodnôt . " 
 3 
 Kliknite pravým tlačidlom myši na tlačidlo Nový a vyberte " Vlastnosti " . Na " Hárok vlastností " , kliknite na záložku " udalostí " a vyberte roletového menu na " On Kliknite na " a vyberte položku " [ Event Procedure ] . " Kliknite na výpustka ( ... ) a nový Microsoft Visual Basic sa otvorí okno 
 4 
 Zadajte nasledujúci príkaz : . 
 
 Dim dbs ako databáza 
 
 Dim rst Ako Recordset 
 
 Dim X As Integer 
 
 Dim strSQL As String Dim 
 
 lastFirst As String 
 
 deklarovať premenné , ktoré budete používať . 
 
 5 
 Typ : . 
 
 Set DBS = CurrentDb 
 
 nastaviť aktuálnu databázu 
 
 Typ : 
 
 strSQL = " CREATE TABLE Table1 ( Jmeno TEXT ( 25 ) , priezvisko TEXT ( 25 ) ) ; . " 
 
 DoCmd.RunSQL ( strSQL ) 
 
 na vytvorenie novej tabuľky v databáze s názvom " Tabuľka 1 " 
 
 6 
 Typ : 
 
 strSQL = " INSERT INTO Tabuľka 1 ( [ Meno ] , [ Priezvisko ] ) " 
 
 strSQL = strSQL & " VALUES ( ' John ' , ' Smith ' ) . " 
 
 DoCmd.SetWarnings False 
 
 DoCmd.RunSQL ( strSQL ) 
 
 vložte prvý riadok údajov 
 7 
 Typ : 
 
 strSQL = " INSERT INTO Tabuľka 1 ( [ Meno ] , [ Priezvisko ] ) " 
 
 strSQL = strSQL & " VALUES ( ' Jaime ' , ' Avelar ' ) ; " 
 < . p > DoCmd.SetWarnings False 
 
 DoCmd.RunSQL ( strSQL ) 
 
 vložiť druhý riadok dát 
 8 
 Typ : 
 
 set rst = dbs.OpenRecordset ( "Tabuľka 1 " ) 
 
 nastaviť rekord 
 
 Typ : . 
 
 rst.MoveFirst 
 
 X = 0 Ak chcete rst.RecordCount - 1 
 
 lastFirst = Trim ( . rst.Fields ( " LastName " ) Value ) & " " & Trim ( rst.Fields ( " . Jmeno " ) Value ) 
 
 List1.AddItem lastFirst 
 
 rst.MoveNext 
 
 Ďalšie X 
 
 na priechodná záznamy , ktoré ste práve vytvorili a zobrazovať ich v zozname na formulári . 
 
 9 
 Typ : 
 
 MsgBox " Vy ste zobrazené všetky záznamy vo Table1 na zozname úspešne ! " , vbInformation 
 
 sa zobrazí správa . Prepnite späť do okna programu Access 2007 a kliknite na tlačidlo " View " pre spustenie formulára . Kliknite na tlačidlo " Command0 " a uvidíte ovládací prvok zoznam zobrazujúci názvy .