[Resolvido]Filtrar ao Digitar em Caixa de Combinação

Bom dia Amigos

Estou com uma dúvida

Tenho um subform em um form chamado Pedido de Compra.
Neste subform (folha de dados) tenho os itens a qual alimento este Pedido de Compra.

Neste subform o campo a qual escolho meus itens é uma caixa de combinação chamada "Item" a qual apresenta todos os produtos disponíveis para ser lançado pelo usuário.

O problema: a listagem está ficando grande. Difícil de localizar

Minha dúvida.
Existe uma forma de filtragem para agregar nesta caixa de combinação para facilitar a busca?
Pensei em algo a qual a medida que se digite, o listagem vai apresentado o resultado conforme filtragem.

Aí e selecionar e pronto.

tem como????

Dê uma olhada na propriedade "Auto expandir" da combo.

Bom dia Criquio

Hoje já uso o Auto Expandir = "sim" juntamento com a função me vba "Me.Item.Dropdown" em "Ao pressionar Tecla" para abrir a lista.

funciona quando digito o nome do item pelo inicio.

O problema é quando o usuário não sabe o inicio da narrativa do item.
Exemplo:

na lista pode ter:

Prego 15x30
Prego 15x15
prego 10x15
prego 20x20

se digitasse somente "15" (apresentaria na lista somente os Itens que contenho o 15 na narrativa)ficando assim:

Prego 15x30
Prego 15x15
prego 10x15

não sei se isso é possível de se fazer em Caixa de Combinação.

Tente no evento "Após atualizar" da combo:

Código:

Me.NomeDaCombo.RowSourceType = "Table/Query"
Me.NomeDaCombo.RowSource = "SELECT NomeDoCampo FROM NomeDaTabela WHERE NomeDoCampo LIKE '*" & Me.NomeDaCombo.Value & "*' ORDER BY NomeDoCampo"

No caso acima estou considerando que sua combo tem apenas uma coluna. Caso tenha mais, selecione os outros campos para as outras colunas. Ainda se tiver mais de uma coluna, pode ser necessário trocar o .Value pelo número da coluna .Column(n)

Caso não tenha interesse em ordenar a lista, retire o ORDER BY NomeDoCampo.

Não teve efeito Criquio

Utilizei o exemplo no evento Antes de atualizar e Após atualiza

Minha combo tem origem a dois campo conforme sql: SELECT CD_CadProduto, DescricaoProduto FROM tbl_CadProduto
sendo o CD_CadProduto oculto.

A principio está certo o código:
Private Sub MinhaCombo_AfterUpdate()
Me.MinhaCombo.RowSourceType = "Table/Query"
Me.MinhaCombo.RowSource = "SELECT CD_CadProduto, DescricaoProduto FROM tbl_CadProduto WHERE DescricaoProduto LIKE '*" & Me.MinhaCombo.Column(1) & "*' ORDER BY DescricaoProduto"
End Sub

Inverta as colunas, deixando a coluna a ser filtrada em primeiro lugar e inverta as larguras das colunas. Depois, coloque a linha "Limitar a uma lista", na aba Dados das propriedades como Não e teste para ver se funfa.

nada...

sem resultados....

Eu fiz um teste aqui conforme falei acima e funcionou. Verifique se os nomes e a ordem dos campos estão corretos em todas as ocorrências.

Marcelo,
Em vez de colocar DepoisDeAlterar, coloque aoAlterar

será que o problema não é por ser campo de chave estrangeira?

Minha combo é ligada a dados como chave estrangeira da tbl_CadastroProduto

Não acredito que seja. Tente colocar no evento "Ao alterar" conforme a sugestão do Alexandre. Nesse caso, mudando o .Value para .Text:

Código:

Me.NomeDaCombo.RowSourceType = "Table/Query"
Me.NomeDaCombo.RowSource = "SELECT Descrição, Código FROM tblProdutos WHERE Descrição LIKE '*" & Me.NomeDaCombo.Text & "*'"
Me.NomeDaCombo.Dropdown

Desse jeito tambem funfa redondo aqui.

Agora deu certo.

Restruturei minha relação de tabela e coloquei a função no evento "Ao alterar".

ficou bem do jeito que eu queria.....

Obrigado Criquio...
Valeu pela dica Alexandre...

Estou encerrando....

Pessoal,
Este item ajudou muito.
Obrigado e parabéns pelas informações.

Pelos vossos exemplos consegui resolver um problema semelhante um bem haja para todos