MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

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


2 participantes

    [Resolvido]Filtrando dados

    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty [Resolvido]Filtrando dados

    Mensagem  Kaynan 16/3/2024, 22:26

    Tudo bem pessoal,neste exemplo preciso fazer um filtro assim:
    No form ListaClientes tem um botão LocalizarClientes,clicando nele abre um form para digitar o cliente,queria que ao digitar o cliente fosse filtrando.
    Qual código eu usaria pra isso?
    Anexos
    [Resolvido]Filtrando dados AttachmentFiltrar.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (100 Kb) Baixado 6 vez(es)
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Kaynan 18/3/2024, 19:36

    Como faço esse filtro pessoal.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Avelino Sampaio 18/3/2024, 19:59

    Olá!

    Usar um botão para abrir um outro formulário só para realizar a pesquisa é completamente desnecessário.

    Elimine o botão e no lugar ponha uma caixa de texto. A caixa de texto servirá para realizar a filtragem. Chame essa caixa de texto de FiltraCliente e no evento "ao alterar" coloque o código abaixo:

    Private Sub FiltraCliente_Change()
    Dim filtro As String
    If Len(Me!FiltraCliente.Text & "") = 0 Then
    'Se não há nada digitado, remove o filtro
    Me.Filter = ""
    Me.FilterOn = False
    Exit Sub
    End If
    filtro = "[Cliente] like '*" & Me!FiltraCliente.Text & "*'"
    Me.Filter = filtro
    Me.FilterOn = True
    End Sub


    Sucesso!






    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Kaynan 18/3/2024, 20:17

    Deu certo Avelino, mas na caixa texto só aceita digitar um dígito só.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Avelino Sampaio 18/3/2024, 21:04

    Não,

    na caixa de texto aceita digitar vários dígitos.   E vai filtrando a medida que digita.  Usou o evento correto ("ao alterar") ?


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Kaynan 18/3/2024, 21:26

    Sim no evento ao alterar,estranho vou refazer de novo.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Kaynan 18/3/2024, 21:49

    Não sei o que pode ser,ao digitar a primeira letra fica selecionada. [Resolvido]Filtrando dados Captur25
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Avelino Sampaio 18/3/2024, 22:59

    Realmente estava dando erro.  Posicionei o campo no formulário principal ao invés do subformulário.  

    Segue modificação e veja se atende.
    Anexos
    [Resolvido]Filtrando dados AttachmentFiltrar_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (73 Kb) Baixado 5 vez(es)


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Kaynan 19/3/2024, 13:46

    Bom dia Avelino,assim funcionou certinho,mas como eu tinha mencionado no inicio,eu vi em um video chamar um form para pesquisa,seria complica fazer assim?
    Não que seja necessario,mas para efeito de aprendizagem.
    Avelino Sampaio
    Avelino Sampaio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3880
    Registrado : 04/04/2010

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Avelino Sampaio 19/3/2024, 14:37

    Não complica, basta usar o mesmo código que utilizei no exemplo, trocando o ME por Forms!formListCli.

    Supondo que o nome do campo de pesquisa seja txtCliente:

    Private Sub txtCliente_Change()
    Dim filtro As String
    Dim x As String
    x = Me!txtCliente.Text
    If Len(x & "") = 0 Then
       'Se não há nada digitado, remove o filtro
       Forms!formListCli!Clientes.Form.Filter = ""
       Forms!formListCli!Clientes.Form.FilterOn = False
       Forms!formListCli!FiltraCliente2.SetFocus
       Exit Sub
    End If
    filtro = "[Cliente] like '*" & x & "*'"
    Forms!formListCli!Clientes.Form.Filter = filtro
    Forms!formListCli!Clientes.Form.FilterOn = True
    End Sub


    Para saber mais sobre referências de formulários e subformulários, veja este meu artigo:

    Copie cole o endereço abaixo no seu navegador
    usandoaccess.com.br/tutoriais/referenciar-formularios-e-relatorios-propriedades.asp?id=1#inicio

    Sucesso!


    .................................................................................
    Vídeos, livros, kit MontaRibbons e acesso vitalício ao site UsandoAcces  
    Clique AQUI e analise o custo beneficio do material oferecido.
    avatar
    Kaynan
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2974
    Registrado : 09/04/2012

    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Kaynan 19/3/2024, 16:29

    Eitaa,perfeito Avelino muito obrigado,valeu mesmo.

    Conteúdo patrocinado


    [Resolvido]Filtrando dados Empty Re: [Resolvido]Filtrando dados

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 25/4/2024, 03:39