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]Filtrar Relatório por Data

    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty [Resolvido]Filtrar Relatório por Data

    Mensagem  JmB2023 22/10/2023, 22:59

    Boas, sou novo no fórum.

    Infelizmente não tenho muita experiência no Access, e por este motivo, estou um pouco perdido. Tenho andado a testar vários passos no meu código mas não consigo que funcione de forma correta.

    O que pretendo é no meu formulário periodo, inserir o mês e ano e ao clicar o botão que apareça o meu relatório filtrado. A base de dados consiste numa tabela clientes do qual tenho o nome, data de inicio e data de fim. Ao colocar a data que pretendo no meu formulário periodo (Mês e Ano), pretendo que o relatório mostre quais os clientes que se encontram ativos nesse período.

    Se colocar mês 7 e ano 2022, referente ao período de Julho/2022 deverão aparecer os clientes com início de contrato inferior a este período e com data de fim superior (se tiverem data de fim).

    Em anexo envio o ficheiro da base de dados.

    Toda a ajuda é bem-vinda.
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty Código VBA

    Mensagem  JmB2023 23/10/2023, 11:33

    Boas, novamente.

    O código que estou a utilizar é o seguinte:

    Private Sub Command5_Click()
    Dim MonthDate As Date
    Dim YearDate As Date
    Dim CompleteDate As String
    Dim CompleteDate2 As String
    Dim stDocName As String
    Dim stLinkCriteria As String

    MonthDate = Me.Text0
    YearDate = Me.Text2

    CompleteDate = "01" & "/" & Me.Text0 & "/" & Me.Text2

    CompleteDate2 = Format(CompleteDate, "dd/mm/yyyy")

    MsgBox CompleteDate2

    stDocName = "Frmclientes"
    stLinkCriteria = "[Data_Inicio] <=#" & CompleteDate2 & "#" & " AND [Data_fim] IS NULL OR [Data_fim]>#" & CompleteDate2 & "#"


    Debug.Print stLinkCriteria
    DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria


    End Sub

    O Código calcula corretamente a Data de Inicio conforme a data do critério (CompleteDate2), no entanto, como data do fim não o faz corretamente.

    O que estou a fazer mal?
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 23/10/2023, 13:36

    Olá,

    É necessário usar o formato de data americano. Copie e cole a isntrução abaixo e substitua no seu código:

    Código:


      '-- by Alexandre Fim ------------------------------------------------------
     
        CompleteDate = "01" & "/" & Me.Text0 & "/" & Me.Text2
       
        '-- Obtem o ultimo do dia do mês informado
        CompleteDate2 = DateSerial(Year(CompleteDate), Month(CompleteDate) + 1, 0)
        stDocName = "Frmclientes"
        '-- Utilizar operador BETWEEN (Está entre [DATA INIAL] e [DATA FINAL])
        stLinkCriteria = "[Data_Inicio] BETWEEN #" & Format(CompleteDate, "mm/dd/yyyy") & "# AND #" & Format(CompleteDate2, "mm/dd/yyyy") & "#"
       
        '-- abre relatório com os critérios informados
        DoCmd.OpenReport stDocName, acViewPreview, , stLinkCriteria
        '-------------------------------------------------------------------------




    É isso

    Att,

    Alexandre Fim



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  JmB2023 23/10/2023, 14:14

    Alexandre muito obrigado pela sua resposta.

    No entanto, não resolve o meu problema.

    Não consigo enviar ficheiro em anexo.

    Tenho a tabela clientes com o Nome, Data de Inicio e Data de Fim.

    Quando escolho o Mês e o Ano no meu formulário "Período", pretendo que abra o Relatório "Frmclientes" com esse período (Mês/Ano).

    Se por exemplo tiver o cliente Sérgio com data de inicio 05/01/2018 e data de fim 27/03/2022 e o cliente João com data de Inicio 05/05/2019 e data de fim 16/03/2023 e eu selecionar no meu formulário o mês 1 e o ano 2023, só deverá aparecer no meu relatório o João, uma vez que é o único cliente que se encontra ativo.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 23/10/2023, 14:51

    Juan,

    Para ficar mais fácil e rápido, compartilhe uma copia dos seu bd, somente os objetos (formularios/tabelas/modulos e etc.) envolvidos na questão, para análise e solução.

    OBS: Na minha assinatura tem um link que ensina a postar anexos no fórum.

    Att,

    Alexandre



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty BD em anexo

    Mensagem  JmB2023 23/10/2023, 15:01

    BD em anexo
    Anexos
    [Resolvido]Filtrar Relatório por Data Attachmentreldata.zip
    BD em anexo
    Você não tem permissão para fazer download dos arquivos anexados.
    (63 Kb) Baixado 14 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 23/10/2023, 15:21

    Juan,


    Se por exemplo tiver o cliente Sérgio com data de inicio 05/01/2018 e data de fim 27/03/2022 e o cliente João com data de Inicio 05/05/2019 e data de fim 16/03/2023 e eu selecionar no meu formulário o mês 1 e o ano 2023, só deverá aparecer no meu relatório o João, uma vez que é o único cliente que se encontra ativo.

    Qual campo da tabela que define se o cliente é ATIVO ou não?

    Conforme voce mencionou, tanto o Sérgio quanto o João estão contidos no critério de datas estabelecidos:
    [Resolvido]Filtrar Relatório por Data Client10

    Acredito que há algum equivoco ai.

    Att,

    Alexandre Fim



    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  JmB2023 23/10/2023, 15:24

    O único cliente ativo seria a Ana à data de Hoje mas se eu for escolher o período de 09/2018 os únicos clientes ativos seriam o Sérgio e o Ricardo.

    Ou seja, pretendo um relatório com os clientes ativos em determinados períodos que vou escolher através do meu formulário Período.

    Tudo vai depender da data de inicio do contrato e data de fim do contrato, junto com o período que for escolher.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 23/10/2023, 16:20

    Juan,

    Neste caso, seria melhor informar o periodo inicial e periodo final.
    Estou elaborando um pequeno exemplo e logo mais eu compartilho.

    Att,

    Alexandre


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  JmB2023 23/10/2023, 16:51

    Alexandre,

    Pode ser, neste momento tentei de tudo e não consegui o que pretendo. Qualquer ideia ou ajuda é bem-vinda.

    E muito obrigado pela sua disponibilidade!
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 23/10/2023, 19:35

    Olá Juan,

    O novo formulário ficou assim:
    [Resolvido]Filtrar Relatório por Data Rel_cl10

    Faça os testes e verifique se atende sua necessidade.

    Segue nova versão

    Att,

    Alexandre Fim
    Anexos
    [Resolvido]Filtrar Relatório por Data Attachmentreldata_v2.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (96 Kb) Baixado 17 vez(es)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 24/10/2023, 16:04

    Olá Juan,
    Fez os testes? Está ok?
    Caso esteja, por gentileza, marque o tópico como "Resolvido".

    Grato.

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty Filtrar Relatório por Data

    Mensagem  JmB2023 25/10/2023, 09:34

    Bom dia Alexandre,

    Desculpe ainda não ter dito nada. Não consegui verificar se está certo.

    Vou fazer os teste no dia de hoje e dou feedback.
    avatar
    JmB2023
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 8
    Registrado : 22/10/2023

    [Resolvido]Filtrar Relatório por Data Empty Filtrar Relatório por Data

    Mensagem  JmB2023 25/10/2023, 09:57

    Bom dia Alexandre,

    Antes de tudo, agradeço novamente a sua disponibilidade.

    Fez um trabalho sensacional, e o seu código VBA está tão bem organizado que até fico com vergonha daquilo que eu faço. Vou tentar utilizar a sua metodologia.

    Sobre o ficheiro que enviou, funcionou parcialmente, no entanto, fiz 2 alterações na formula e agora está funcionado perfeitamente. O truque é considerar como data de Inicio a data inicial mais antiga de qualquer um dos contratos.

    Junto envio em anexo o ficheiro alterado para quem quiser aproveitar.

    Mais uma vez, muito obrigado Alexandre.
    Anexos
    [Resolvido]Filtrar Relatório por Data Attachmentreldata_alt.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (107 Kb) Baixado 18 vez(es)
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3365
    Registrado : 13/12/2016

    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Alexandre Fim 25/10/2023, 13:26

    Bom dia Juan,


    ...seu código VBA está tão bem organizado que até fico com vergonha daquilo que eu faço...
    rssss......não tem que ter vergonha do que faz.
    Este fórum é o melhor lugar para tirar dúvidas e aprimorar seus códigos e suas aplicações.
    A ideia deste modelo que te mandei é justamente pra que vc melhore e faça os ajustos necessário para tua necessidade.

    Boa sorte e conte sempre com os amigos do fórum.

    Sucesso

    Att,

    Alexandre Fim


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Filtrar Relatório por Data Setinf11
    Sistemas e Tecnologia Ltda

    Conteúdo patrocinado


    [Resolvido]Filtrar Relatório por Data Empty Re: [Resolvido]Filtrar Relatório por Data

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 23/7/2024, 04:16