[Resolvido]Listar todas as datas em um intervalor de data inicial e final

Olá pessoal, pesquisei aqui no forum e não encontrei ajuda sobre a minha necessidades.

É possivel fazer o Access listar através de uma consulta, uma lista de datas entre o intervalor de dadas de dois campos?

Exemplo:
Campo Data inicial = 28/10/2023
Campo DataFinal = 02/11/2023

Resultado da Consulta:
28/10/2023
29/10/2023
30/10/2023
31/10/2023
01/11/2023
02/11/2023

Será que é possível fazer isso no Access?

Olá Mestre,

Veja se isso ajuda.

Abraços

Substitua o código do botão Visualizar por conteúdo abaixo (mais completo).


Dim DataInicial As Date
Dim DataFinal As Date
Dim DataAtual As Date
Dim i As Integer

' Verificar se campos estão preenchidos

' Verifique se o campo de DataInicial está vazio ou não é uma data válida
   If IsNull(Data_Inicial) Or Not IsDate(Data_Inicial) Then
       MsgBox "Por favor, insira uma data válida em Data Inicial.", vbExclamation
       Me.Data_Inicial.SetFocus
       Exit Sub
   End If

' Verifique se o campo de DataFinal está vazio ou não é uma data válida
   If IsNull(Data_Final) Or Not IsDate(Data_Final) Then
       MsgBox "Por favor, insira uma data válida em Data Final.", vbExclamation
       Me.Data_Final.SetFocus
       Exit Sub
   End If
' Obtenha as datas de DataInicial e DataFinal a partir dos controles do formulário
   DataInicial = Me.Data_Inicial.Value
   DataFinal = Me.Data_Final.Value

' Limpe a ListBox (ou outra lista) antes de adicionar as datas
   Me.LstDatas.RowSource = ""

' Inicialize a variável i
   i = 0

' Loop pelas datas entre DataInicial e DataFinal
   DataAtual = DataInicial
   Do While DataAtual <= DataFinal
' Adicione a data à lista
       Me.LstDatas.AddItem DataAtual
' Incremente a variável i
       i = i + 1
' Adicione 1 dia à DataAtual
       DataAtual = DateAdd("d", 1, DataAtual)
   Loop

' Se datas sequenciais invertidas
   If i = 0 Then
       MsgBox "Não há datas entre o intervalo fornecidos erradamente.", vbInformation
   End If


Muito Grato

Abraços

Era isso mesmo, obrigado pela ajuda.

Obrigado pelo retorno. Que bom que deu certo. Abraço.