[Resolvido]Mostras todos os dias entre duas datas

Boa tarde, estou tentando criar um BD para cadastrar as caixas que enviamos para o arquivo morto, na tabela tem os campos DATA INICIAL e DATA FINAL, o que eu gostaria de fazer é preencher em uma outra TABELA/CAMPO logo após o preenchimento da DATA FINAL todos os dias inclusive DATA INICIAL e DATA FINAL...

EX:
Data de inicio: 01/01/2022
Data de fim: 07/01/2022

Resultado:
01/01/2022
02/01/2022
03/01/2022
04/01/2022
05/07/2022
06/01/2022
07/01/2022

Desde já agradeço!

Boa tarde Marcos,
disponha o que você já tem para a partir daí tentarmos ajudar.

Bom dia Marcelo, obrigado pela atenção, vou anexar o banco de dados pra você ter uma ideia de como está, realmente é um banco de dados bem simples, nada de complexo...

Desde já agradeço sua atenção!

Bom dia!

mparnaldo, coloquei um filtro no seu subformulario que filtra ao alterar a data final. Veja se seria isso

Bom dia,
no evento Após atualizar da caixa de texto DATA_FINAL do formulário frm_CAD_CAIXA, teste e nos retorne por favor:

Código:

Dim iD As Integer
   
    If IsNull(Me.N_CAIXA) Or IsNull(Me.TIPO_DOCUMENTO) Then
        MsgBox "Número da caixa e tipo de documento devem ser informados!", vbExclamation, "Atenção"
        Exit Sub
    End If
   
    If Not IsNull(Me.DATA_INICIAL) And Not IsNull(Me.DATA_FINAL) Then
        If Me.DATA_INICIAL > Me.DATA_FINAL Then
            MsgBox "A data inicial não pode ser posterior a data final!", vbExclamation, "Atenção"
            Exit Sub
        Else
            iD = DateDiff("d", Me.DATA_INICIAL, Me.DATA_FINAL)
           
            For i = 0 To iD
                CurrentDb.Execute "INSERT INTO tbl_DETALHA_DATA (N_CAIXA,TIPO_DOC,DETALHA_DATA) " _
                                & "VALUES ('" & Me.N_CAIXA & "','" & Me.TIPO_DOCUMENTO & "',#" _
                                & Format(DateAdd("d", i, Me.DATA_INICIAL), "mm/dd/yyyy") & "#)"
            Next i
            Me.Refresh
        End If
    End If

Marcelo funcionou perfeitamente, realmente ficou maravilhoso   , sem querer abusar da sua generosidade, de forma absurdamente leiga eu tentei adaptar sua solução para NUM_INICIAL e NUM_FINAL, porem sem sucesso... Será que conseguiria me ajudar com isso também?

Novamente muito obrigado pela ajuda...


[img]

Eis:

Código:

If IsNull(Me.NUM_INICIAL) Or IsNull(Me.NUM_INICIAL) Or IsNull(Me.N_CAIXA) Or IsNull(Me.TIPO_DOCUMENTO) Then
        MsgBox "Número da caixa, tipo de documento, Nº Inicial e N° Final devem ser informados!", vbExclamation, "Atenção"
        Exit Sub
    End If
   
    If Me.NUM_INICIAL > Me.NUM_FINAL Then
        MsgBox "O Número inicial não pode ser maior que o número final!", vbExclamation, "Atenção"
        Exit Sub
    Else
        For i = Me.NUM_INICIAL To Me.NUM_FINAL
            CurrentDb.Execute "INSERT INTO tbl_DETALHA_NUMERO (N_CAIXA,TIPO_DOC,NUMERO) " _
                            & "VALUES ('" & Me.N_CAIXA & "','" & Me.TIPO_DOCUMENTO & "'," & i & ")"
        Next i
        Me.Refresh
    End If


Bom dia Marcelo, PERFEITO, realmente ficou top demais... Novamente muito obrigado pela ajuda!

Bom dia

Faltou marcar o "Resolvido"