Pesquisa avançada em Access
Fala pessoal, tudo bem?
Hoje vou mostrar como criar uma consulta avançada em Microsoft Access com a utilização de VBA (Visual Basic for Application).
Bom para começar devemos ter uma tabela que servirá como base para nosso projeto, vamos criar uma tabela de produtos contendo os seguintes campos:
Tabela de Produtos | ||
Nome do Campo | Tipos de Dados | Propriedade do Campo |
| Cd_produto | Numeração Automática | Chave Primária |
| Descrição | Texto | Tamanho: 255 |
| Und | Texto | Tamanho: 3 |
| Preco | Moeda | |
| Prod_ativo | Sim/Não | |
Após a criação, salve a tabela com o nome de tb_produtos, aproveite para registrar algumas informações em sua tabela, criei seis produtos para exemplo.
Agora vamos criar um formulário para nossa tabela, para isso vamos criar no modo design de formulário, para começar utilizando os controles desenhe uma caixa de listagem em seu formulário.
Assim que você inserir a caixa de listagem será aberto um assistente para selecionar os dados a serem exibidos na caixa de listagem.
Deixe marcada a opção padrão que é a primeira e clique em Avançar, na tela seguinte selecione a tabela de produtos e avance.
Na tela seguinte selecione todos os campos e clique em avançar.
Na tela seguinte podemos selecionar como desejamos ordenar nossos produtos, neste exemplo vou utilizar a opção cd_produto.
Na tela seguinte será possível visualizar os dados já cadastrados na tabela de produtos.
Conclua a seleção dos dados e em seguida altere a propriedade cabeçalhos das colunas para sim.
Agora vamos inserir uma caixa de texto logo acima da caixa de listagem, que fará a pesquisa do produto ou seja o local onde faremos a entrada de dados.
Vá em propriedades e altere o nome da caixa de nome para txtProduto, salve o formulário com o nome frm_produtos.
Selecione a caixa de listagem, e na propriedade da guia dados em Origem da Linha clique no botão reticências.
Na tela que será aberta no campo descrição em critérios digite a seguinte linha de comando:
Como [Forms]![frm_produtos].[txtProduto] & “*”
Após ter digitado a linha acima pode fechar a consulta caso seja necessário pode salvá-la.
Agora selecione a caixa de texto de pesquisa e nas propriedades na guia evento vamos mudar o evento ao alterar utilizando o construtor de códigos.
Ao fazer isso o editor do VBA será iniciado, digitando o código me.Realc já será possível fazer a filtragem da informação por letra.
Agora conforme você digita o nome do produto o formulário vai realizando o filtro da informação.
Bom pessoal, finalizamos aqui mais um tutorial, espero que gostem do POST e não esqueçam de enviar seus comentários no fim da página.
Até o Próximo POST.
