Boa noite,
Estou usando o código abaixo para Salvar um relatório PDF entre datas, porém creio que estou fazendo algo errado. Até dá certo, o relatório se converte em PDF, e salva na Pasta que determinei, mas não obedece o critério de datas, que é gerar e salvar de acordo com as datas que eu informar, isso não está ocorrendo, está salvando todos os dados que tenho na tabela.
Como poderia ajustar isso?
Obrigado,
Dim strFiltro As String
If Not IsNull(DATACOMEÇO) Then
If strFiltro = "" Then
strFiltro = "Data1>=#" & Format(DATACOMEÇO, "mm-dd-yyyy") & "#"
Else
strFiltro = strFiltro & " and Data1>=#" & Format(DATACOMEÇO, "mm-dd-yyyy") & "#"
End If
End If
If Not IsNull(DATATERMINADA) Then
If strFiltro = "" Then
strFiltro = "Data1<=#" & Format(DATATERMINADA, "mm-dd-yyyy") & "#"
Else
strFiltro = strFiltro & " and Data1<=#" & Format(DATATERMINADA, "mm-dd-yyyy") & "#"
End If
End If
DoCmd.OutputTo acOutputReport, "Relatório Fechamento", acFormatPDF, "C:\Users\Admin\Documents\Teste/" & Me.Postos1 & Me.Periodo_Fechamento & ".pdf", False, , strFiltro