[Resolvido]ComboBox: filtrar a medida que digito

Olá Pessoal.
Boa tarde a todos.

O forum é rico neste assunto. Encontrei diversos tópicos e exemplos relacionados. No entanto não encontrei a aplicação que preciso. Porisso peço ajuda aos amigos.

tbCliente: ID; Nome; CNPJ
tbContrato: ID; Número; Cliente

frmContrato (vinculado tbContrato): ID; Número; Cliente
Sendo cliente uma ComboBox: SELECT tbCliente.ID, tbCliente.CNPJ FROM tbCliente ORDER BY tbCliente.CNPJ; ' os valores digitados são o do CNPJ
No evento "Em Sujo" da ComboBox: Me.Cliente.DropDown

Preciso que, a medida que vou digitanto, filtre somentes os CNPJ´s que coincidam com o que estou digitando.

Reiterando que, encontrei diversos exemplos que filtram, a partir de uma comboBox, uma outra combobox ou uma listagem, mas nada achei que filtre a própria lista da ComboBox em uso. Também não consegui aplicar os exemplos no meu BD.

Se alguém puder orientar-me fico agradecido.

Obrigado

A propriedade "Auto expandir" da aba Dados da combo não resolve?

Olá
Criquio.

A propriedade "Auto expandir" da aba Dados da combo está = "Sim".

Mas o problema não é bem este. Ele expande. Gostaria que filtrasse, ou seja, só vilualizar na lista os registros que coencidem.

Valeu!

Tente, no evento "Ao alterar" da combo:

Código:

Me.NomeDaCombo.RowSource = "SELECT ID, CNPJ FROM tbCliente WHERE CNPJ LIKE '" & Me.NomeDaCombo.Text & "*' ORDER BY CNPJ"

A Lista agora não expande.

Ficou assim:

Private Sub txtCliente_Change()
Me.txtCliente.RowSource = "SELECT ID, CNPJ FROM tbCliente WHERE CNPJ LIKE '" & Me.txtCliente.Text & "*'ORDER BY CNPJ"
End Sub

Private Sub txtCliente_Dirty(Cancel As Integer)
Me.txtCliente.Dropdown
End Sub

Tente colocar tudo em um único evento, adicionando a linha para AutoExpandir:

Código:

Private Sub txtCliente_Change()

Me.txtCliente.RowSource = "SELECT ID, CNPJ FROM tbCliente WHERE CNPJ LIKE '" & Me.txtCliente.Text & "*'ORDER BY CNPJ"
Me.txtCliente.AutoExpand = True
Me.txtCliente.Dropdown

End Sub

Lamento Amigo!
Mas não funcionou.

Veja se consegue adaptar;

Download

Olá Mestre JPaulo.
Agradeço sua colaboração.

O BD que postou, no que tange ao filtro, é perfeito, no entanto para a aplicação que pretendo, tenho dúvidas. Vou expor meu "projeto" e pedir seu conselho:

Saliento que, graças aos exemplos e ao que aprendi aqui no forum, consigo fazer, isoladamente, todas as rotinas que preciso neste projeto, minha dificuldade é juntá-las. Vamos vá:

No Forms1 tenho o ComboBox "CNPJ", onde a Fonte de controle é o "ID" da tabela "Contrato" e a origem da linha são "ID", "CNPJ" e "Nome" da tabela "Cliente" em ordem crescente de "CNPJ". A coluna acoplada é o "ID" e visualizada é o "CNPJ".

O que pretendo:
> Ao entrar no ComboBox CNPJ, abre a lista de CNPJ (com máscara) cadastrados;
> Iniciando a digitação de um CNPJ aparece a máscara no campo e vai filtrando a lista de CNPJ;
> Se o CNPJ constar da Lista, introduz o dado e Fim;
> Se não constar da Lista chama a rotina para validar o CNPJ;
> Se o CNPJ não for válido, abre Msg e retorna foco para ComboBox CNJP;
> Se o CNPJ for válido, cria um novo registro na tabela "Cliente", inserindo o valor no campo CNPJ.
> Abre o Forms2 no último registro criado para completar o cadastro.
> Ao fechar o Forms2, retorna ao Forms1, com foco no ComboBox CNPJ, e este, com o valor do último registro da tabela cliente.

Bom! É isso aí Mestre.
Mais uma vez, obrigado por sua costumeira atenção.
Abraços

Pelo que percebi, o que está faltando ae, é um auto-completar da combobox, certo ?

Se assim for, veja o codigo para isso;

Auto-Completa Combobox
http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

Olá JPaulo.
Inseri o código auto-completar que me recomendou.
Fiz algo errado, pois está dando um erro.

Como disse antes, tudo o que me proponho a fazer neste BD, sei fazer isoladamente, mas juntá-los é que está sendo o problema.

Estou postando um BD de exemplos e peço a gentileza, se lhe for possível, dar uma olhada. Peço-lhe também, se for o caso, mudar o título deste tópico para facilitar futuras consultas, pois meu problema não é bem "Filtrar a medida que digito".

Mais uma vez,
meus sinceros agradecimentos.
Abraços

Luis veja se este exemplo te ajuda
http://speedy.sh/4jPy7/Banco-de-Dados2.mdb

Olá Agravina.
Agradeço a participação e o BD de exemplos.
No entanto não é bem o que estou buscando.

Mesmo assim, valeu!!!

Obrigado.

Ola Luiz;

A 1ª parte está feita.

Na combobox já aparece com mascara de entrada e vai filtrando conforme o que digitar;

Download

Valeu Mestre JPaulo.
Ficou muito bom.

Vou agora tentar fazer o restante.
Antes porém, preciso abordar duas questões que fogem ao meu pequeno conhecimento:

1 - Os CNPJ's que aparecem na Lista podem ser exibidos com máscara? Caso sim, não vão interferir no processo de filtragem?

2 - Ao digitar um CNPJ errado na ComboBox, voltei o cursor apagando, e ao chegar no inicio do campo, deu o seguinte erro: "Inserir Valor do Parâmetro: tName.CNPJ". Você pode orientar-me na solução?

Obrigado por sua atenção e colaboração.
Abraços

Luiz Gustavo

Na 1ª questão, é melhor não, já tem a mascara de entrada.

Na 2ª questão, tem um erro devido à pressa por falta de tempo;

Altere no ultimo SQL

Else
'aplica o SQL sem filtro à linha de origem
strSQL = "SELECT tbCliente.ID, tbCliente.CNPJ, tbCliente.Nome FROM tbCliente ORDER BY tbCliente.CNPJ; "
Me.cboFiltra.RowSource = strSQL
End If

Beleza Mestre.
Corrigiu.

Estou tentando agora validar o CNPJ no evento "Se não Constar na Lista".

Mas está dando erros!
Acho que minhas alterações prejudicou algumas coisas que já estavam certas.
Sem abusar, tendo um tempinho, pode dar uma olhada.
Anexo BD.

Obrigado

Teste;

Download

Problema:
Quando inicio a digitação na ComboBox, está preenchendo o campo todo de uma vez. Tenho que deletar os dados para poder acessar a lista!

Dúvida:
Quero, antes de abrir o frmCliente, chamar a função "fDigCNPJ" que valida o CNPJ. Em qual evento devo chamar esta função?

Obrigado

Com validação;

Download

Boa Noite JPaulo.
Estou te dando trabalho, né meu amigo!
Vamos lá:

Erro:
Quando não consta da lista, a primeira inclusão funciona corretamente. Já na segunda inclusão, quando retorna para o frmContrato, abre a MsgBox "Não consta da Lista".

Help:
No evento Ao Abrir do frmCliente, coloquei:
Me.CNPJ.SetFocus ' Ok
Me.CNPJ = Forms![frmContrato].[CboFiltra] ' Não funcionou
Acho eu, na minha "santa ignorânia", que é em função do campo "CboFiltra" não ter ainda sido atualizado.
Tem como dibrar isto?

Obrigado Mestre

veja ai se te ajuda
http://speedy.sh/ztQTp/Banco-de-Dados5.accdb

Bom Luiz,

Alterei o conceito, veja se funfa a contento...

Download

Para testes utilizei um CNPJ valido, deste site:
geradorcnpj.com/

Legal Mestre JPaulo.
No BD, tudo funciona corretamente.

No entanto há um problema "operacional":

Supondo que, por um erro de digitação, intruduzo um CNPJ errado no frmContrato.
Por não constar da lista, recebo a Msg e sou direcionado para o frmCliente.
Ao gravar novo cadastro constato que CNPJ é invalido e digito novamente, desta vez o correto e gravo.
Retorno ao frmContrato, ainda constrará o CNPJ errado e não o que cadastrai no frmCliente.

O ideal, que era o projeto inicial, era validar o CNPJ no frmContrato e, se fosse válido e não constasse da lista, aí sim moveria o foco para o frmCliente. Tentei fazer isto em BD bem básico mas não consegui. Nem sei se é possível.

Tentei então, neste DB, um paleativo, mas não está funcionado. Que seria transportar para o frmContrato o CNPJ cadastrado no frmCliente. Desta forma:

Private Sub Form_Close()
Forms![frmContrato].Requery
Forms![frmContrato].[cboFiltra].SetFocus
Forms![frmContrato].[cboFiltra] = Me.txtCNPJ
End Sub

JPaulo.
É possível aplicar a função de validação do CNPJ no evento "Se não estiver na Lista" do CboFiltro e só então, depois de validado, seguir para o cadastro no frmCliente? Ou é melhor seguir o código acima?

Muito obrigado por sua contribuição e principalmente paciência.

Abraços

Luiz Gustavo

Teste por favor;

A validação do CNPJ passou a ser efetuada nos dois forms e no final a cbo fica com o CNPJ introduzido;

Download

Bom final de semana, qualquer coisa mais segunda-feira cá estarei.

Abraço e bons estudos

Valeu Mestre.
Pelo que testei, ficou perfeito.

Vou agora, estudar tudo o que foi feito e depois aplicar no meu BD original.
Acredito que deva correr tudo bem.

De momento, desejo-lhe um bom final de semana.
Se me permitir, vou deixar o resolvido para segunda-feira.

Um forme abraço.
Muito Obrigado.
Até breve.

Mestre JPaulo.
Seu BD de exemplos ficou perfeito.
Obtive também um execelente resultado em meu BD.

Deixo aqui meu registro:

Mestre JPaulo é uma sumidade no que tange a Access.
Mas sua dedicação, paciência e obstinação em ajudar, extrapolam os limites na normalidade.
Parabésn Mestre.
Parabens Forum.

Meus agradecimentos também ao Criquio e Agrivina que participaram deste tópico.

Obrigado a todos

Desculpe mas só hoje vi seu retorno.

Obrigado amigo, o fórum agradece pelo retorno e eu agradeço suas palavras de conforto.

Não há do que se desculpar meu amigo.
Felicidades

Olá a todos,
JPaulo, links Off
Será possível a reposição.
Abraço

Obrigado pelo alerta.

Todos os links ON.