Saber como definir os resultados de uma consulta a um controle de caixa de listagem e usar os seus valores em outra consulta pode tornar seus aplicativos de banco de dados mais dinâmico. Microsoft Office Access permite que você crie uma interface gráfica do usuário ( GUI) , adicione um controle de caixa de lista e usá-lo para exibir os dados da consulta. Access é um sistema de gerenciamento de banco de dados relacional comumente usado para bancos de dados menores . Uma consulta é usado para recuperar dados de uma tabela do banco de dados . Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar tarefas rotineiras. Instruções
1

Abra o banco de dados Northwind do Microsoft Office Access. O banco de dados Northwind está incluído no pacote do Microsoft Office .
2

Clique na aba " Criar " e selecione " Form Design" para criar um novo formulário. Clique em " caixa de lista " no painel " Controles " , depois clique em seu formulário, mantenha pressionado o botão do mouse e arraste o mouse para criar um novo controle de caixa de listagem . Clique em " Button" no painel " Controles " para adicionar um novo botão ao seu formulário da mesma forma que você adicionou a caixa de lista.
3

botão direito do mouse " Command0 " e selecione "Propriedades . " Clique na aba " Evento " e selecione " [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 = "SELECT Orders. [Employee ID ]",

strSQL = strSQL & " Ordens [ID Cliente ] , ordens . [Data Enviado ] . "

strSQL = strSQL & " Orders. [ Navio Name] , ordens . [ Navio Endereço ]"

strSQL = strSQL & " FROM Orders "

strSQL = strSQL & " WHERE ( ( ( Orders. [ Navio Endereço ]) = '123 8th Street ')); "

Me.List0.RowSource = strSQL

Este código irá consultar o " ordens " de mesa e definir a " OrigemDaLinha " propriedade do controle de caixa de lista.
5

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

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

Dim dbs As Database

Dim rst Como Recordset

Dim sqlstr As String

Dim I As Integer

Set dbs = CurrentDb

Para I = 0 To me! List0.ListCount

Se me! List0.Selected (I) Então

sqlstr = "SELECT Orders. [Data Enviado ] FROM Orders"

sqlstr = sqlstr e " onde as ordens [Employee ID] = ". & ( Me! List0.ItemData (I) ) & " ; "

Set rst = dbs.OpenRecordset ( sqlstr )

rst.MoveLast

rst.MoveFirst

Debug.Print " Data Enviado por item selecionado :" & rst.Fields (0) Valor

rst.Close
.

End If

seguida eu

dbs.Close

Este código irá exibir a " Data de Envio " para os itens selecionados na caixa de listagem . Os resultados serão exibidos na janela " imediata" .
7

Feche a janela " Microsoft Visual Basic" e clique-direito " Form1 ", selecione " Form View ". Clique em " Command0 " para preencher a caixa de listagem com dados. Selecione um valor na caixa de listagem para executar o código para o controle de caixa de lista.