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

+3
FabioPaes
alpedro
gustavolaqua
7 participantes

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  gustavolaqua 1/4/2016, 20:42

    Pessoal, aprendi aqui no forum como gerar transferir os dados do access para campos em um arquivo word porém eu quero gerar o mesmo arquivo em pdf. Existe alguma rotina para após a criação do arquivo word, pegar este arquivo e gerar um pdf?

    Pesquisei aqui e tb na net mas não achei nada que fosse útil para este caso.

    Obrigado
    Anexos
    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf AttachmentERP - Copia.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (1.7 Mb) Baixado 150 vez(es)
    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  alpedro 1/4/2016, 21:37

    Pegar no word e guardar como: pdf ????
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  FabioPaes 1/4/2016, 22:13

    Gustavo, se o que você quer é exportar um Relatório para PDF (ja que tem o comando que exporta para WORD), Nao vejo a necessidade de Abrir esse arquivo, e Salvar ele em PDF... pode fazer assim:

    DoCmd.OutputTo acOutputReport, "RelXXXX", "PDF Format (*.pdf)" , , True

    RelXXXX é o Nome do seu Relatório.
    E se você quer uma versão em PDF e outra dem .DOCX coloque os dois comandos, uma em baixo do outro!

    Dessa Forma ele pergunta Onde quer salvar e qual o Nome quer dar para o Arquivo...


    Última edição por fabiopaes em 1/4/2016, 22:25, editado 2 vez(es)

    crysostomo gosta desta mensagem

    alpedro
    alpedro
    Intermediário
    Intermediário


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 165
    Registrado : 08/02/2016

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  alpedro 1/4/2016, 22:22

    cheers
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Não tenho relatório dentro do access

    Mensagem  gustavolaqua 1/4/2016, 22:31

    Olá Pedro e Fabio,

    como o meu programa já gera um arquivo word quero pegar este word e gerar um pdf. O meu programa não tem um relatório feito no access, é um arquivo word modelo que levo os valores do access para os bookmarks. por isso este comando não vai funcionar.
    Coloquei a função anexo porque ficou grande devido a quantidade de dados que tenho que levar do access para o word.
    Anexos
    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Attachmentfuncao_gera_documento.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (15 Kb) Baixado 95 vez(es)
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  FabioPaes 2/4/2016, 02:23

    É meu amigo, infelizmente nao posso lhe ajudar... vamos aguardar e ver se alguem consegue...
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Vlw

    Mensagem  gustavolaqua 2/4/2016, 02:38

    Beleza Fabio, agradeço por ter tentado!
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Mais alguém poderia ajudar?

    Mensagem  gustavolaqua 3/4/2016, 00:33

    Mais alguém poderia ajudar?
    avatar
    leandroribeiro23
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 22
    Registrado : 15/02/2016

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  leandroribeiro23 5/4/2016, 18:23

    consigo ver duas soluções para seu problema.

    1ª fazer um relatório no access mesmo. o relatório do access é semelhante a um PDF e quando visualizar o relatório vc manda imprimir em PDF.
    2ª continua usando o word mesmo, aproveitando seu código, e quando o arquivo estiver no word vc manda imprimir em PDF ou salvar em PDF.

    A primeira solução é a mais simples, pois, como disse os relatórios do access são semelhantes a um arquivo em PDF e sai perfeito. Se precisar de ajuda nos relatórios, estou às ordens.

    -----

    Vc teria como me mandar o arquivo do word "MODELO CONTRATO - NET SINDICO.docx" para eu analisar seu código? Peço isso pois gero petições em word no meu programa em access, mas faço isso pelo sistema de mala direta que não é tão amigável, assim com seu modelo eu gostaria de ver se seria possível implementar esse seu sistema no meu.

    Felicidades
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Eh

    Mensagem  gustavolaqua 6/4/2016, 04:38

    Obrigado pela opnião Leandro, então eu prefiro seguir com o word, mas vou procurar outra forma, pq o ideal mesmo eh gerar o pdf mesmo para o meu cliente não alterar. Quero automatizar até o envio de email, mas antes queria resolver o pdf.

    Bem, sobre o sistema, coloquei o programa e o arquivo word que fiz. Apanhei muito para conseguir mas com a ajuda do pessoal do forum consegui terminar esta parte.

    Pode copiar a vontade kkkk

    abs
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7882
    Registrado : 15/03/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  Alvaro Teixeira 6/4/2016, 10:21

    Olá Gustavo,
    Fiz pequeno exemplo que postei no Repositório de Exemplos:
    https://www.maximoaccess.com/t26165-gerar-arquivo-pdf-a-partir-de-documento-do-word

    Veja se é isso.
    Abraço
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  gustavolaqua 6/4/2016, 13:55

    Olá Alvaro, muito obrigado pela contribuição que é exatamente o que preciso.

    Resolveu meu problema!

    VLW! cheers cheers cheers cheers cheers cheers cheers cheers cheers cheers
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7882
    Registrado : 15/03/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  Alvaro Teixeira 6/4/2016, 14:23

    Olá, Gustavo, fico feliz ter resolvido.
    Obrigado pelo retorno, os utilizadores do fórum agradecem.
    Abraço a todos
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  gustavolaqua 6/4/2016, 15:18

    Alvaro, poderia reabrir aqui para solicitar uma ajuda, implementando o seu código dentro de uma função está apresentando o erro abaixo:

    erro em tempo de execução 91, a variável do objeto ou variável do bloco with não foi definida e aponta o bloco abaixo


    "    wordDoc.ExportAsFixedFormat OutputFileName:=FicheiroPDF, ExportFormat:= _
       wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
       Item:=wdExportDocumentContent, IncludeDocProps:=True"



    No seu código apenas alterei o caminho do arquivo word e pdf, conforme abaixo:

    Código:
    Public Function GerarPDFProposta()

    ' AHTEIXEIRA 2016 para MaximoAccess
    'Requer referencia Microsoft Word xx.xx Object Library

       Dim wordApp As Word.Application
       Dim wordDoc As Word.Document
       Dim FicheiroPDF As String
       
       Me.EstadoGerar.Caption = "A processar ..."
       
       
       Set wordApp = CreateObject("Word.Application")
       Set wordDoc = wordApp.Documents.Open(CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".docx")
       
       FicheiroPDF = CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".pdf"
           
       wordDoc.ExportAsFixedFormat OutputFileName:=FicheiroPDF, ExportFormat:= _
       wdExportFormatPDF, OpenAfterExport:=False, OptimizeFor:=wdExportOptimizeForPrint, Range:=wdExportAllDocument, _
       Item:=wdExportDocumentContent, IncludeDocProps:=True
       
       wordDoc.Close saveChanges:=False
       
       Me.EstadoGerar.Caption = ""
       MsgBox "Feito, verifique na pasta", vbInformation, ""


    End Function
    FabioPaes
    FabioPaes
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3914
    Registrado : 14/08/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  FabioPaes 6/4/2016, 15:44

    É justamente nele que esta o Problema...

    Set wordDoc = wordApp.Documents.Open(CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".docx")

    FicheiroPDF = CurrentProject.Path & "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".pdf"

    Mude Para:

    Set wordDoc = wordApp.Documents.Open( "C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".docx")

    FicheiroPDF ="C:\Users\Gustavo Costa Laqua\Google Drive\01 - Documentos\GUSTAVO\PROJETOS\NETAGIL\COMERCIAL\99 - PROPOSTA GERADA\" & Me.txtNumeroPropostaGerada & ".pdf"


    Pois se Vc fala que esta em CurrentProject.Path (Projeto Atual, Local do aplicativo), nao deve especificar o caminho completo do arquivo, devendo apenas especificar a partir da \Nomearquivo.Formato.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7882
    Registrado : 15/03/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  Alvaro Teixeira 6/4/2016, 16:32

    Olá, o Fábio disse tudo!
    Abraço
    avatar
    gustavolaqua
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 25
    Registrado : 12/06/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  gustavolaqua 6/4/2016, 16:35

    Fábio e Alvaro, obrigado pela ajuda!

    Realmente funcionou, eu tive outro bug mas fácil de resolver, a minha instrução de gerar o arquivo word estava abrindo o arquivo e quando a nova instrução ia gerar o pdf ela ficava aguardando pela eternidade. Já resolvi e funcionou perfeitamente! cheers cheers cheers cheers cheers sunny sunny sunny sunny
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2660
    Registrado : 23/01/2018

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  crysostomo 19/4/2021, 22:22

    Boa noite . show de bola, será que tem como juntar esses pdf Teixeira no app?


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7882
    Registrado : 15/03/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  Alvaro Teixeira 20/4/2021, 11:37

    Olá Gilliard,

    Obrigado pelo retorno.
    Não compreendi a questão, no entanto tenha atenção se está relacionada com o tópico ou é outra questão.

    Abraço
    crysostomo
    crysostomo
    Maximo VIP
    Maximo VIP


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 2660
    Registrado : 23/01/2018

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  crysostomo 20/4/2021, 13:56

    Bom dia Teixeira, o exemplo que criou de gerar pdf está muito bom, seria uma ajuda e tanta se ao selecionar os arquivos e quando convertido e ja juntasse os pdf


    .................................................................................
    Obs.: Coloque somente as partes defeituosas para que possamos encontrar e entender  o problema mais rápido para lhe ajudar. Disponho.
    Uma mão ajuda a outra.
    Feliz aquele que transfere o que sabe e aprende o que ensina.
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 7882
    Registrado : 15/03/2013

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty Re: [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf

    Mensagem  Alvaro Teixeira 20/4/2021, 14:14

    Olá Gilliard

    Não quero fugir da questão (eu avisei) mas vou manter o rumo neste tópico e pergunto...
    Se gerar o relatório todo junto (varios relatorios num só) já resolve essa duvida o que lhe parece?

    Abraço

    crysostomo gosta desta mensagem

    avatar
    carmelito
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Anónimo
    Mensagens : 34
    Registrado : 12/08/2011

    [Resolvido]Access abrir um arquivo word (.docx) e gerar o mesmo em pdf Empty A minha dúvida é a mesma, mas não funcionou.

    Mensagem  carmelito 18/7/2021, 23:05

    Boa noite.
    Não abri um novo tópico, pois a dúvida é a mesma. Eu tenho um modelo de word (atestado_1.docx), por causa da pessoa, se desejar alterar parte do texto (que não sejam os indicadores), faz no modelo, diferente de um relatório não tem acesso para alterar. Tenho um formulário com vários campos, botão, ao clicar, ele abre arquivo modelo, cola os campos do formulário e salva em outro word, tudo perfeito, mas gostaria em salvar também em pdf, não deu certo pelos exemplos do tópico, se alguém tiver uma ideia.
    segue o código do botão.

    Private Sub Comando17_Click()
    Dim oApp As Object 'Cria uma variável objeto
    On Error GoTo TrataErro


    'Carregamos a barra de progressão
    DoCmd.OpenForm "frm_001_BarraProgresso"
    With Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form
    .Title = "Gerando Atestado Acadêmico."
    .BarColor = RGB(21, 43, 57)
    .ForeColor = RGB(163, 163, 163)
    .Max = 83
    End With

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress


    'Inicia o MS Word
    Set oApp = CreateObject("Word.Application") 'Cria e abre o objeto Word
    With oApp

    'Torna o MS Word visível
    visible = True

    'Abre o documento base
    .Documents.Open CurrentProject.Path & "\Modelos_Atestados\atestado_1.docx"


    'Move cada campo para o indicador definido no documento
    .ActiveDocument.Bookmarks("quealuno").Select
    .Selection.Text = Trim(CStr(Me.Texto19))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("nome").Select
    .Selection.Text = Trim(CStr(Me.Nome))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("portador").Select
    .Selection.Text = Trim(CStr(Me.Texto21))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("cpf").Select
    .Selection.Text = Trim(CStr(Me.CPF))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("matrícula").Select
    .Selection.Text = Trim(CStr(Me.Matrícula))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("matriculada").Select
    .Selection.Text = Trim(CStr(Me.Texto24))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("curso").Select
    .Selection.Text = Trim(CStr(Me.Curso))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("data").Select
    .Selection.Text = Trim(CStr(Me.Texto26))

    Forms!frm_001_BarraProgresso!ctlSbfPBH2.Form.Progress

    .ActiveDocument.Bookmarks("localizador").Select
    .Selection.Text = Trim(CStr(Me.Texto34))



    'Fecha a barra de progresso
    DoCmd.Close acForm, "frm_001_BarraProgresso"

    'Salva o documento
    .ActiveDocument.SaveAs CurrentProject.Path & "\Atestados_Gerados\" & Me.Nome & "_" & Me.Curso & "_" & Format(Date, "mmmm") & "_" & Format(Date, "yyyy") & ".docx"



    'Fecha o word
    .ActiveDocument.Close



    MsgBox "Atestado Gerado Com Sucesso...", vbInformation

    'Abre o a pasta com o arquivo
    Shell "C:\WINDOWS\explorer.exe """ & CurrentProject.Path & "\Atestados_Gerados\" & "", vbNormalFocus


    End With
    oApp.Quit
    Set oApp = Nothing

    Saida:
    Exit Sub

    TrataErro:
    'Se um campo do formulário estiver vazio, remove o texto do Indicador e continua
    If Err.Number = 94 Then
    oApp.Selection.Text = ""
    Resume Next
    End If

    MsgBox "Erro # " & Str(Err.Number) _
    & vbNewLine & "Descrição: " & Err.Description _
    & vbNewLine & vbNewLine & "Por favor contate o Administrador do Sistema."
    MsgBox Msg, vbExclamation, "Atenção"

    'Fecha a barra de progresso
    DoCmd.Close acForm, "frm_001_BarraProgresso"

    #If DESENV Then
    oApp.Quit
    Set oApp = Nothing
    Stop
    Resume
    #End If
    Resume Saida



    End Sub

      Data/hora atual: 30/11/2023, 07:01