[Resolvido]Melhoria de modulo vba Filtrar Ao Digitar do usuário zcarloslopes

Olá a todos, peguei o exemplo do usuário zcarloslopes de um módulo vba que ele desenvolveu e estou repassando aqui para contar com a ajuda dos mais experientes para a melhoria desse modulo que acredito que servirá de grande valia para todos, ele faz a pesquisa em uma tabela a partir de uma combobox filtrando várias colunas conforme exemplo em anexo, porem me deparei com algumas dificuldades que não consegui resolver como por exemplo ao apertar a tecla para "baixo" ele não seleciona o registro, tem que pressionar espaço para buscar a segunda coluna e etc, espero que com a ajuda de todos podemos melhorar ainda mais esse módulo, agradeço ao usuário zcarloslopes por ter postado no repositório.

Olá..

Para resolver a parte de oa apertar a tecla para baixo ou para cima use este código abaixo no evento ao aperar a tecla da combobox

Código:

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


Nota: Não deixar o mouse apontando para a lista da combobox

Aguardo

Abraços

Celso Roberto deu certo!!!!!!!!!!!  agora falta só a parte de pesquisar na 2º coluna, nesse caso profissão!  sem precisar dar o espaço!

Olá..

eu não vi ainda como esta o código, amanha eu vou dar uma passada para entender e dar sugestão.

Aguarde

Abraços

beleza Celso Roberto, você vai gostar, e supre uma falta de pesquisa nativa do access via combobox, eu estou fazendo alguns ajustes aqui também para ver se resolve

Olá...

Segue uma sugestão, altere para este.

Código:

Private Sub cboAutoFilter_Change()
On Error Resume Next

'NOTA: Alterar a propriedade AutoExpand da ComboBox para No

Dim strSQL As String

Dim sWords() As String

Dim NumEspaços As String

sWords() = Split(Me.cboAutoFilter.Text, " ")

NumEspaços = StringCountOccurrences(Me.cboAutoFilter.Text, " ") 'Contar número de Espaços na string

If Len(Me.cboAutoFilter.Text) > 0 Then

    If NumEspaços = 1 Then 'No caso de 2 palavras
   
            strSQL = "SELECT Tabela1.NomeCompleto, Tabela1.Profissao " & _
                    "FROM Tabela1 " & _
                    "WHERE (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(0) & "*" & sWords(1) & "*')) " & _
                    "OR (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(1) & "*" & sWords(0) & "*')) " & _
                    "ORDER BY [NomeCompleto];"
                   
    ElseIf NumEspaços = 2 Then 'No caso de 3 palavras
   
            strSQL = "SELECT Tabela1.NomeCompleto, Tabela1.Profissao " & _
                    "FROM Tabela1 " & _
                    "WHERE (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(0) & "*" & sWords(1) & "*" & sWords(2) & "*')) " & _
                    "OR (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(0) & "*" & sWords(2) & "*" & sWords(1) & "*')) " & _
                    "OR (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(1) & "*" & sWords(0) & "*" & sWords(2) & "*')) " & _
                    "OR (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(1) & "*" & sWords(2) & "*" & sWords(0) & "*')) " & _
                    "OR (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(2) & "*" & sWords(0) & "*" & sWords(1) & "*')) " & _
                    "OR (((Tabela1.NomeCompleto) & (Tabela1.Profissao)Like '*" & sWords(2) & "*" & sWords(1) & "*" & sWords(0) & "*')) " & _
                    "ORDER BY [NomeCompleto];"
   
    Else
   
            strSQL = "SELECT Tabela1.NomeCompleto, Tabela1.Profissao " & _
                    "FROM Tabela1 " & _
                    "WHERE (((Tabela1.NomeCompleto) & (Tabela1.Profissao) Like '*" & sWords(0) & "*')) " & _
                    "ORDER BY [NomeCompleto];"
    End If
   
Else

    strSQL = "SELECT Tabela1.NomeCompleto, Tabela1.Profissao " & _
            "FROM Tabela1 " & _
            "ORDER BY [NomeCompleto];"
End If

Me.cboAutoFilter.RowSource = strSQL
Me.cboAutoFilter.Dropdown

End Sub


Faça alguns testes como:

- Filtre só pro nomes
- Filtre só por profissão
- Digite parte de um nome que tenha varias profissão, de um espaço e digite parte da profissão.
- Digite parte de uma profissão com vários Nomes, de um espaço e digite parte do nome, etc...

Faça testes e retorne

Nota: O código que te passei na mensagem anterior é só para habilitar o uso das teclas para cima e para baixo dentro da lista da combobox.

Abraços

Olá...

Importante!!!

Quando der por finalizado e pretender colocar no repositório, não deixe de manter os créditos do autor zcarloslopes e acrescente os seus.

Abraços

Celso Roberto ficou bala!!!! vou repostar no repositório no mesmo tópico do autor do modulo, acredito que vai ajudar muita gente! 

Olá...

Toda melhoria sempre ajuda.

Fico feliz em ter ajudado

Abraços e sucesso