Ako získať prístup Combo Box na otázku

Vedieť , ako pristupovať poľa so zoznamom a potom ho použiť v dotaze je užitočné pri vývoji počítačových aplikácií . Napríklad v aplikácii Microsoft Access , combo box môže uľahčiť užívateľovi manipulovať s dátami . Pomocou jazyka Visual Basic for Applications ( VBA ) , programovací jazyk , môžete vytvoriť formulár , vytvoriť tabuľku , a potom použite tabuľku pridať dáta do poľa so zoznamom . Pokyny dovolená 1

Spustite program Microsoft Office Access 2007 , vyberte " Prázdna databáza " a potom kliknite na tlačidlo " Vytvoriť " .
2

Kliknite na záložku " Vytvoriť " , a potom vyberte " Návrh formulára " vytvoriť nový formulár . Kliknite na " pole so zoznamom " na " Controls " table , kliknite na tlačidlo formulára a pretiahnite ju vytvoriť nový ovládací prvok poľa so zoznamom . Kliknite na tlačidlo " " na " Ovládacie prvky " tably pridať nové tlačidlo do formulára .
3

Pravým - kliknite na " Command0 , " a potom kliknite na tlačidlo " Vlastnosti " . Kliknite na záložku " udalosti " , a potom zvoľte " [ 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 = " CREATE TABLE DataTable ( ComboIndx ČÍSLO , Rowdy TEXT ) ; "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO DataTable ( ComboIndx , Rowdy ) "

strSQL = strSQL a " VALUES ( 1 , ' ROW1 ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO DataTable ( ComboIndx , Rowdy ) "

strSQL = strSQL & " VALUES ( 2 ​​, ' ROW2 ' ) ; " Spojené

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO DataTable ( ComboIndx , Rowdy ) "

strSQL = strSQL a " VALUES ( 3 , ' ROW2 ' ) ; "

DoCmd.SetWarnings False

DoCmd.RunSQL ( strSQL )

strSQL = " Select DataTable . * z DataTable "

strSQL = strSQL & "where dataTable.rowData = ' ROW2 " ; "

Me.Combo0.RowSource = strSQL
5

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

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

Dim dbs ako databáza

Dim rst ako Recordset

Dim comboString As Integer

Dim SQLstr As String

Set dbs = CurrentDb

comboString = Me.Combo10.Text

SQLstr = " SELECT dataTable.rowData z DataTable "

SQLstr = SQLstr & "where dataTable.ComboIndx = " & ( comboString ) & " ; "

Set rst = dbs.OpenRecordset ( SQLstr )

rst.MoveLast

rst.MoveFirst

MsgBox " dáta pre túto combo indexu je : " . & rst.Fields ( 0 ) Hodnota

rst.Close

dbs.Close
7

Uzavrite " Microsoft Visual základné " Window . Pravým - kliknite na " Form1 " a potom kliknite na tlačidlo " Zobraziť formulár . " kliknite na tlačidlo " Command0 " vyplniť pole so zoznamom s dátami .
8

Vyberte hodnotu z poľa so zoznamom . Ty ' ll vidieť dáta pre daný index v okne so správou .

• Predchádzajúca strana: Ako sa dá zistiť , či je spustená služba v jazyku Visual Basic 
• Ďalšia strana: Ako nájsť znak v reťazci v jazyku Visual Basic