[Resolvido]Filtar cx. de combinação ler ddos da direita para a esquera

Saudações a todos.
Recorro aos amigos do Fórum para mais uma ajuda.

Como devo proceder para que uma caixa de Combinação ao digitado filtre da direita para esquerda.
Ex. O código de barra 7895138782548 ao invés de digitar desta maneira, eu gostaria de digitar da direita para a esquerda 8452 etc... e fosse filtrando.

Sou grato pela atenção de todos.

Utilize a função StrReverse

StrReverse(Me.SuaCaixaTexto)



Cumprimentos.

Piloto, Saudações

Tentei usar nos eventos e não deu certo, é por ai mesmo nos eventos ou estou errado.

Grato pela atenção.

Você quer a exibição na propria combo?

Pensei que seria para filtrar uma consulta...

Isso no próprio combo, tem códigos que são com + ou -13 dígitos, tipo 78951387825548(código de barra) gostaria de filtrar na hora que for digitando da direita para esquerda.

Sou grato pela atenção

A única opão que consegui até o momento foi inverter o código na consulta da combo, porem aparecerá invertido:


SELECT StrReverse([CodBarras]) AS Barra, Produtos.ProdutoCodigo, Produtos.ProdutoDescricao
FROM Produtos;



Cumprimentos.

Boas Naldo... Com a ajuda do Colega Claudio Mas...

- Crie uma caixa texto e nomeeie como txtBarra
- No eventos ao alterar da mesma:


Private Sub txtBarra_Change()
Dim StrSQL As String
Dim Filtro As String

Filtro = "Like ('" & Me.txtBarra.Text & "*')"
StrSQL = "SELECT Produtos.ProdutoCodigo, Produtos.CodBarras, Produtos.ProdutoDescricao FROM Produtos WHERE StrReverse(CodBarras) " & Filtro & ""

Me.Combinação0.RowSource = StrSQL
Me.Combinação0.ColumnCount = 3
Me.Combinação0.ColumnWidths = "2cm; 2cm; 10cm"

End Sub


Cumprimentos.

Piloto, saudações

Não consegui fazer funcionar desta maneira, ao tentar fazer funcionar tive uma nova idéia, que é a seguinte, como o campo é código de barra e as vezes o leito óptico não le ficaria melhor se tivesse como digitar manualmente no campo somente os seis últimos dígitos Ex: o código de barra inteiro é 78951387825548 se tiver como digitar código 825548 (final do código) ficaria melhor ainda.

Sou muito grato pela sua atenção.

https://dl.dropbox.com/u/26441349/FiltraCombo.rar

Cumprimentos.

Desculpe me a demora, estava fora do pais.

Você é o cara, sempre claro e objetivo.

Grande abraço que DEUS lhe ilumine.

Só faltou o resolvido amigão.. desta vez eu coloco.

O Fórum agradece o retorno.