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

    [Resolvido]A ação outputTo foi cancelada

    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]A ação outputTo foi cancelada Empty [Resolvido]A ação outputTo foi cancelada

    Mensagem  Ismael Silva 15/3/2021, 21:24


    Boa tarde,

    Bom, esse assunto já foi muito debatido aqui no fórum, sobre esse erro: A ação outputTo foi cancelada, ao abrir relatórios, no entanto gostaria de insistir, visto que o código que tenho abaixo, funciona para alguns, no entanto pra mim sempre dá erro, e o mais curioso ainda, é que logo no início que estava adaptando no meu projeto, não dava erro, mas agora, dá erro direto.

    Onde estou errando?

    Meu access é 2016.







    Private Sub Gerar_Cadastro_Click()


    'On Error Resume Next



    Dim strArquivo As String
    Dim strLocal As String

    strArquivo = "Pedido " & Date & ".pdf"
    'strLocal = CurrentProject.Path & "\Relacao_Pedidos\" & strArquivo

    'DoCmd.OutputTo acOutputReport, "Relatório_Pedidos", acFormatPDF, strLocal


    DoCmd.OutputTo acOutputReport, "Relatório_Pedidos", acFormatPDF, "c:\Relacao_Pedidos\Relatório_Pedidos.pdf"


    strLocal = CurrentProject.Path & "\Relacao_Pedidos\" & strArquivo

    'DoCmd.OpenReport "Relatório_Cadastro", acViewPreview, , "Nome_Func = " & Me!Nome_Func
    ' MsgBox "Cadastro salvo no formato PDF na Pasta: C:\Users\Usuario\Documents\Relacao_Pedidos", vbInformation, "Cadastro salvo"

    End Sub
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3955
    Registrado : 29/06/2012

    [Resolvido]A ação outputTo foi cancelada Empty Re: [Resolvido]A ação outputTo foi cancelada

    Mensagem  Noobezinho 15/3/2021, 22:11

    Ismael

    Aparentemente, a estrutura do comando está correta.

    O que precisa é verificar é o nome e o caminho do arquivo.

    O inglês é um idioma que não usa acentos, evite colocar eles.

    Somente acentue as palavras que aparecerão na tela e no relatório.

    Se tiver tudo certo e ainda continuar a dar erro, experimente colocar

    On error resume next

    e veja o que acontece.

    { }'s


    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...
    avatar
    Ismael Silva
    Super Avançado
    Super Avançado

    Respeito às regras : Respeito às Regras 100%

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

    [Resolvido]A ação outputTo foi cancelada Empty Re: [Resolvido]A ação outputTo foi cancelada

    Mensagem  Ismael Silva 16/3/2021, 01:15

    Nob,

    Segui a tua dica, retirei os acentos que tinha, e mais alguns pequenos ajustes conforme abaixo, e a principio está funcionando:

    Vou colocar como resolvido, e qualquer coisa, reabro o tópico.


    Dim strArquivo As String
    Dim strLocal As String

    'strArquivo = "Pedido" & ".pdf"
    strArquivo = "Pedido" & Format(Now(), " dd-mm-yyyy " & "hhnnss"".pdf")

    'strLocal = CurrentProject.Path & "\Relacao_Pedidos\" & strArquivo
    strLocal = "C:\Relacao_Pedidos\" & strArquivo



    DoCmd.OutputTo acOutputReport, "Relatorio_Pedidos", acFormatPDF, strLocal


    MsgBox "Cadastro salvo no formato PDF na Pasta: C:\Relacao_Pedidos", vbInformation, "Cadastro salvo"
    Noobezinho
    Noobezinho
    Moderador
    Moderador

    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3955
    Registrado : 29/06/2012

    [Resolvido]A ação outputTo foi cancelada Empty Re: [Resolvido]A ação outputTo foi cancelada

    Mensagem  Noobezinho 16/3/2021, 10:05

    Ismael

    Ótimo que deu certo!

    Boa sorte!

    Balem



    .................................................................................
    A pergunta que não quer calar:
    Por quê quando alguém vem pedir ajuda e conforme o caso pedimos
    para enviar parte do projeto, não temos mais continuidade do tópico?  
    Crê que temos bolas de cristal ou está com medo que "roubemos"  a
    idéia/projeto dele?  Twisted Evil
    Se é tão bom assim...

      Data/hora atual: 17/4/2021, 19:19