[Resolvido]Filtro em Combobox

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