Vitajte na [www.pocitac.win] Pripojiť k domovskej stránke Obľúbené stránky
 Otvorte databázu Northwind aplikácie Microsoft Office Access . Databáza Northwind je súčasťou balíka Microsoft Office . 
 2 
 Zvoľte " Vytvoriť " kartu a " Návrh formulára " vytvoriť nový formulár . Kliknite na " pole so zoznamom " na " Controls " table , kliknite na tlačidlo formulára a ťahaním myši vytvoriť nový ovládací prvok poľa so zoznamom . Kliknite na tlačidlo " " na " Controls " panelu a pridať nové tlačidlo do formulára . Vyberte " zoznamu " a pridajte nový ovládací prvok zoznam do formulára . 
 3 
 Pravým - kliknite na " Command0 " a zvoľte " Vlastnosti " . Kliknite na záložku " udalosti " a vyberte položku " [ Event Procedure ] " vedľa " On Click . " Kliknite na tlačidlo s tromi bodkami ( ... ) otvorte okno " Microsoft Visual Basic " . Stlačte tlačidlo " Ctrl " a " A " a stlačte tlačidlo " Delete " odstrániť všetky existujúce kód . 
 4 
 Skopírujte a vložte nasledujúci kód do nového modulu . Kód bude používať tabuľka " zamestnanci " pre informácie . 
 
 Option Compare Database 
 
 Private Sub Command0_Click ( ) 
 
 Dim strSQL As String Dim 
 
 nameSelected as String 
 
 Me.Combo0.SetFocus 
 
 nameSelected = Me.Combo0.Text 
 
 strSQL = " SELECT zamestnancov . [ Job Title ] , Zamestnanci . [ E - mailová adresa ] " 
 
 strSQL = strSQL & " FROM Zamestnanci " 
 
 strSQL = strSQL & " WHERE ( ( ( Employees. [ Priezvisko ] ) = ' " & ( nameSelected ) &" " ) ) ; " 
 
 Me.List0.RowSourceType = " Tabuľka /Query " 
 
 Me.List0.RowSource = strSQL 
 
 End Sub 
 
 Private Sub Form_Load ( ) 
 
 Me.List0.ColumnCount = 2 
 
 Me.Combo0.RowSourceType = " Tabuľka /Query " 
 
 Me.Combo0.RowSource = " SELECT zamestnancov . [ Priezvisko ] FROM Zamestnanci ; " 
 
 End Sub 
 5 
 Zavrite " " okno a kliknite pravým tlačidlom myši " Microsoft Visual Basic Form1 " , potom vyberte " Zobraziť formulár " . Vyberte si priezvisko z ovládací prvok poľa . Kliknite na " Command0 " zobrazíte informácie o zamestnancoch v ovládací prvok zoznam na základe priezviska vybrané .