[Resolvido]Filtro em combobox

Olá a todos

Estou precisando de uma ajuda em um filtro em combobox
Tenho uma combo que uso para pesquisar ao digitar ou selecionar com a seta para baixo ou para cima ao expandir a combo.
O que preciso é o seguinte:
1- No frmBancos que eu consiga ao digitar na combo, filtrar por qualquer coluna.
Neste exemplo eu filtro apenas pela coluna 1, queria se possível filtrar pela coluna 1 ou 2 ou 3.

OU

2- No frmBancosConcat onde a combo utiliza um campo concatenato o filtro ao digitar esta ok.
O que preciso é que a estética da coluna da combo fique alinhado como a combo do frmbancos e com caracteres definido  


Segue bd para teste

Abraços

Olá...

O alinhamento da coluna da combo no frmBancosConcat desejo que seja igual a imagem abaixo



Aguardo

Olá...

Na imagem abaixo, estou usando esta expressão esta na consulta.

Código:

TxtConcatenado: Espaço$(6-Compr([CodBanco])) & [CodBanco] & "|" & [NomeDoBanco] & Espaço$(30-Compr([NomeDoBanco])) & "|" & Espaço$(10-Compr([Agencia])) & [Agencia] & "|" & Espaço$(10-Compr([NºConta])) & [NºConta]

Ele conta números de caracteres e adiciona o resto em espaços,
eu consigo adicionar espaços a direita ou esquerda conforme o alinhamento que desejo, mesmo assim não da o alinhamento desejado.



Pergunto: tem como substituir os espaços por caracteres mas este ficarem em brancos?

Abraços

Celso, se o que precisa é apenas ao digitar na combo por exemplo o Numero 9 ele mostre o banco do Brasil. Ou se digitar "Bra" apareça para seleção apenas o Banco do Brasil, nao precisa de muito esforço não....


Basta colocar no critério alguns OR....


Nesse exemplo postado, apague todos os eventos que tem na cboBanco para não interferir...
E coloque este código no evento Ao Alterar:

Código:


Private Sub cboBanco_Change()
    StrSQL = "SELECT CodBanco,NomeDoBanco,Agencia,[NºConta] FROM tblBancos" & _
    " WHERE NomeDoBanco Like '*" & Me.cboBanco.Text & "*' OR " & _
            "Agencia Like '*" & Me.cboBanco.Text & "*' OR " & _
            "[NºConta] Like '*" & Me.cboBanco.Text & "*' ORDER BY NomeDoBanco, NºConta"
    Me.cboBanco.RowSource = StrSQL
    Me.cboBanco.Dropdown
End Sub




Faça um teste, estará pesquisando em qualquer parte de qualquer uma das 3 colunas...

Olá Fábio...

Obrigado pela ajuda...

Já havia feito desta maneira, o problema é que em algum momento da pesquisa ele não deixa digitar o segundo caracter,  voce digita a letra "c" e digita a segunda "a", ele sobrepõe a letra c pela letra a.
Isto acontece porque estou usando um evento ao apertar Teclas, este evento me possibilita correr com a seta para cima e pra baixo após filtrar por digitação.
Nota que se voce desabilitar este evento as setas não seleciona após filtrar.

Mas consegui resolver concatenando os campos a ser pesquisado na clausula where ante do Like
Veja como ficou:

Código:

Private Sub cboBanco_Change()
     StrSQL = "SELECT CodBanco,NomeDoBanco,Agencia,NºConta FROM tblBancos" _
     & " WHERE NomeDoBanco & Agencia & NºConta Like '*" & Me.cboBanco.Text & "*' ORDER BY NomeDoBanco, NºConta"
     Me.cboBanco.RowSource = StrSQL
     Me.cboBanco.Dropdown
End Sub

Te agradeço da mesma forma e também a todos que estariam tentando me ajudar

Abraços

Grato pelo retorno amigo, até a próxima se Deus Quiser!