[Resolvido]Erro ao gerar PDF----StrArquivo

Prezados bom dia / boa tarde / boa noite.

Mudei de Ac2010 para o AC2013 e começaram as minhas dores de cabeça.

Uma delas, foi o banimento dos gráficos ( que saco ).

Mas vamos ao que interessa..


Tenho a seguinte rotina, usada, aprovada e testada desde o Ac2007, que gera o arquivo em PDF.

Private Sub bt_geraPDF_Click()
Dim strArquivo As String
Dim strLocal As String



strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "dd-mm-yyyy") & ".pdf"
strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo
DoCmd.OpenReport "RptPedido", acViewPreview, , "Idpedido=" & Forms!FrmPedido!IdPedido, acHidden
DoCmd.OutputTo acOutputReport, "RptPedido", acFormatPDF, strLocal
DoCmd.Close acReport, "RptPedido"

End Sub

O que ocorre...eu preciso que a linha que contém a string strArquivo seja desse jeito que está na rotina. Mas, não vai nem com reza brava.
Se eu tirar por exemplo o Me!NossoPedido...acreditem ocorre a impressão. Ou mesmo o Me!Representada.

Nunca vi isso acontecer.

Alguém pode me dar uma luz de fazer a mesma coisa de outra forma ???

Silvio,

Sempre que possível, utilize os tratamentos de erros, pois fica mais fácil de identificar quando ocorrer algum erro.

Segue:

Código:



Private Sub bt_geraPDF_Click()
On Error GoTo trata_erro
Dim strArquivo As String
Dim strLocal As String

    strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "dd-mm-yyyy") & ".pdf"
    strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo
    DoCmd.OpenReport "RptPedido", acViewPreview, , "Idpedido=" & Forms!FrmPedido!IdPedido & "", acHidden
    DoCmd.OutputTo acOutputReport, "RptPedido", acFormatPDF, strLocal
    DoCmd.Close acReport, "RptPedido"
    
    Exit Sub

trata_erro:
    MsgBox "Erro ocorrido: " & Err.Number & " - " & Err.Description & "", vbCritical, "Erro!!!"
    Exit Sub

End Sub



Fiz um ajuste nesta linha, onde estava:
DoCmd.OpenReport "RptPedido", acViewPreview, , "Idpedido=" & Forms!FrmPedido!IdPedido, acHidden

Ficou:
DoCmd.OpenReport "RptPedido", acViewPreview, , "Idpedido=" & Forms!FrmPedido!IdPedido & "", acHidden



Faz o teste e veja se funfa!!
Valeu

Alexandre, boa tarde.

Continua a mesma coisa...erro 2501 - a ação output foi cancelada.

Eu estou usando o gerador de PDF do FoxIt e inclusive já atualizei o mesmo para ver se era falta de atualização.

Ola a todos,

Silvio, teste assim

Código:


DoCmd.OpenReport "RptPedido", acViewPreview, , "Idpedido='" & Forms!FrmPedido!IdPedido &"'", acHidden


Abraço

Prezados colegas..bom dia/boa tarde/ boa noite.

Dei uma " contornada " no problema do erro 2501 - erro de saida.

Mudei de Access 2013 para o 2019 32 bits e continuou dando erro

A linha problemática era essa...

Dim strArquivo As String
strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "dd-mm-yyyy") & ".pdf"


Deixei o código dessa maneira, a única forma que eu encontrei para gerar o relatório em PDF

Private Sub bt_geraPDF_Click()
On Error GoTo fim


Dim strLocal As String

strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo
DoCmd.OpenReport "RptPedido", acViewNormal, , "Idpedido= " & Forms!FrmPedido!IdPedido, acHidden
DoCmd.OutputTo acOutputReport, "RptPedido", acFormatPDF
DoCmd.Close acReport, "RptPedido"


fim:
If Err.Number = 2501 Then
Exit Sub
End If


End Sub

Mas uma coisa que eu não entendo....STRING é texto como pode dar erro ao gerar o PDF ??

Boa tarde
Poderá ser algum caracter impróprio para nome de ficheiro?

Alexandre, boa tarde / boa noite.

Alinha em questão é essa...strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "dd-mm-yyyy") & ".pdf"

Os caracteres que eu tenho em outros sistemas são : " / " ou " - ".

Só nesse que não aceita, tanto que migrei do Ac2010 para o Ac2019 e o errou continuou.

Da mesma maneira que estruturei o relatório nos outros, fiz nesse !

Sinceramente, "eu estou mais perdido que cego em tiroteio" ( perdido ).

Sílvio
Será da barra que não é aceite em nome de ficheiro por incompatibilidade com separação de pastas?

Olá a todos,

Silvio, coloque a seguinte linha de codigo e verifique ou partilhe a imagem

Código:

msgbox CurrentProject.Path & "\Pedidos\" & strArquivo &" - tamanho caminho " & len(CurrentProject.Path & "\Pedidos\" & strArquivo)

Abraço

Bom dia / boa tarde / boa noite....

Álvaro, segue a imagem.




Na tabela de origem ( que gera o pedido ), o campo está como texto curto, com 200 caracteres.

Boa tarde, Sílvio
A strArquivo está vazia?

Alexandre, boa tarde / boa noite a si.

Não o strarquivo não está vazio. Quando ocorre o erro, passo cursor sobre todos os campos para ver se " tudo " está lá.

E o nome do arquivo, gerado pelo Strarquivo, está correto.

Pelo código corrido
msgbox CurrentProject.Path & "\Pedidos\" & strArquivo &" - tamanho caminho " & len(CurrentProject.Path & "\Pedidos\" & strArquivo)
o resultado correspondente ao strArquivo não tem nada!

Bom dia / boa tarde / boa noite.

Alexandre, de fato você está correto em tua observação. Str vazia, mostrando apenas o caminho com apenas os caracteres do caminho em questão.

E agora...o que fazer ??

Talvez uma possível solução seria abolir o " / " ou o " _ " que são apenas separadores.

Mas vamos testar, testar....e encontrar uma saída.

Agradecido.

Boa noite Sílvio
Acompanhe a montagem da strArquivo para descobrir porque fica vazia

Olá a todos,

Silvio, o nosso colega Alexandre já disse tudo.
Mas se continua com dificuldades, onde tem:

Código:

strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "dd-mm-yyyy") & ".pdf"

altere para testar por:

Código:

strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "short date") & ".pdf"

Se o erro mantiver, verifique se "Representada" ou "NossoPedido" é numerico ou texto.
Aparentemente como apresenta o código é númerico.

Abraço

Bom dia / boa tarde / boa noite.

Sim, Alvaro...vou testar aqui.

Só não testei antes devido a construção de gráficos a serem implementados.  Abaixo, apenas um deles !!





Até a hora do almoço aqui do Brasil, eu lhe dou um retorno, tenho que parametrizar ainda algumas consultas para gerar outros gráficos.

Grato desde já por tua ajuda.

Abraços.

Senhores....o erro permanece !!!

Colocando a janela de inspeção, nota-se o caminho completo como deveria ser...mas a ação output.....não ocorre.

Bom dia / boa tarde / boa noite.

Vou dar por resolvido o tópico em questão, por não ter tido uma conclusão plausível.
Sei que não mediram esforços para me auxiliar e eu agradeço.
Como uso sempre essa mesma rotina e a mesma jamais apresentou esse erro ( 2501 - ação output cancelada ) e mesmo mudando  o Srtarquivo o resultado sempre foi negativo.
Então fiz essa.....gambiarra !!!

Código:

Private Sub bt_geraPDF_Click()

    On Error GoTo fim
    Dim strLocal As String
    strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo
    DoCmd.OpenReport "RptPedido", acViewNormal, , "Idpedido= " & Forms!FrmPedido!IdPedido, acHidden
    DoCmd.OutputTo acOutputReport, "RptPedido", acFormatPDF
    DoCmd.Close acReport, "RptPedido"
fim:
    If Err.Number = 2501 Then
    Exit Sub
    End If

End Sub

Mais uma vez, deixo aqui meus agradecimentos a todos.

Abraços.

Olá a todos,

Silvio, vamos encontrar onde está o problema.
Você queria usar a linha abaixo que apresenta o erro:

Código:

strArquivo = Me!Representada & "_" & Me!NossoPedido & "_" & Format$(Date, "dd-mm-yyyy") & ".pdf"

Vamos fazer mais um teste, antes dessa linha coloque o seguinte código e envie o print screen das tres caixas de mensagem:

Código:


msgbox Me!Representada
msgbox Me!NossoPedido
msgbox Format$(Date, "dd-mm-yyyy")"

Se der erro figa qual.

Abraço

Bom dia / boa tarde / boa noite.

Álvaro, segue as imagens conforme me pediu....nas imagens sai corretamente o que deveria ser impresso.




Segue o código.

Código:

MsgBox Me!Representada
MsgBox Me!NossoPedido
MsgBox Format$(Date, "dd-mm-yyyy")

Dim strArquivo As String
Dim strLocal As String
strArquivo = Me!Representada & " " & Me!NossoPedido & " " & Me.RazaoSocial & " " & Format$(Date, "short date") & ".PDF"
strLocal = CurrentProject.Path & "\Pedidos\" & strArquivo
DoCmd.OpenReport "RptPedido", acViewPreview, , "Idpedido=" & Forms!FrmPedido!IdPedido, acHidden
DoCmd.OutputTo acOutputReport, "RptPedido", acFormatPDF, strLocal
DoCmd.Close acReport, "RptPedido"

O Erro ainda persiste.

Olá Silvio,

Pode enviar também RazaoSocial, pois também está no código?

msgbox  Me!RazaoSocial

Outra coisa no seu código tem Me.  altere para Me!   pode ser isto a provocar esta novela

E altere na data para:

Código:

Format$(Date, "dd-mm-yyyy")

E já deve funcionar (a short date , pode estar a colocar assim 11/04/2022)

Abraço

Bom dia / boa tarde / boa noite
Eis a imagem.....tudo certo como deve ser,







mas......só que não !


ainda persiste o dito cujo erro.


-----------acréscimo-----------

obs.:  se houver interesse eu " subo " o sistema aqui para uma análise melhor.

Pitaco: lembrar da lista de caracteres proibidos para nome de arquivos. "S/A" contem o "/.

Olá a todos,

Silvio, o colega Damascenco disse tudo.
Portanto o ideal será usar o Replace, podendo ficar assim:

Código:

strLocal = Replace(CurrentProject.Path & "\Pedidos\" & strArquivo, "/", "")

Abraço

Senhores.....grato por me auxiliarem a resolver essa " novela mexicana " !!!

Mas de ante mão lhes garanto o " / " em outros sistemas, que geram o PDF, usando o mesmo código....funciona.

Em outras tentativas, nesse sistema, tirei o " / ", tirei o " - " e mesmo assim dava erro.

A luta continua !!!

Olá Silvio,

Disse "Mas de ante mão lhes garanto o " / " em outros sistemas, que geram o PDF, usando o mesmo código....funciona."
Como ficava o nome do ficheiro nesses casos na versão que diz que funciona, pode partilhar?

Quanto ao erro que persiste é em todos os registos? pode identificar melhor?

Abraço a todos