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é