MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração


Participe do fórum, é rápido e fácil

MaximoAccess

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

https://www.maximoaccess.com/t48-regras-do-forum

Obrigado

Administração

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

2 participantes

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF

    avatar
    Odabrius
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 06/11/2016

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF Empty [Resolvido]Erro de tempo de execução ao tentar gerar PDF

    Mensagem  Odabrius 15/12/2021, 19:54

    Prezados boa tarde,

    Tenho um sistema criado em Access, cuja a função de um dos módulos é gerar PDF à partir de um relatório.

    Abaixo segue a linha de código:

    Private Sub Btn_Gera_Pdf_Click()
    Dim db As Database
    Dim rs As DAO.Recordset

    Dim strsql As String, strstartdate As Date, strEndDate As Date


    Set db = CurrentDb
    strstartdate = [Forms]![Formulário_Resumo_vendas]![Text_Data_Ini].Value
    strEndDate = [Forms]![Formulário_Resumo_vendas]![Text_Data_Fim].Value


    strsql = "SELECT * "
    strsql = strsql & " FROM Tab_CadastroFaturas WHERE datapagamento BETWEEN #" & Format(strstartdate, "mm/dd/yyyy") & "# AND #" & Format(strEndDate, "mm/dd/yyyy") & "#"


    Set rs = CurrentDb.OpenRecordset(strsql, dbOpenDynaset)


    Do While Not rs.EOF
    DoCmd.OpenReport "Rlt_Resumo_Pagamentos", acViewPreview, , "CodPrestador=" & rs!CodPrestador, acHidden
    DoCmd.OutputTo acOutputReport, "Rlt_Resumo_Pagamentos", acFormatPDF, "Z:\02.Contas_a_Pagar\PDF gerado\PDF" & rs!CodPrestador & ".pdf", False, "", 0, acExportQualityPrint
    DoCmd.Close acReport, "Rlt_Resumo_Pagamentos"

    rs.edit
                  rs!Data_PDF = Date
                  rs.Update

    rs.MoveNext
    Loop

    'Dim rs As Recordset
    'Set rs = CurrentDb.OpenRecordset("Cns_Resumo_Pagamentos")

    MsgBox "Os registros foram exportados para PDF", vbInformation, "Concluído"

    rs.Close
    Set rs = Nothing

    'Dim rs As Recordset
    'Set rs = CurrentDb.OpenRecordset("Cns_Resumo_Pagamentos")



    End Sub


    Meu problema está nesta linha: DoCmd.OpenReport "Rlt_Resumo_Pagamentos", acViewPreview, , "CodPrestador=" & rs!CodPrestador, acHidden

    As informações contidas em "CodPrestador" eram do tipo número, mas tive que alterar esta coluna para Texto Curto. Desde que essa mudança ocorreu, a rotina apresenta a informação  "O microsoft Access encontrou um problema ao tentar alternar modos de exibição e deve fechar esta janela" - Ao depurar tenho o erro 3071.

    Imagino que seja algo simples, mas já quebrei a cabeça e não consegui ajustar o código para que funcione.

    Ficarei muito grato com a orientação de vocês.

    Abs
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF Empty Re: [Resolvido]Erro de tempo de execução ao tentar gerar PDF

    Mensagem  Alexandre Fim 15/12/2021, 20:18

    Olá Omar,
    Provavelmente, este erro é por falta das aspas simples, pelo fato do campo ser do tipo Texto, conforme mencionou.

    Ajuste o código conforme abaixo:

    DoCmd.OpenReport "Rlt_Resumo_Pagamentos", acViewPreview, , "CodPrestador='" & Trim(rs!CodPrestador) & "'", acHidden

    É isso

    Espero ter ajudado

    []'s

    FIM


    Última edição por DamascenoJr. em 15/12/2021, 23:20, editado 1 vez(es) (Motivo da edição : A última aspa dupla estava após acHidden)


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF Setinf11
    Sistemas e Tecnologia Ltda
    avatar
    Odabrius
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 06/11/2016

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF Empty Re: [Resolvido]Erro de tempo de execução ao tentar gerar PDF

    Mensagem  Odabrius 16/12/2021, 19:11

    Prezado Alexandre,

    Muito obrigado pelo rápido retorno.

    Era exatamente este o problema e após ajustar o código, voltou a funcionar normalmente.
    Você é fera!

    Muito obrigado pela ajuda, esse fórum é sensacional.
    Alexandre Fim
    Alexandre Fim
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2594
    Registrado : 13/12/2016

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF Empty Re: [Resolvido]Erro de tempo de execução ao tentar gerar PDF

    Mensagem  Alexandre Fim 16/12/2021, 19:16

    Valeu Omar!!!
    Estamos em constante aprendizado !!!
    Boa sorte e sucesso...o fórum agradece.
    Abraço


    .................................................................................
    Arrow  Marcar tópico como Resolvido: clique aqui
    Arrow  Postar anexos no fórum: clique aqui

    [Resolvido]Erro de tempo de execução ao tentar gerar PDF Setinf11
    Sistemas e Tecnologia Ltda

      Data/hora atual: 24/9/2022, 19:45