MaximoAccess

Caro Usuário, não tire as suas duvidas nas Salas de Repositório, abra sempre um novo tópico relacionado, nas salas destinadas para o efeito, como Sala de Tabelas, Consultas, Formulários, Relatórios, Macros, Módulos e VBA.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    Compartilhe

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Ter 23 Ago 2016, 3:16 pm

    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?

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Ter 23 Ago 2016, 7:53 pm

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

    davipaulino
    Novato
    Novato

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 15
    Registrado : 18/02/2016

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

    Mensagem  davipaulino em Ter 23 Ago 2016, 9:07 pm

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

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

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Ter 23 Ago 2016, 9:27 pm

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

    gilberlanio
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 597
    Registrado : 30/08/2010

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

    Mensagem  gilberlanio em Ter 23 Ago 2016, 11:11 pm

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


    [Você precisa estar registrado e conectado para ver esta imagem.]


    .................................................................................
    VIDEO CURSO DE ACCESS - Criando um sistema de vendas

    [Você precisa estar registrado e conectado para ver este link.]

    Loja virtual - Gilberlânio Rocha

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qua 24 Ago 2016, 1:16 pm

    Nem ao Dropbox :/

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qua 24 Ago 2016, 1:38 pm

    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.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qua 24 Ago 2016, 2:42 pm

    Amigo, veja se esse exemplo lhe ajuda...


    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qua 24 Ago 2016, 3:26 pm

    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.

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qua 24 Ago 2016, 3:33 pm

    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?


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qua 24 Ago 2016, 3:34 pm

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


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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qua 24 Ago 2016, 3:42 pm

    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.

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Sex 26 Ago 2016, 2:15 pm

    Alguem?

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

    Botão de opção

    Mensagem  Caio em Seg 29 Ago 2016, 10:47 pm

    Senhores...
    Antes de mais nada informo que esse tópico esta vinculado com esse: [Você precisa estar registrado e conectado para ver este link.]


    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?

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

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

    Mensagem  Dilson em Qua 31 Ago 2016, 1:27 pm

    Realizado fusão de tópicos.

    Por gentileza não duplique tópicos, vai contra as regras do fórum.

    Você poderia produzir um modelo, e disponibilizar para melhor entendimento e tentarem ajudar.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

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

    Mensagem  Dilson em Qua 31 Ago 2016, 2:13 pm

    Entendi a lógica e lembro que já fiz isso antes para combobox e na ocasião usei o evento ao receber foco e no sql passava como parametro os dados da ComboBox anterior:

    Pode tentar assim a partir da CxDeTexto2:

    Dim stSQL As String
    stSQL = "SELECT Campo1, Campo2, Campo3, Campo4 FROM Tabela " _
          & "WHERE " _
          & "(((Campo1) Like '*" & Forms!NomeDoForm!CxTexto1 & "*')) " _
          & "ORDER BY Campo1;"


    Acho no seu caso será no evento ao atualizar e após a sql  carrega/atualiza a list.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qua 31 Ago 2016, 8:44 pm

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

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

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

    Mensagem  Dilson em Qua 31 Ago 2016, 10:14 pm

    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.







    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qua 31 Ago 2016, 10:51 pm

    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?

    Dilson
    Moderador
    Moderador

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1602
    Registrado : 11/11/2009

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

    Mensagem  Dilson em Qua 31 Ago 2016, 11:47 pm

    Ok compreendi.

    Perceba que para os registros da caixa1 se manterem no resultado é preciso que eles se relacionem com o dado da caixa2. Então é preciso ter  "anil" de "Kg". Se essa condição satisfaz irá aparecer, como também vai aparecer outros registros indiferentes à "anil" que tem "Kg".

    Analise.


    .................................................................................
    Atenção:
    => Antes de implementar qualquer dica, faça um backup do seu projeto;
    => Retorne para marcar o Resolvido ou continuar a discussão;
    => Sempre realize pesquisas antes de postar uma pergunta;

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Qui 01 Set 2016, 1:38 pm

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Qui 01 Set 2016, 8:39 pm

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Sex 02 Set 2016, 2:31 pm

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

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Sex 02 Set 2016, 3:56 pm

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Sex 02 Set 2016, 4:22 pm

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

    [Você precisa estar registrado e conectado para ver este link.]

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Dom 04 Set 2016, 11:22 pm

    Aqui amigo o que precisa... Mude para Formulário continuo ao invés de Caixa de Listagem.
    [Você precisa estar registrado e conectado para ver esta imagem.]

    Usuario Admin senha admin
    [Você precisa estar registrado e conectado para ver este link.]


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Seg 05 Set 2016, 2:28 pm

    Não tenho acesso ao DropBox, poderia enviar no e-mail [Você precisa estar registrado e conectado para ver este link.]?

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Seg 05 Set 2016, 4:56 pm

    Enviado...


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Seg 05 Set 2016, 7:51 pm

    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 ?

    FabioPaes
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2321
    Registrado : 14/08/2013

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

    Mensagem  FabioPaes em Ter 06 Set 2016, 1:57 am

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


    .................................................................................
    _____________________________________________________________________
    Achou a solução para sua dúvida? Não seja Egoísta, Compartilhe com todos!
    A dica do Colega foi útil? Agradeça!

    O importante não saber tudo, mas sim a Onde procurar!

    Caio
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 301
    Registrado : 27/04/2015

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

    Mensagem  Caio em Ter 06 Set 2016, 1:39 pm

    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!!!

      Data/hora atual: Qui 08 Dez 2016, 1:02 am