[Resolvido]Filtros usando ListBox.Requery ou botão de opção e ou/

Mestres.. gostaria de uma ajuda!

Uso nos critérios da consulta: Como [forms]![MeuForm].[txt_campo1].[text] & "*"

E no evento "ao alterar" do campo uso: MinhaLista.Requery

Porém no form de pesquisa tenho 6 campos, e na maioria das vezes preciso filtrar em mais de um campo. Só que ao filtrar no segundo campo e valor do campo 1 é desconsiderado. Ou seja!

Ele só filtra o campo que esta alterando e não com base em outro filtro. Alguém poderia me ajudar?

Não possuo acesso ao youtube na empresa, poderia explicar por aqui?

Boa tarde amigo, tenta dessa maneira em cada campo que precisa de filtro

Como SeImed(É Nulo([Campo]);"*";[Campo])

Não funcionou amigo, da um erro onde julga o parênteses "(" ")".

Coloquei o exemplo no site, veja como fiz na origem da linha da caixa de listagem

Nem ao Dropbox :/

Se caso o seu for com:

Código:

Me.Recalc
Me.txt_tal.SetFocus
SendKeys "{F2}"

e a consulta com o valor: como [forms]![fml_tal].[txt_tal] & "*" pra mim não serve! esse filtra mais de uma coluna, porém o processo de pesquisa é muito lendo e desliga o NumLock.

Amigo, veja se esse exemplo lhe ajuda...


https://www.maximoaccess.com/t26249-resolvidoformulario-de-pesquisa-caixa-de-listagem

Usei esse código:

Código:

Private Sub txt_descricao_Change()
Dim k, j, x$
Dim strseq$
x = Me!txt_descricao.Text
If Len(x) = 0 Then
    Me.FilterOn = False
    Me!txt_descricao.SetFocus
    Exit Sub
End If
k = Split(x, " ")
For j = 0 To UBound(k)
    strseq = strseq & "obs LIKE '*" & k(j) & "*' or "
Next
strseq = Left(strseq, Len(strseq) - 4)
Me.Filter = strseq
Me.FilterOn = True
Me!txt_descricao = x
Me!txt_descricao.SelStart = Len(x)
End Sub

E nos critérios da consulta: Como "*" & [forms]![fml_SAP]![txt_descricao] & "*"


Porém não esta funcionando, não da nenhuma mensagem de erro e nem me traz resultado digitado no campo.

Amigo esta se confundindo aeee... O metodo FilterOn e utilizado para aplicar filtro em formulario... Que eu saiba nao funciona em Caixa de listagem...

Utilize esse metodo, mas coloque os campos no formulario e modo continuo ou folha de dados.

Vc viu o exemplo que postei na mensagem anterior?

Outra coisa, se utilizar esse metodo que postou deve remover todos os criterios da consulta...


Esse codigo que postou e para pesquisar por termos...

Removi os critérios e mudei o modo do formulário para contínuo, mesmo assim não funciona!

OBS: Meu formulário é uma caixa de texto para pesquisa e uma caixa de listagem onde deve-se ter o resultados da pesquisa.

Alguem?

Senhores...
Antes de mais nada informo que esse tópico esta vinculado com esse: https://www.maximoaccess.com/t27719-filtros-usando-listbox-requery


Parece simples! Mais esta dando uma bela dor de cabeça...
Uso um formulário com 4 caixas de texto para pesquisa em uma caixa de listagem.

Porém preciso que quando buscar pela 2° caixa de texto, ela só filtre os filtrados pela 1° caixa de texto.
Isso é possível usado:

Código:

Private Sub caixa1_change ()
Me.recalc
Me.caixa1.SetFocus
SendKeys "{F2}"
End Sub

Como [forms]![fml_Dados].[caixa1] & "*"

Porém demora muito para carregar os dados e se escrever rápido fica recalculando e jogando letra em cima  de letra.


Para pesquisa com mais rapidez, uso:

Código:

Private Sub caixa1_Change ()
CaixaDeListagem.Requery
End Sub

Como [forms]![fml_Dados].[caixa1].[text] & "*"

Porém o modo mais rápido busca em coluna individual, se caso querer buscar na caixa2 ele pega todos e desconsidera os já filtrados pela caixa1.


Estava pensando em um botão de opção, que funcionaria assim:

Código:

Private Sub Opcao_Click ()
If Me.Opcao Then
'Se comporta do modo Rápido
Else
'Se comporta do modo filtro com várias colunas
End If
End Sub

Claro se alguém souber como filtrar por várias caixa de texto com o modo mais rápido seria o ideal.


Alguma Luz?

Coloquei essa SQL na origem da minha ListBox, porém não resolveu.
Continua filtrando apenas por uma coluna.

Analisando vejo que a query que passei não vai resultar mesmo nesse caso.

Eu olhei passo a passo o que solicitou e te digo que passar os parâmetros de cada caixa no campos:

Como [forms]![fml_Dados].[caixa1].[text] & "*"

Como [forms]![fml_Dados].[caixa2].[text] & "*"

E chamar o método Requery:

CaixaDeListagem.Requery

Já era suficiente para filtrar todos os campos.

A não ser que falta relatar algo para percebermos.

Dica: Elabora um modelo e disponibiliza para vermos.

Sim, atualmente funciona dessa forma.

Porém se eu filtrar na caixa1: ex: "anil" vai me trazer todos registros que contém o "anil" certo?
A partir desse resultados quero filtrar por exemplo a caixa2(Unidade): ex: "kg". Ai é onde esta dando o erro ele desconsidera os filtrados da caixa1 ( "anil" ) e filtra TODOS registros que estão com a unidade em "Kg".

Preciso que a ListBox exiba resultados de duas ou mais CaixaDeTexto.

Entendeu?

Isso.
Agora eu preciso de algum código que faz com que a caixa2 só filtre os já filtrados pela caixa1.

Amigo, o que vc precisa, salvo engano tem feito no aplicativo Maestro do mestre Avelino Sampaio. Baixa e verifica la os filtros...

Amigo, o dele é idêntico ao da mensagem N° 7.

Nao e nao... La tem varias formase. Uma delas e s que precisa... como estou sem.pc nao posso lhe mostrar...

Alguém poderia me enviar o Arquivo que o amigo mencionou?

caio.fabio91@gmail.com

Aqui amigo o que precisa... Mude para Formulário continuo ao invés de Caixa de Listagem.


Usuario Admin senha admin
https://www.dropbox.com/s/ahu3i0gas0t0usg/maestro.zip?dl=1

Não tenho acesso ao DropBox, poderia enviar no e-mail caio.fabio91@gmail.com?

Enviado...

Boa tarde Fábio, você compartilhou via OneDrive.
Porém não tenho acesso a sites de armazenamento, por segurança da empresa onde trabalho. Poderia me enviar o arquivo .accdb ?

Amigo, seu email ta com algum problema... esta retornando todas as tentativas de envio

Já consegui baixar, mais um pouco antes já tinha solucionado o problema.

Segue exemplo para pessoas com o mesmo problema:

Código:

Option Compare Database
Option Explicit
Dim VarTecla
Private Sub Form_Open(Cancel As Integer)
Me.KeyPreview = True
Me.ListBox = ""
End Sub

Private Sub Form_KeyPress(KeyAscii As Integer)
If KeyAscii = 32 Then
VarTecla = 1
End If
End Sub

Private Sub CaixaTexto_AfterUpdate()
ListBox.Requery
End Sub

Private Sub CaixaTexto_Change()
If VarTecla = 1 Then
VarTecla = 0
Else
Me.Recalc
Me.CaixaTexto.SelStart = 255
End If
End Sub

Critérios da Query: como [forms]![SeuForm].[CaixaTexto] & "*"


Obrigado pela atenção e até a próxima!!!