[Resolvido]Filtro em Combobox

Olá amigos,
tenho uma consulta que retorna alguns resultados de nomes (35k). Essa lista de nomes vai para um combobox. Preciso que ao digitar alguma parte do texto de algum desses nomes ele filtre automaticamente eliminando os nomes que não são do meu interesse.
Exemplo:

Se eu digitar JOAO, ele deixará somente os JOAO na lista. Ou se eu digitar o OLIVEIRA, aparecerá apenas os nomes que tiverem oliveira.

Como fazer? Obrigado!

Boa tarde Vailson!

Para que isso aconteça, você precisa criar uma consulta, no qual essa consulta ficará vinculada a uma caixa de listagem.
Após isso crie uma caixa de texto na qual vai ser digitada o nome, e coloca o nome da caixa de texto de "txtnome"

Dentro da consulta, no campo que tiver os nomes digita isso nos critérios:
Como [Forms]![Nomedoformulario]![txtnome] & "*"

Depois disso, clique na caixa de texto que vai ser digitado o nome e vá em "eventos" e coloque o seguinte código no "ao alterar"
Me.Recalc
SendKeys "{f2}"

Qualquer duvida, estou a disposição.

Boa tarde,

Marque a propriedade Limitar a uma lista da combo como NÃO e tente o seguinte, no evento Após Atualizar da sua combo:

Código:

Dim strsql As String
    
    If Not IsNull(suaCombo) = True Then
        strsql = "select seus_campos from suaConsulta where campoNome like '*" & suaCombo & "*'"
    Else
        strsql = "select seus_campos from suaConsulta"
    End If

   suaCombo.RowSource = strsql
   suaCombo.Requery

Abraço.

Vittor_Duarte escreveu:

A sua opção demanda que eu tenha um campo de texto e essas funções de teclado tem alguns bugs. Normalmente desliga o CapsLook, e, nesse caso específico não permite que eu busque o nome ANA, por exemplo.

CassioFabre escreveu:

Sua dica não funcionou. Mesmo assim obrigado.


Abaixo um trecho do resultado da consulta:

idpm
CAIO CEZAR SANTOS ALVES - Mat. 5645298
VICTOR FERNANDO ALVIM RESENDE - Mat. 5645303
DARLAN CARNEIRO SANTANA - Mat. 5645329
CARLOS ENRIQUE CARNEIRO DA SILVA - Mat. 5645345
ANA FERREIRA NASCIMENTO - Mat. 5645353

Tenho uma combobox que lista esse resultado. Ocorre que se eu digitar na combobox CAR, vai ficar apenas o registro do CARLOS ENRIQUE CARNEIRO DA SILVA - Mat. 5645345 na tela para eu selecionar. Isso já é o padrão da combobox. Mas preciso que, se eu digitar VIM, ele liste VICTOR FERNANDO ALVIM RESENDE - Mat. 5645303, ou se eu digitar a Matrícula, ou parte dela, liste apenas os nomes correspondentes.

Obrigado pela atenção de todos!

Para evitar especulações...adivinhações..ou mesmo usar a bola de cristal ( Microsoft Crystal Ball ), solicitamos que seja enviada as partes envolvidas na duvida em questão ( tabelas, formulários, consultas).

Fazendo dessa forma, fica muito...muito...muito mais simples a ajuda.

Agradecemos.

Bom dia,

A solução postada por mim funciona. Segue em anexo um exemplo que montei aqui de forma bem simples. Adapte ao seu projeto.

Código que utilizei no evento Após Atualizar da combo:

Código:

Dim strSql As String
    
    If IsNumeric(cbxNome) = True Then
        If Not IsNull(cbxNome) = True Then
            strSql = "select * from tblNome where matricula like '*" & cbxNome & "*'"
        Else
            strSql = "Select * from tblNome"
        End If
    Else
        If Not IsNull(cbxNome) = True Then
            strSql = "select * from tblNome where nome like '*" & cbxNome & "*'"
        Else
            strSql = "Select * from tblNome"
        End If
    End If
    
    cbxNome.RowSource = strSql
    cbxNome.Requery
    cbxNome.Dropdown

Faça o teste digitando parte do nome e depois digitando parte da matrícula.

Abraço.

Bom dia, A solução postada por mim funciona. Segue em anexo um exemplo que montei aqui de forma bem simples. Adapte ao seu projeto. Código que utilizei no evento Após Atualizar da combo: CÓDIGO: Dim strSql As String If IsNumeric(cbxNome) = True Then If Not IsNull(cbxNome) = True Then strSql = "select * from tblNome where matricula like '*" & cbxNome & "*'" Else strSql = "Select * from tblNome" End If Else If Not IsNull(cbxNome) = True Then strSql = "select * from tblNome where nome like '*" & cbxNome & "*'" Else strSql = "Select * from tblNome" End If End If cbxNome.RowSource = strSql cbxNome.Requery cbxNome.Dropdown Faça o teste digitando parte do nome e depois digitando parte da matrícula. Abraço. escreveu:

Bom dia, o seu exemplo não funcionou, inclusive o do seu arquivo em enexo.
Mesmo assim obrigado!

Bom dia,

Bom, aqui está funcionando conforme os prints abaixo.


Padrão conforme exemplo que você passou.

--------------

Pesquisando com o trecho "ana" e retornando os nomes cadastrados que contenham este trecho.

--------------

Pesquisando pelo numero de matricula e não exibindo os que não o contém.

A não ser que não seja esse seu objetivo, está funcionando corretamente.

Abraço.

Então, por incrível que pareça não funciona aqui. Mas de toda sorte, estou enviando o modelo. Lembrando que no seu exemplo, utiliza a tabela como fonte dos dados. Precisa ser através de uma consulta.
Agradeço a atenção.

Boa tarde,

Realmente o código funciona sim. Segue o que fiz e em anexo o seu exemplo funcionando.

Retirei da comb_efet a propriedade Origem da Linha. No evento Ao Abrir do formulário, inseri o seguinte código:

Código:

Me.comb_efet.RowSource = "select idpm from cons_nomepm"
comb_efet.Requery

No evento Após Atualizar da comb_efet só retirei a função que filtra a consulta, isso não é necessário. Então ficou da seguinte forma:

Código:

   Dim strsql As String
    
    If Not IsNull(comb_efet) = True Then
        strsql = "select idpm from cons_nomepm where idpm like '*" & comb_efet & "*'"
        
        comb_efet.RowSource = strsql
        comb_efet.Requery
        comb_efet.Dropdown
    Else
        comb_efet.RowSource = "select idpm from cons_nomepm"
        comb_efet.Requery
    End If

E ai é só testar.

Abraço.

Cassio Fabre, o exemplo tá funcionando. Ocorre que só filtra após clicar enter ou tab. É possível o filtro ficar igual ao formato original, destacando um nome durante a digitação?
Obrigado

Bom dia,

Neste caso seria melhor você usar o controle ListBox com um campo de text como filtro atualizando a ListBox no evento Ao Alterar da campo de texto.

Abraço.

Boas...

Com a licença do amigo CassioFabre

O código do cassio esta no evento após atualizar, para que se filtre ao digitar teria que estar no evento ao alterar.
Teste este código abaixo no evento ao alterar

Código:

Private Sub comb_efet_Change()
Me.comb_efet.RowSourceType = "Table/Query"
Me.comb_efet.RowSource = "SELECT idpm FROM cons_nomepm WHERE idpm LIKE '*" &    Me.comb_efet.Text & "*'"
Me.comb_efet.Dropdown
End Sub

 

Vailson, quando efetuamos filtragem ao digitar por vezes se perde a possibilidade de selecionar com as setas para cima e para baixo, só possibilita selecionar com o mouse.
Então use este código abaixo no evento ao apertar a tecla para te possibilitar quando filtrar e quiser correr a lista com a seta para cima e para baixo.

Código:

Private Sub comb_efet_KeyDown(KeyCode As Integer, Shift As Integer)
 Me.comb_efet.Dropdown
    Select Case KeyCode
    Case vbKeyDown
      Me.comb_efet = Me.comb_efet.ItemData(Me.comb_efet.ListIndex + 1)
      KeyCode = 0
    Case vbKeyUp
      Me.comb_efet = Me.comb_efet.ItemData(Me.comb_efet.ListIndex - 1)
      KeyCode = 0
    Case Else
    End Select
End Sub

Espero que ajude

Abraços

Bom dia,

Perfeito Celso. Eu coloquei aqui também no evento Ao Alterar, mas por algum motivo estava recebendo um erro. Algo como "é necessário atualizar o campo antes de refazer a consulta", ou algo assim. Não faço ideia do porquê. Acredito que talvez não fosse necessário utilizar o .Requery na combo. De qualquer maneira, está funcionando perfeitamente, acredito que exatamente como o autor do tópico necessita.

Abraço.

Solução perfeita. Obrigado!

Essa poderia ir para o repositório.

Olá...

Que bom que tenha dado certo e obrigado pela sugestão, vou disponibilizar sim
O Fórum agradece seu retorno.

Abraços