Gersonl
-
Posts
2 -
Cadastrado em
-
Última visita
Tópicos solucionados
-
O post de Gersonl em Caixa de combinação - Acess foi marcado como solução
Então galera eu consegui resolver, então vou postar aqui, caso alguém queira.
Eu inicio o formulário com a Caixa de Texto, onde será digitada a pesquisa, bloqueada.
A pessoa seleciona na Caixa de Combinação o campo que deseja. E nas propriedades da Caixa de Combinação, Evento, Ao alterar eu escrevo o seguinte código:
Comb_Pesquisa.SetFocus If Comb_Pesquisa.Text = "Nome" Then Lista0.RowSource = "Consulta_Nome" Me.Comando8.Enabled = True Me.Txt_Pesquisa.Enabled = True Txt_Pesquisa.SetFocus ElseIf Comb_Pesquisa.Text = "Gerador" Then Lista0.RowSource = "Consulta_Gerador" Me.Comando8.Enabled = True Me.Txt_Pesquisa.Enabled = True Txt_Pesquisa.SetFocus ElseIf Comb_Pesquisa.Text = "Embalagem" Then Lista0.RowSource = "Consulta_Embalagem" Me.Comando8.Enabled = True Me.Txt_Pesquisa.Enabled = True Txt_Pesquisa.SetFocus End If
Como podem ver eu fiz um "if" em que dependendo do que é selecionado (Nome, Gerador ou Embalagem) o código altera a Origem da Linha (RowSouce) da Caixa de listagem. Para isso eu criei 3 Consultas diferentes (Consulta_Nome, Consulta_Gerador, Consulta_Embalagem).
Nas Consultas eu coloquei no modo SQL e montei um código que faria a pesquisa de acordo com o que eu digitasse na Caixa de Texto. Segue um dos códigos:
O diferencial do código está no "Where". Depois disso basta ir na Caixa de Texto do Formulário, Propriedades, Evento, Ao alterar e colocar o seguinte código:
Me.Refresh SendKeys "{f2}" Que servem para atualizar instantaneamente a Caixa de Listagem e colocar o indicador na última letra da Caixa de Texto respectivamente.
E é isso, qualquer dúvida podem perguntar.
Sobre o Clube do Hardware
No ar desde 1996, o Clube do Hardware é uma das maiores, mais antigas e mais respeitadas comunidades sobre tecnologia do Brasil. Leia mais
Direitos autorais
Não permitimos a cópia ou reprodução do conteúdo do nosso site, fórum, newsletters e redes sociais, mesmo citando-se a fonte. Leia mais