Tendo o conhecimento sobre como criar e utilizar formas avançadas no Microsoft Office Access pode fazer seus aplicativos de banco de dados mais poderoso. Você pode facilmente criar um formulário usando o Assistente de formulário , mas você nem sempre vai obter os resultados que deseja. Você tem a flexibilidade para adicionar controles diferentes para o seu Formulário ao criá-lo manualmente. Além disso, você pode escrever Visual Basic for Applications ( VBA ) para executar os processos por trás desses controles. 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
Northwind banco de dados
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

Clique na aba " Criar " e selecione " Form Design" para criar um novo formulário. Clique em " caixa de combinação " no painel " Controles " , em seguida, clique esquerdo do mouse sua forma e arraste 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á carregar o controle de caixa de combinação com sobrenomes da tabela "Produto" .

Option Compare Database

Private Sub Command2_Click ()

Dim sqlstr As String

Dim prductSelected As String

Me.Combo3.SetFocus

prductSelected = Me.Combo3.Text

sqlstr = "SELECT produtos . [ nome do produto] , os produtos . [Lista Preço] "

sqlstr = sqlstr &" FROM Products "

sqlstr = sqlstr &" WHERE ( ( ( Products. [nome do produto ]) = ' "& ( prductSelected ) &" ')); "

Me.List0.RowSourceType =" Tabela /Consulta "

Me.List0.RowSource = sqlstr

End Sub

Private Sub Form_Load ()

Me.List0.ColumnCount = 2

Me.Combo3.RowSourceType = " Tabela /Consulta "
< " . selecionar produtos [nome do produto ] FROM produtos ; " p> Me.Combo3.RowSource =

End Sub
5

Feche a janela "Microsoft Visual Basic" e direito do mouse em " Form1 " e selecione " Form View" . Escolha um nome de produzir a partir do controle de caixa de combinação. Clique em " Command0 " para exibir lista de preço no controle de caixa de lista com base no nome do produto que você selecionou.