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


3 participantes

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    avatar
    cmedeiros
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 29/05/2016

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  cmedeiros 6/1/2022, 02:08

    Boa noite a todos,

    Senhores (as), mais uma vez venho solicitar a ajuda dos colegas, quanto a resolução na implementação de uma funcionalidade.

    O que ocorre é o seguinte, conforme segue na imagem anexo, possuo um formulário que apresenta uma caixa de listagem que por sua vez possui como fonte uma consulta e preciso aplicar um filtro por data, com base no campo acima dessa caixa de listagem. Trata-se de filtragem realizada apenas com base em uma data especifica, sendo essa informada no campo mencionado.

    Funcionaria assim, ao informar a data para filtragem e clicar no botão ao lado, executa-se o filtro dos registros que possuem essa data, sendo que quando o filtro não estiver acionado, traga todos os registros da consulta.

    Desde já agradeço a todos.

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Filtro10
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  Silvio 6/1/2022, 11:31

    Boas...


    Dessa forma pode ficar ...

    No final do formulário em questão, no modo VBA

    Código:
    Public Sub filtro1()
    Dim f1 As Variant
        
        If nomecampodata<> "" Then
            f1 = "[datapagamento] Like '*" & nomecampodata & "*'"    ' datapagamento, campo que está no formulário continuo.   Nomecampodata, nome dado a caixa de texto que será colocado a data para pesquisa.
        Else
            f1 = ""
        End If
        
        Me.Filter = f1
        Me.FilterOn = True
    End Sub


    Criar um botão limpar, para desabilitar  oque fora filtrado e colocar esse código

    Código:
    Private Sub bt_limpar1_Click()
    Me.nomecampodata= ""
    Me.FilterOn = False
    Me.nomecampodata.SetFocus
    End Sub


    No botão filtrar, colocar esse código.

    Código:
    Private Sub bt_filtrar1_Click()
    filtro1
    End Sub


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    cmedeiros
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 29/05/2016

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  cmedeiros 6/1/2022, 22:38

    Silvio, boa  noite

    Primeiramente obrigado pelo imediato retorno.

    Em relação aos códigos informado, especificamente em relação ao primeiro, a descrição da linha de comando informa a sua utilização para um campo de formulário continuo. Acontece que o formulário em questão é um "formulário simples" onde os dados são demonstrados em uma caixa de listagem (listbox), sendo que essa listbox é alimentada por uma consulta.

    Dessa forma deduzo que o código necessite ser ajustado para atender a necessidade?

    Fico no aguardo para orientações.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  Silvio 7/1/2022, 10:24

    Bom dia, pode usar de boa.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    avatar
    cmedeiros
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 29/05/2016

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  cmedeiros 7/1/2022, 16:37

    Boa tarde, Silvio

    Utilizei o código como informado, porém infelizmente nada ocorre, nem ao menos apresentou qualquer mensagem de erro.

    Abaixo encaminho a tela do VBA de como foram inserido os códigos e também o modo design do formulário.

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Tela_v10

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Modo_d10
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  Silvio 11/1/2022, 11:08

    bom dia....

    poste aqui, anexe....as partes envolvidas.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  JPaulo 11/1/2022, 11:59

    Para filtrar ListBox prefiro assim, ao digitar;
    Anexos
    [Resolvido]Filtrar Registro Caixa De Listagem Por Data AttachmentTeste_filtra_listBox.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (26 Kb) Baixado 43 vez(es)


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Folder_announce_new Instruções SQL como utilizar...
    avatar
    cmedeiros
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 60
    Registrado : 29/05/2016

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  cmedeiros 11/1/2022, 14:04

    Senhores, bom dia

    Primeiro quero agradecer a vocês pela ajuda.


    Utilizando o exemplo postado pelo JPaulo ficou da maneira que eu precisava.

    De toda forma agradeço ao Silvio pela disponibilidade de tempo nas tentativas de resolução do caso.

    JPaulo, caiu como uma luva seu exemplo, mais uma vez obrigado.

    Abs
    JPaulo
    JPaulo
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 11016
    Registrado : 04/11/2009

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  JPaulo 11/1/2022, 20:51

    Fico feliz.
    Obrigado pelo retorno.


    .................................................................................
    Contribua com o maximoaccess nos links abaixo, ajude a melhorar este que é o seu site na NET.

    Pay-Pal R$ Aqui
    Pay-Pal € Aqui

    Ou ainda: Aqui (Novo)

    Sucesso e Bons Estudos
    Success and Good Studies

    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Folder_announce_new Utilize o Sistema de Busca do Fórum...
    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Folder_announce_new 102 Códigos VBA Gratuitos...
    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Folder_announce_new Instruções SQL como utilizar...

    Conteúdo patrocinado


    [Resolvido]Filtrar Registro Caixa De Listagem Por Data Empty Re: [Resolvido]Filtrar Registro Caixa De Listagem Por Data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 29/3/2024, 05:25