Ako Access List dotazu Box

Vedieť , ako nastaviť výsledky dotazu na ovládací prvok zoznam a použiť jeho hodnoty v inom dotaze môže vaše databázové aplikácie dynamickejšie . Microsoft Office Access umožňuje vytvoriť grafické užívateľské rozhranie ( GUI ) , pridať ovládací prvok zoznam a použiť na zobrazenie dát dotazu. Access je relačný databázový systém sa bežne používa pre menšie databázy . Otázka sa používa na načítanie dát z databázovej tabuľky . Visual Basic for Applications ( VBA ) je programovací jazyk použiť na automatizáciu rutinných úloh . Pokyny dovolená 1

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 " zozname" na " Controls " table , kliknite na tlačidlo na formulári , podržte tlačidlo myši a ťahaním myši vytvoriť nový ovládací prvok zoznam . Kliknite na tlačidlo " " na " Ovládacie prvky " tably pridať nové tlačidlo do formulára rovnakým spôsobom , ktorý ste pridali na zoznam .
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 "
4

Skopírujte a vložte nasledujúci kód pod " Private Sub Command0_Click ( ) " : .

Dim strSQL As String

strSQL = " SELECT príkazy . [ Employee ID ] " ,

strSQL = strSQL a " Objednávky . [ ID zákazníka ] , Objednávky . [ Posielame Date ] , "

strSQL = strSQL a " Objednávky . [ Názov lode ] , Objednávky . [ Adresa lodi ] "

strSQL = strSQL & " objednávok "

strSQL = strSQL & " WHERE ( ( ( Orders. [ Adresa lodi ] ) = '123 8th Street " ) ) ; "

Me.List0.RowSource = strSQL

Tento kód bude dotaz " objednávky " tabuľku a nastavte " zdroj riadkov " vlastnosť ovládací prvok zoznam .
5

Prepnite späť do okna aplikácie Microsoft Access a kliknite pravým tlačidlom myši " List0 " , potom vyberte" Vlastnosti " . Kliknite na záložku " udalosti " a vyberte položku " [ Event Procedure ] " vedľa " Po aktualizácii . " Kliknite na tlačidlo s tromi bodkami ( ... ) otvorte okno " Microsoft Visual Basic "
6

Skopírujte a vložte nasledujúci kód pod " Private Sub List0_Click ( ) " : .

Dim dbs Ako databáza

Dim rst Ako Recordset

Dim SQLstr As String

Dim Aj As Integer

Set DBS = CurrentDb

I = 0 To Me ! List0.ListCount

Me ! List0.Selected ( I) Potom

SQLstr = " SELECT príkazy . [ Posielame Dátum ] FROM Orders "

SQLstr = SQLstr & "where Objednávajte [ Employee ID ] = . " & ( me! List0.ItemData ( I) ) & " ; "

Set rst = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " Posielame Dátum na položku vybraná : " & rst.Fields ( 0 ) Hodnota

rst.Close
.

End If

Ďalej som

dbs.Close

Tento kód sa zobrazí " Dátum odoslania" pre vybrané položky v zozname . Výsledky sa zobrazia v okne " bezprostrednej " .
7

Zatvorte okno " Microsoft Visual Basic " a kliknite pravým tlačidlom myši " Form1 " , potom vyberte " Zobraziť formulár . " Kliknite na " Command0 " vyplniť pole so zoznamom s dátami . Vyberte hodnotu zo zoznamu vykonať kód pre ovládací prvok zoznam .

• Predchádzajúca strana: Ako porovnávať predchádzajúci záznam v programe Access otázku 
• Ďalšia strana: Základné súčasti Visual Basic