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 
 Kliknite na záložku " Vytvoriť " a vyberte " Návrh formulára " vytvoriť nový formulár . Kliknite na " pole so zoznamom " na " Ovládacie prvky " table kliknite ľavým tlačidlom myši na formulár a ťahaním vytvorte 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 ( " ... " ) , k otvoreniu " Microsoft Visual Basic " okno . 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 načíta ovládací prvok poľa sa posledný mená z tabuľky " produktu " . 
 
 Option Compare Database 
 
 Private Sub Command2_Click ( ) 
 
 Dim sqlStr As String 
 
 Dim prductSelected As String 
 
 Me.Combo3.SetFocus 
 
 prductSelected = Me.Combo3.Text 
 
 sqlStr = " Vyberte produkty . [ Názov produktu ] , tovar . [ Cena ] " 
 
 sqlStr = sqlStr & " FROM Produkty " 
 
 sqlStr = sqlStr & " WHERE ( ( ( Products. [ Názov produktu ] ) = ' " & ( prductSelected ) &" " ) ) ; " 
 
 Me.List0.RowSourceType = " Tabuľka /Query " 
 
 Me.List0.RowSource = sqlStr 
 
 End Sub 
 
 Private Sub Form_Load ( ) 
 
 Me.List0.ColumnCount = 2 
 
 Me.Combo3.RowSourceType = " Tabuľka /Query " 
 < " . vybrané produkty [ Názov produktu ] FROM produkty , " p > Me.Combo3.RowSource = 
 
 End Sub 
 5 
 Zatvorte okno " Microsoft Visual Basic " a pravým tlačidlom " Form1 " , potom vyberte " Zobraziť formulár " . Vyberte Produce meno z ovládací prvok poľa . Kliknite na " Command0 " pre zobrazenie cenníka ovládací prvok zoznam na základe mena ste vybrali . 
              
Copyright © počítačové znalosti Všetky práva vyhradené