Saber como acessar uma caixa de combinação e , em seguida, usá-lo em uma consulta é útil no desenvolvimento de aplicações informáticas. Por exemplo, no Microsoft Access, uma caixa de combinação pode tornar mais fácil para o usuário manipular dados. Usando o Visual Basic for Applications (VBA) linguagem de programação de computador , você pode fazer um formulário, criar uma tabela e , em seguida, use a tabela para adicionar dados a uma caixa de combinação . Instruções
1

Inicie o Microsoft Office Access 2007, selecione "Banco de Dados em Branco ", e , em seguida, clique em "Criar ".
2

Clique na aba " Criar" e, em seguida, selecione "Form design" para criar um novo formulário. Clique em " caixa de combinação " no painel " Controles " , depois clique em seu formulário e arraste-o para criar um novo controle de caixa de combinação. Clique em " Button" no painel " Controles " para adicionar um novo botão ao seu formulário.
3

botão direito do mouse " Command0 ", e , em seguida, clique em " Propriedades". Clique na aba " Eventos" e , em seguida, escolha " [Procedimento de evento ]" ao lado de " On Click. " Clique nas reticências (... ) para abrir a janela "Microsoft Visual Basic"
4

Copie e cole o seguinte código em " Private Sub Command0_Click ()" : .

Dim strSQL As String

strSQL = " CREATE TABLE dataTable ( NÚMERO ComboIndx , RowData TEXT ); "

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dataTable ( ComboIndx , RowData ) "

strSQL = strSQL & " VALUES ( 1 , ' linha1 ' ); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dataTable ( ComboIndx , RowData ) "

strSQL = strSQL & " VALUES ( 2 , ' linha2 ' ); "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " INSERT INTO dataTable ( ComboIndx , RowData ) "

strSQL = strSQL & " VALUES ( 3 , ' linha2 ' ) ; "

DoCmd.SetWarnings Falso

DoCmd.RunSQL ( strSQL )

strSQL = " Select dataTable . * de dataTable "

strSQL = strSQL & "ONDE dataTable.rowData = ' Row2 '; "

Me.Combo0.RowSource = strSQL
5

Volte para a janela do Microsoft Access , clique com o botão direito " Combo0 ", e , em seguida, clique em" Propriedades . " Clique na aba " Eventos" . Escolha . [Procedimento de evento ] " ao lado de " After Update ". Clique nas reticências (... ) para abrir o " Microsoft Visual Basic " janela.
6

Copie e cole o seguinte código em" Private Sub Combo0_AfterUpdate () " :

Dim dbs As Database

Dim rst Como Recordset

Dim comboString As Integer Dim

sqlstr As String

Set dbs = CurrentDb

comboString = Me.Combo10.Text

sqlstr = "SELECT dataTable.rowData DE dataTable "

sqlstr = sqlstr & "ONDE dataTable.ComboIndx = "& ( comboString ) e "; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

MsgBox" os dados para este índice combinado é: " . & rst.Fields (0) Valor

rst.Close

dbs.Close
7

Feche o " Microsoft Visual Básico "Janela . Botão direito do mouse " Form1 ", e , em seguida, clique em" Form View. "Click" Command0 "para preencher a caixa de combinação com os dados.
8

Selecione um valor na caixa de combinação . Você verá os dados para esse índice em uma caixa de mensagem.