[Resolvido]Filtrar Relatório por Data

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.

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?

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

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.

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

BD em anexo

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:


Acredito que há algum equivoco ai.

Att,

Alexandre Fim

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.

Juan,

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

Att,

Alexandre

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!

Olá Juan,

O novo formulário ficou assim:


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

Segue nova versão

Att,

Alexandre Fim

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

Grato.

Att,

Alexandre Fim

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.

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.

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