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é .