[Resolvido]Filtro trabalhando em Conjunto com outro filtros

Galera, eu utilizo um filtro de subform em um dos meus formularios. Tem um caixa de texto com um filtro para cada campo. O filtro funciona perfeitamente, o problema é que gostaria que eles trabalhassem paralelamente. Do jeito q esta, quando entro com valores em uma segunda caixa de texto, ele ignora o filtro anterior. Eu gostaria que eles trabalhassem juntos, fazendo filtro, filtro/filtro, filtro/filtro/filtro. O codigo que utilizo é esse:

Private Sub texto49_Change()
Dim filtro As String
If Len(Me!Texto49.Text & "") = 0 Then
Me!sfrmPedidos.Form.Filter = ""
Me!sfrmPedidos.Form.FilterOn = False
Exit Sub
End If
filtro = "[ASSUNTO] like '*" & Me!Texto49.Text & "*'"
Me!sfrmPedidos.Form.Filter = filtro
Me!sfrmPedidos.Form.FilterOn = True
End Sub

Private Sub texto61_Change()
Dim filtro As String
If Len(Me!Texto61.Text & "") = 0 Then
Me!sfrmPedidos.Form.Filter = ""
Me!sfrmPedidos.Form.FilterOn = False
Exit Sub
End If
filtro = "[Número Auto de Infração] like '*" & Me!Texto61.Text & "*'"
Me!sfrmPedidos.Form.Filter = filtro
Me!sfrmPedidos.Form.FilterOn = True
End Sub

Private Sub texto13_Change()
Dim filtro As String
If Len(Me!Texto13.Text & "") = 0 Then
Me!sfrmPedidos.Form.Filter = ""
Me!sfrmPedidos.Form.FilterOn = False
Exit Sub
End If
filtro = "[ARM] like '*" & Me!Texto13.Text & "*'"
Me!sfrmPedidos.Form.Filter = filtro
Me!sfrmPedidos.Form.FilterOn = True
End Sub

Private Sub texto89_Change()
Dim filtro As String
If Len(Me!Texto89.Text & "") = 0 Then
Me!sfrmPedidos.Form.Filter = ""
Me!sfrmPedidos.Form.FilterOn = False
Exit Sub
End If
filtro = "[Razão Social] like '*" & Me!Texto89.Text & "*'"
Me!sfrmPedidos.Form.Filter = filtro
Me!sfrmPedidos.Form.FilterOn = True
End Sub

Private Sub texto91_Change()
Dim filtro As String
If Len(Me!Texto91.Text & "") = 0 Then
Me!sfrmPedidos.Form.Filter = ""
Me!sfrmPedidos.Form.FilterOn = False
Exit Sub
End If
filtro = "[Observações] like '*" & Me!Texto91.Text & "*'"
Me!sfrmPedidos.Form.Filter = filtro
Me!sfrmPedidos.Form.FilterOn = True
End Sub

Boas Gustavo, seria melhor na consulta do subForm aplicar os critérios:

Na consulta em modo Design:

Como Forms!NomeDoForm!SuaCaixaTexto & "*"

E nos campos logo mais abaixo, na linha Ou...

E em eventos após atualizar de cada caixa texto Me.SeuSubForm.Requery
Assim funcionará em conjunto.




Cumprimentos.

No meu aplicativo Maestro tem exemplos com esta finalidade.

http://www.usandoaccess.com.br/download.asp


Porem estarei atualizando, como uma forma bem mais simples, para este caso de vários campos de filtragens simultâneas. Se der tempo, ainda hoje ofereço o código.

Sucesso!

Mestre avelino, o codigo esse codigo é seu =). No maestro tem um outro exemplo do jeito q gostaria, mas ele pega os valores "chamando" a planilha. Eu queria q o meu continuasse usando o subform como base. Ate tentei entender melhor a referencia que tenho do maestro para adaptar nesse, mas nao consegui. Se puder me auxiliar ficaria grato Avelino.

Abs e obrigado pela ajuda.

Fala piloto,

Cara, em relação a Forms!NomeDoForm!SuaCaixaTexto & "*", a qual caixa de texto seria ? Eu tenho um caixa de texto para cada campo.

Galera, pra quem puder dar uma força, estou disponibilizando o BD.

Veja:

http://maximoaccess.forumeiros.com/t9891-resolvidofiltros-combinados-no-formulario


Cumprimentos.

Piloto, é isso mesmo que quero. O problema é q estou pegando os dados de um subform, se eu joga-los direto como ele faz, o visual do BD não fica legal. Quero ter a barra de rolagem limitada ao campo do BD. Tentei pegar o modelo dele e adaptar ao meu, mas nao estou conseguinte definir o campinho dos campos para o meu subform. Poderia me dar uma ajuda ? Vou disponibilizar o BD para Facilitar.

Amigo.. infelizmente ainda não consegui baixar o teu bd para lhe auxiliar... minha conexão esta horrivel hoje

Olá, Gustavo!

Baixe a versão 4 do Maestro que acabei de lançar.

Atualizei o código de filtragem para os exemplos com formulário continuo e listbox. Nos exemplos utilizo 4 campos de pesquisa com UMA ÚNICA FUNÇÃO. Pode adaptar perfeitamente para filtrar subforms.

http://www.usandoaccess.com.br/download.asp

Bom estudo!

Mestre, muito obrigado ! Vou olhar com calma o exemplo.

Mestre, consegui adaptar, muito obrigado a vc e a todos q ajudaram.

O Fórum agradece o Retorno.