Consulta para geração de Relatório entre um Range de Datas de Diferentes Colunas

Aos mestres do Access e Vba, deixo minha dúvida e peço ajuda.

Preciso construir uma consulta para gerar um relatório entre um range de datas. Até ai tudo bem.

O problema é que essas datas  não estão concentradas em uma única coluna, elas provém de 4 diferentes colunas pois são estágios diferentes de um mesmo dado ( neste caso o Tipo de imóvel).

Eu quero gerar um Relatório que me mostre oque foi feito no período compreendido entre duas datas, mas quero que esse range  me traga as informações do que foi feito nas 4 colunas.

Anexo o arquivo. Se alguém poder resolver essa e me enviar o arquivo para que eu possa aplicar ao meu modelo ficarei muito agradecido.

Nesse caso faz-se uso do operador OU.

Damaceno, muito obrigado pelo seu tempo.

Agradeço de coração a resposta.

Confesso que abri o arquivo, testei mas não buscou os valores corretamente. Ele busca pra 1 coluna as vezes duas, mas se vc variar alguns valores de data verá que ele está abrindo a consulta com valores que não estão compreendidos no filtro. Mesmo assim agradeço a atenção do amigo.

Caso você fizer alguma revisão, mande pra mim. Obrigado desde já.

Me dê exemplos concretos.

Que valor você está inserindo de data, quais registros deveria trazer e quais registros incorretos está trazendo.

Certo.

Faça uma busca de datas entre o dia 1/2/2022 e 5/2/2022.

Ao fazer a pesquisa  no Formulário ele abrira a consulta mostrando datas do período mas também mostrará datas  de 10,2 , 13/2 18/2, 19/, 28/2 que estão fora do range especificado. Pelo menos aqui no meu access está mostrando. Preciso que ele mostra apenas oque está no range especificado no formulario de pesquisa.

Recebeste a mensagem?

Recebi, sim. Segue arquivo em anexo. Retirei a propriedade formato que você havia informado para os campos de data na tabela.

Função criada para auxiliar a filtragem

Código:

Public Function fncDataAtende(ByVal dtDataInicial As Date, ByVal dtDataFinal As Date, ByVal strDatas As String) As Boolean

    Dim arrData
    Dim bytContador As Byte
   
    arrData = Split(strDatas, "|")
   
    For bytContador = LBound(arrData) To UBound(arrData)
        If Not (arrData(bytContador) = "") Then
            If Not Eval("#" & Format(CDate(arrData(bytContador)), "mm/dd/yyyy") & "# between #" & Format(dtDataInicial, "mm/dd/yyyy") & "# and #" & Format(dtDataFinal, "mm/dd/yyyy") & "#") Then
                Exit Function
            End If
        End If
    Next bytContador

    fncDataAtende = True

End Function

Muito obrigado pelo retorno e me desculpe a demora no feedback.

Damaceno, não consegui fazer rodar, infelizmente.Mesmo assim fico agradecido.