Início
Convidado 15/9/2013, 02:45Temos muitos exemplos de filtros no fórum....
Este filtra carrega a listbox com uma sql filtrada ao digitar, selecionando o registro encontrado.
Foram criadas duas funções a saber:
>> PercorreControl
Utilizada na funcão AplicaFiltro (No início) para mover o foco para cada caixa texto simultaneamente carregando a respectiva variável pela propriedade
.Text da TextBox, para a utilização da variável Filtro ser aplicada na funcão AplicaFiltro
>> AplicaFiltro
Esta função concatena a SQL de acordo com o texto digitado nas caixas texto, verificando em qual caixa texto está o Foco
>> SelecionaRegistro
Utilizada na funcão AplicaFiltro (No final) para selecionar o registro de acordo com a coluna selecionada quando o controle recebe o foco
Para aplicar basta no evento ao Alterar da caixa texto: Call AplicaFiltro
Para adaptações ao seu exemplo é necessário a modificação dos nomes das caixas texto na função AplicaFiltro.
Enjoy!!!
*****************************************************************************************************************
Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.
Este filtra carrega a listbox com uma sql filtrada ao digitar, selecionando o registro encontrado.
Foram criadas duas funções a saber:
>> PercorreControl
Utilizada na funcão AplicaFiltro (No início) para mover o foco para cada caixa texto simultaneamente carregando a respectiva variável pela propriedade
.Text da TextBox, para a utilização da variável Filtro ser aplicada na funcão AplicaFiltro
>> AplicaFiltro
Esta função concatena a SQL de acordo com o texto digitado nas caixas texto, verificando em qual caixa texto está o Foco
>> SelecionaRegistro
Utilizada na funcão AplicaFiltro (No final) para selecionar o registro de acordo com a coluna selecionada quando o controle recebe o foco
Para aplicar basta no evento ao Alterar da caixa texto: Call AplicaFiltro
Para adaptações ao seu exemplo é necessário a modificação dos nomes das caixas texto na função AplicaFiltro.
Enjoy!!!
*****************************************************************************************************************
Repositório de Exemplos Ms Access
Sala destinada à colocação de exemplos em Ms Access (Código aberto) de e para todos os Utilizadores Cadastrados.
Não tirar duvidas nesta sala.
Última edição por PILOTO em 18/9/2013, 13:33, editado 7 vez(es) (Motivo da edição : Exemplo atualizado - em 18/09/2014 às 09:33 horário de Brasília)
Domine Access e VBA Criando Um Incrível Sistema Financeiro - [Passo a passo]
Conheça meu canal no Youtube e se inscreva.
