[Resolvido]Vincular filtros

Tenho diversos filtros aplicados em um subformulário que conforme vou digitando, o subformulário é filtrado. Acontece que os filtros não estão vinculados, ou seja, se filtro por descrição, quando começo a filtrar por pedido ele desfaz o filtro por descrição.

Código que utilizo no evento "ao alterar" da textbox:
Dim filtro As string
filtro="[Descrição] Like '*" & Me!txtDescricao.Text & "*'"
Me!ProgramaçãoSub.Form.Filter=filtro
Me!ProgramaçãoSub.Form.FilterOn=True

Seria algo mais ou menos assim:

if isnull(me.txtdescricao) then filtro="[Descrição] Like '*" & Me!txtDescricao.Text & "*'"
if isnull(me.txtpedido) then filtro=filtro & " AND [Descrição] Like '*" & Me!txtDescricao.Text & "*'"
...

if mid(filtro,1,4)=" AND" then filtro = mid(filtro,5)

Pessoal, retirei o resolvido porque era alarme falso.
Pesquisei muito e me parece que não existe solução pra isso, por mais simples que pareça.

Fiz através de uma consulta, mas ou ela retorna todos os dados usando o "énulo" no campo "ou", ou o filtro funciona, as duas coisas eu não encontrei em lugar nenhum alguem que obteve sucesso.

Parece simples: filtrar em um subformulário usando mais de um filtro(vinculando os critérios).

Marcelo David, não obtive êxito, mesmo tentando alguns ajustes.

Bom dia Matheus Bohn,

Veja se este exemplo vai de encontro ao seu propósito.

zcarloslopes de novo você! Hehehehe

Obrigado mais uma vez, é praticamente isso.

Outro detalhe é que possuo 11 campos de filtro em textbox e mais um por data inicial e final, com a necessidade de vincular todos.
Provavelmente o código ficaria muito extenso e pesado pra rodar.

Teria que encontrar alguma forma de vincular todos estes campos minimizando ao máximo o código. Provavelmente através de uma variável.

Tem várias formas de fazer o que você pretende, inclusive através de uma consulta.

No entanto se seguir a lógica do meu poste anterior irá funcionar com certeza..

zcarloslopes, através de uma consulta eu venho tentando a algum tempo, inclusive pesquisei bastante e nunca encontrei a solução.
Vincular eu consegui através da consulta, o problema é que eu tenho campos que nem sempre possuem valor (is null), e aí começar os problemas da consulta.

Vou tentar aplicar seu código para todos os campos. Obrigado.

Veja esta demo através da consulta..

É o filtro que eu vinha tentando até aqui.
Note que se um pedido ou uma descrição estiver vazia, ele não trás o registro para o subform. Sempre terei alguns campos vazios no meu sistema.

Tentei de tudo para resolver isso, inclusive no campo "ou" da consulta, inserir "é nulo" tentando atender aos dois critérios.

Bom dia Matheus Bohn,

Veja que o exemplo que enviei faz isso mesmo, ele pesquisa mesmo que deixe uma e/ou as duas TexBox vazias... fiz o teste e funciona..

zcarloslopes, bom dia!
O problema não são as textbox de filtro e sim a base de dados.

Se tiver um pedido ou uma descrição sem dados, o registro não carrega no subfobformulário.

Experimente apagar algum dado na tabela.

Não havia entendido..

Veja esta versão.

zcarloslopes, esse atende!

Só um detlhe, note que o vazio está vindo junto, quando eu entro com uma descrição.
Por exemplo: filtro por teste 1 na descrição, os registros vazios são carregados juntos.

Será que é possível ajustarmos isso?

Obrigado.

Nesse caso deve ser isto que pretende..

Rapaz, resolvestes um problema que me deparei em 2015, quando comecei. Pesquisei muito e em vários lugares, nada de solução.


Dois detalhes (que não são problemas):
1)Meu código de remoção não está mais funcionando porque antes o filtro era 100% via VBA. Sabe o código que posso usar para remover este filtro da consulta?

2)Tenho um campo que preciso aplicar este filtro mas ele é um campo calculado dentro da consulta, ou seja, não posso fazer referência a tabela.




Parabéns e obrigado.

Boa tarde Matheus Bohn,

Fico contente por ajudar a resolver um problema tão antigo.., na verdade eu já uso esse método há muitos anos, nem sei mais de onde tirei essa ideia.

O método tem várias vantagens, pois pode colocar várias condições, inclusive em filtros que envolvem dadas...


No que respeita às suas questões, para remover os filtros bastara colocar algo parecido com:

Código:

Me.txtBoxFiltro1 = Null
Me.txtBoxFiltro2 = Null
Me.txtBoxFiltro3 = Null
Me.txtBoxFiltro(n) = Null

Me!ProgramaçãoSub.Form.Requery

A outra questão do campo calculado, eu não entendi muito bem, queira explicar um pouco melhor ou colocar um exemplo (até A2003) para poder verificar.

Será isto?

"A outra questão do campo calculado, eu não entendi muito bem, queira explicar um pouco melhor ou colocar um exemplo (até A2003) para poder verificar."

Realmente, me expressei mal. Assim como apliquei o seu filtro eu todos os campos (pedido, descrição, etc) quero aplicar também num campo que não existe na tabela, é um campo calculado que criei na consulta denominado "atrasado").

É um campo criado na consulta da seguinte forma: Atrasado: Seimed([data]<=agora();"ATRASADO";"-")
Quero considerar este campo na série de filtros.

Então será isto..!?

Perfeito, isso mesmo.

Obs: só tive um problema no subformulário, as caixas de seleção não estão mais selecionáveis, aparece a mensagem "Esse record set não pode ser atualizado". Mas enfim, acho que não tem ligação, devo ter apagado alguma linha acidentalmente.

Que coisa impressionante, resolve uma coisa, estraga a outra.
O tão esperado filtro está funcionando, porém as checkbox não consigo selecionar mais.

Testei de tudo, o erro não está na consulta, de modo que mantive o código dentro dela e as check ainda puderam ser selecionadas. Parece algum conflito entre vba e a consulta.

Tentei o filtro instantâneo e tentei o seu filtro (com botão de filtragem), nada habilita as checkbox.

Se quiser tentar, mas está complicado. Arquivo tem a automação de vinculação de tabelas.
Senha front: usuário admin e senha admin

senha do BE:102030

Entre com o shift e faça o login.

Bom dia Matheus Bohn,

Agora precisa de uma nova abordagem...

Veja este exemplo

Acho que vou ficar com o teste 3(filtro vinculado mas sem ignorar os vazios), é o que mais se aproximou da necessidade. O v7 fica complicado devido o duplo clique, perco outras funções.

Talvez ajude
https://www.maximoaccess.com/t36254-resolvidofiltrar-com-mais-de-9-filtros-maestro-como-base

Damasceno, boa tarde. O filtro é perfeito, mas parece que não se aplica a subformulário. Adequei o código ao meu projeto e não está filtrando.
Será que é possível adaptar para sub?

Pessoal, consegui resolver. Fiquei com o exemplo v3, onde os filtros eram sequenciais mas os campos em branco ele não ignorava.
Inseri uma consulta atualização que preenche os campos em branco com hífen e no caso de edição, se o operador deixar em branco, o sistema preenche automaticamente.

Ficou muito bom.

Obrigado a todos pela força!