[Resolvido]Erro com Critério para Gerar e Salvar Relatório em PDF e Entre Datas

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

Olá amigo,

Você não definiu o filtro para a variável do tipo String (strFiltro) ANTES do laço condicional IF. Falta também utilizar  os operadores BETWEEN ... AND ... para definir o intervalo entre datas.


Dim strFiltro As String

strFiltro = (?)

If Not IsNull(DATACOMEÇO) Then
If strFiltro = "" Then

.......

Good, boa tarde


Defini strFiltro antes da condição, conforme sugeriu, mas ainda não deu certo.


Dim strFiltro As String

strFiltro = "Data1>=#" & Format(DATACOMEÇO, "mm-dd-yyyy") & "#"


If Not IsNull(Postos1) Then strFiltro = "Unidade='" & Postos1 & "'"
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

Olá Ismael,

Na verdade está tudo errado. Você precisa criar uma consulta cujo critério seja:

"Data1>=#" & Format(DATACOMEÇO, "mm-dd-yyyy") & "#"

Em seguida colocar essa consulta como fonte de registro do seu relatório.

No seu formulário o código do botão deverá ficar assim:

If Not IsNull(Postos1) Then
DoCmd.OutputTo acOutputReport, "Relatório Fechamento", acFormatPDF, "C:\Users\Admin\Documents\Teste/" & Me.Postos1 & Me.Periodo_Fechamento & ".pdf"

Else
Exit Sub

End If

Good,

Vou tentar implementar. Só me tira uma dúvida, no anterior você diz que estava tudo errado, então, poderia me explicar se tem algo de errado com o código abaixo(Alexandre Neves), pois o mesmo funciona perfeitamente, e única diferença que eu aparentemente vejo, é que no final esse código, apenas abre o relatório, e o que eu quero neste, é que salve em PDF, e em uma pasta específica.


  Dim strFiltro As String
   
   

If Not IsNull(Data_Inicial) Then
   If strFiltro = "" Then
       strFiltro = "Data1>=#" & Format(Data_Inicial, "mm-dd-yyyy") & "#"
   Else
       strFiltro = strFiltro & " and Data1>=#" & Format(Data_Inicial, "mm-dd-yyyy") & "#"
   End If
End If



If Not IsNull(Data_Final) Then
   If strFiltro = "" Then
       strFiltro = "Data1<=#" & Format(Data_Final, "mm-dd-yyyy") & "#"
   Else
       strFiltro = strFiltro & " and Data1<=#" & Format(Data_Final, "mm-dd-yyyy") & "#"
   End If
End If



If Not IsNull(Placas) Then
If strFiltro = "" Then
       strFiltro = "Placa IN(" & Mid(Me!Placas_Selecao, 2) & ")"
   Else
       strFiltro = strFiltro & " and Placa IN(" & Mid(Me!Placas_Selecao, 2) & ")"
   End If
  End If
 
 
  If Not IsNull(Posto_Filtro) Then
If strFiltro = "" Then
       strFiltro = "Unidade IN(" & Mid(Me!Selecao_Postos, 2) & ")"
   Else
       strFiltro = strFiltro & " and Unidade IN(" & Mid(Me!Selecao_Postos, 2) & ")"
   End If
  End If
 
 
     If Not IsNull(Cidade_Filtro) Then
If strFiltro = "" Then
       strFiltro = "Cidade IN(" & Mid(Me!Cidade_selecao, 2) & ")"
   Else
       strFiltro = strFiltro & " and Cidade IN(" & Mid(Me!Cidade_selecao, 2) & ")"
   End If
  End If
 
 
 
  DoCmd.OpenReport "Relatório1", acViewPreview, , strFiltro

Olá Ismael,

O que eu quis dizer é que eu estava fazendo tudo errado. Na hora que digitava, coloquei pra fora meus pensamentos, antes de testar o seu código e, que eu estava indo por um caminho errado, dando continuidade a um código que a meu ver, faltava a string SQL da variável strFiltro antes do código propriamente dito. Se esse código já funfava antes de ser postado, me passa o teu aplicativo para considerar melhor as possíveis soluções. Quanto ao comando para salvar em pdf, verifique a sintaxe final conforme aparece em uma janela acima da linha de código.

Exemplo de uma string SQL de filtro:

SELECT DISTINCTROW Tabela1.item (...etc etc)
FROM Tabela1
HAVING Tabela1.[Data da aquisição] Between [Data Inicio:] And [Data fim:];

Good,

Segue abaixo, um exemplo, quando eu clicar para imprimir, eu quero que salve o arquivo com o nome que está no campo Periodo_Fechamento.


https://www.dropbox.com/s/2h5cuerxvnp8xgw/Ex20122019.accdb?dl=0

Obrigado!

Alguma dica?

Olá Ismael,

Não tenho conta no DropBox. Por que você não insere seu arquivo zipado(.zip) aqui mesmo?

Good, vamos ver se vai agora.

Boa tarde Ismael!!!

Estou enviando um exemplo como um anexo, veja se ele pode guiá-lo no seu trabalho.

Saludos

Bom dia Franklin,

Não consegui adaptar, todavia, vou colocar como resolvido.