[Resolvido]Filtro no Access 2007

Boa noite!

Sou novo por aqui e estou precisando da ajuda de vocês!
Estou tentando criar um filtro baseado numa consulta.
Criei uma caixa de combinação em um formulário chamada: txt_treinamento. Nesta caixa deveria aparacer as informações da consulta que estou referenciando neste campo.
No "Criterio" da consulta está assim:

Like [Forms]![F_Principal]![Txt_treinamento] & "*"

Lembro que "F_Principal" é o nome do formulário que está a caixa de combinação "Txt_treinamento"

Sempre que tento rodar, fica sempre abrindo uma caixinha pedindo um valor.

Por favor, me ajudem!

Amigo tente dar uma olhada neste tópico que o JPaulo me ajudou a resolver um problema parecido.

http://maximoaccess.forumeiros.com/t3128-resolvidoaplicar-filtro-ao-subformulario-atraves-de-caixa-de-selecao

Obrigado amigo, mas tentei e não consegui fazer funcionar!
Na verdade este método até funciona, porém, fica meio que bugado... Algumas informações podem ser filtradas, outras ele não consegue.
O engraçado é que ele filtra e não filtra. Ou seja, no mesmo campo ele filtra uma informação, só que quando vai filtrar outro dado ele da bug.

Amigo, por favor, explique melhor a situação, pois aqui funciona bem certinho...

mas as vezes é só questão de adaptar o código na consulta.

É o seguinte...
Tenho uma formulário que tem uma caixa de combinação chamada "Txt_treinamento". Essa cx d combinação deverá me retornar os dados que estão em um Subformulário.
Dentro da consulta que pega dos dados do Subformulário, fui no campo que deverá ser filtrado na Cx de Combinação e coloquei o seguinte critério: Like [Forms]![F_Principal]![Txt_treinamento] & "*".
Desta forma está funcionando, porém, existe um dado (isso mesmo, um específico dado) que não acontece nada quando selecionado na Cx de Combinação.

tente fazer assim Like "*" & [Forms]![F_Principal]![Txt_treinamento] & "*".

se nao der coloque a BD aqui para eu dar uma olhadinha.

Tentei esse método que você falou, mas ainda continua com o bug.
Segue BD em anexo.
Dê uma olhada ai como estou fazendo.
Obrigado pela ajuda!

Ola Amigo creio que isso deve solucionar o seu "bug".
pois na verdade como usamos o Like Forms!formulario..... & "*", o asterisco serve como um curinga.

logo se o numero for igual a 2 como no seu primeiro registro seria como pedir para que o access filtrasse como 2... alguma coisa como 21, 22, 23 ..., 29, 212, ou qq outra coisa que comece com 2. e se fosse outro numero seria a mesa regra..

aguardo o retorno.

Obrigado amigo! Desta forma corrige o bug.
Só que, com essa solução os dados não ficam a mostra no Subformulário né...
Será que teria uma forma de aperecer?

Amigo... não sei te dizer se tem como aparecer vou fazer uns testes... e te respondo...

mas se ja estiver como resolvido... marque como resolvido... por favor.

é Amigo tentei algumas formas e nao consegui.... mas se alguem souber postarao aqui... mas é realmente necessário...??

Eu estava tentando com um criterio assim:

Como SeImed([Forms]![F_Principal]![Txt_treinamento]<=0;[Forms]![F_Principal]![Txt_treinamento] & "*";[Forms]![F_Principal]![Txt_treinamento])

mas nao deu certo.... tentei para cada um dos campos...

Ok, é necessário, pois foi um cliente que pediu.
De qualquer forma, obrigado pela ajuda!

Como colocam resolvido se não está resolvido?

segue modificações:

Baixar exemplo modificado

Bom estudo!

Ficou perfeito.....

Vou inclusive usar em meus BDs...

o meu outro jeito dava muito trabalho....

Obrigado Avelino... por nos ajudar...

Bom Dia Avelino, estou usando esta modificação, mas gostaria de filtrar por parte da palavra por exemplo

"SAC PLAST AC AD 32X40 BRANCO" eu digitar só "32x40" por exemplo ou só o "AD" e ele filtrar todos os itens que contém essas palavras no nome. eu tentei algo como "ProdutoCompleto = '" & "*" & Me!Cod_Produto & "*" & "'", mas não funciona.

desde já obrigado.

Tem de adicionar o Like

"ProdutoCompleto = Like " * " & Me!Cod_Produto & " * " "

Obrigado pelo retorno.

Vixe não funcionou.
segue abaixo o código todo para facilitar. pois nao consegui nem passar do "Case 1", rs

Public Sub Atualizar()
Dim j As Byte
Dim filtro As String
j = 0
If Not IsNull(Me!Cod_Produto) Then j = j + 1
If Not IsNull(Me!Cod_FaseEstDef) Then j = j + 3
If Not IsNull(Me!Cod_AlçaDef) Then j = j + 5
If Not IsNull(Me!CorIlhosDef) Then j = j + 10
MsgBox (Me!Cod_Produto)

Select Case j
Case 1
filtro = "ProdutoCompleto = '" & Me!Cod_Produto & "'" ' aqui ja tentei de outras formas também, além da proposta por você JPaulo.
Case 3
filtro = "FasedeEstocagem ='" & Me!Cod_FaseEstDef & "'"
Case 4
filtro = "ProdutoCompleto = '" & Me!Cod_Produto & "' and FasedeEstocagem ='" & Me!Cod_FaseEstDef & "'"
Case 5
filtro = "CordoCordão ='" & Me!Cod_AlçaDef & "'"
Case 6
filtro = "ProdutoCompleto = '" & Me!Cod_Produto & "' and CordoCordão ='" & Me!Cod_AlçaDef & "'"
Case 8
filtro = "CordoCordão = '" & Me!Cod_AlçaDef & " and FasedeEstocagem ='" & Me!Cod_FaseEstDef & "'"
Case 9
filtro = "ProdutoCompleto = '" & Me!Cod_Produto & "' and FasedeEstocagem =" & Me!Cod_FaseEstDef & " and CordoCordão =" & Me!Cod_AlçaDef
Case 10
filtro = "CordoIlhos = '" & Me!CorIlhosDef & "'"

End Select
Me.Estoque_Sub.Form.Filter = filtro
Me.Estoque_Sub.Form.FilterOn = True

End Sub

Olá

Experimente assim:

"ProdutoCompleto Like '*" & Me!Cod_Produto & "*'"

Aproveite e leia este tutorial. Acho que vai lhe ajudar bastante.

Tutorial com vídeo-aula


Sucesso!

Ajudar!... acho que este tutorial é tudo que preciso para o momento, novamente muito obrigado...

Obrigado a todos mais uma vez.