MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

MaximoAccess

Gostaria de reagir a esta mensagem? Crie uma conta em poucos cliques ou inicie sessão para continuar.

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

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

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 25/11/2019, 02:46



    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
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

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

    Mensagem  good guy em 25/11/2019, 16:59

    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

    .......



    Última edição por good guy em 25/11/2019, 17:13, editado 1 vez(es)
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 25/11/2019, 17:12

    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
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

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

    Mensagem  good guy em 25/11/2019, 17:28

    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
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 25/11/2019, 17:50

    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
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

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

    Mensagem  good guy em 25/11/2019, 18:44

    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:];
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 20/12/2019, 14:30

    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!
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 24/12/2019, 18:49

    Alguma dica?
    good guy
    good guy
    Developer
    Developer

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 1304
    Registrado : 05/02/2010

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

    Mensagem  good guy em 27/12/2019, 16:09

    Olá Ismael,

    Não tenho conta no DropBox. Por que você não insere seu arquivo zipado(.zip) aqui mesmo?
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 27/12/2019, 16:30

    Good, vamos ver se vai agora.
    Anexos
    [Resolvido]Erro com Critério para Gerar e Salvar Relatório em PDF e  Entre Datas AttachmentEx20122019.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.6 Mb) Baixado 8 vez(es)
    FranklinJSP
    FranklinJSP
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 367
    Registrado : 25/02/2016

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

    Mensagem  FranklinJSP em 6/1/2020, 19:46

    Boa tarde Ismael!!!

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

    Saludos


    .................................................................................
    Meu Português não é muito bom,
    mas eu gosto de colaborar... em qualquer idioma
    Smile "Access... minha paixão"
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 621
    Registrado : 11/12/2017

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

    Mensagem  Ismael Silva em 18/2/2020, 11:14

    Bom dia Franklin,

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

      Data/hora atual: 14/8/2020, 00:03