Saber usar os controles em um formulário e passar valores a partir desses controles para uma consulta você pode economizar tempo ao trabalhar com bancos de dados. Microsoft Office Access é um sistema de gerenciamento de banco de dados relacional comumente usado para bancos de dados menores . Uma caixa de combinação é um controle usado em interfaces gráficas (GUI) para fornecer ao usuário com mais flexibilidade para manipular dados. Um controle de caixa de lista é útil quando você precisa exibir os resultados da consulta para o usuário. Visual Basic for Applications (VBA) é uma linguagem de programação de computador utilizado para automatizar tarefas de rotina em Access e outros aplicativos do MS Office . Coisas que você precisa
Microsoft Office Access
Show Mais 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

Selecione a aba " Criar" e "Formulário de 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 mouse para criar um novo controle de caixa de combinação. Clique em " Button" no painel " Controles " e adicione um novo botão ao seu formulário. Selecione "Caixa de lista" e adicionar um novo controle de caixa de listagem ao seu formulário.
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" . Pressione " Ctrl" e "A" e pressione " Delete" para remover todo o código existente.
4

Copie e cole o seguinte código para o seu novo módulo. O código irá usar a tabela " Funcionários" para obter informações.

Option Compare Database

Private Sub Command0_Click ()

Dim strSQL As String Dim

nameSelected As String

Me.Combo0.SetFocus

nameSelected = Me.Combo0.Text

strSQL = "SELECT funcionários . [ Cargo ] , Funcionários. [E- mail ] "

strSQL = strSQL &" FROM Employees "

strSQL = strSQL &" WHERE ( ( ( Employees. [Last Name ]) = '"& ( nameSelected ) &" ')) , "

Me.List0.RowSourceType =" Tabela /Consulta "

Me.List0.RowSource = strSQL

End Sub

Private Sub Form_Load ( )

Me.List0.ColumnCount = 2

Me.Combo0.RowSourceType = " Tabela /Consulta "

Me.Combo0.RowSource = " Funcionários SELECT. [Last Name ] FROM Funcionários ; "

End Sub
5

Feche a " "janela e clique com o botão direito " Microsoft Visual Basic Form1 "e selecione " Form View " . Selecione um último nome do controle de caixa de combinação. Clique em " Command0 " para exibir a informação do empregado no controle de caixa de lista com base no último nome que você selecionou.