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


4 participantes

    Rotina Salvar documento em Pdf

    avatar
    RipadorBR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 10/05/2016

    Rotina Salvar documento em Pdf Empty Rotina Salvar documento em Pdf

    Mensagem  RipadorBR 23/6/2020, 15:53

    Estou com a seguinte dúvida neste código abaixo:
    Código:

    Private Sub btSalvar_Click()
       Dim strArquivo As String
       Dim strLocal As String
       
       strArquivo = "" & "Ocorrencia " & Me.CodBO & "_" & Me.Morador & ".pdf"
       strLocal = "C:\coc" & strArquivo
       'DoCmd.OutputTo acOutputForm, "TOcorrencias", acFormatPDF, FilePath'
       'DoCmd.OutputTo acOutputReport, "rOcorrencia", acFormatPDF, StrLocal'
       DoCmd.OpenReport "rOcorrencia", acViewPreview, , "CodBO=" & Me!CodBO, acHidden
       DoCmd.OutputTo acOutputReport, "rOcorrencia", acFormatPDF, strLocal
       DoCmd.Close acReport, "rOcorrencia"
       
       MsgBox "Ocorrência salva com sucesso", vbInformation, "Arquivo Salvo"
       
    End Sub

    Ocorre que quando o arquivo já está criado na pasta de destino, ao clicar ele não substitui e atualiza automaticamente, causando ineficiência. Preciso acrescentar a substituição do arquivo existente na pasta.
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Marcelo David 23/6/2020, 16:33

    Poderá verificar se o arquivo já existe e caso sim, apague:
    Logo abaixo da linha: strLocal = "C:\coc\" & strArquivo, ponha o seguite:

    Código:
    if dir("strLocal",vbArchive)<>"" then
          kill strLocal
    end if


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Rotina Salvar documento em Pdf Marcel11
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Alvaro Teixeira 23/6/2020, 16:37

    Olá Nei,

    Será verificar se existe o ficheiro e apagar:

    Código:
    Private Sub btSalvar_Click()
      Dim strArquivo As String
      Dim strLocal As String
     
      strArquivo = "" & "Ocorrencia " & Me.CodBO & "_" & Me.Morador & ".pdf"
      strLocal = "C:\coc\" & strArquivo
      'DoCmd.OutputTo acOutputForm, "TOcorrencias", acFormatPDF, FilePath'
      'DoCmd.OutputTo acOutputReport, "rOcorrencia", acFormatPDF, StrLocal'
      If Dir(strLocal) <> "" Then Kill strLocal  'ahteixeira 2020 MaximoAccess
      DoCmd.OpenReport "rOcorrencia", acViewPreview, , "CodBO=" & Me!CodBO, acHidden
      DoCmd.OutputTo acOutputReport, "rOcorrencia", acFormatPDF, strLocal
      DoCmd.Close acReport, "rOcorrencia"
     
      MsgBox "Ocorrência salva com sucesso", vbInformation, "Arquivo Salvo"
     
    End Sub

    Nota: Não testado.

    Abraço
    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Alvaro Teixeira 23/6/2020, 16:40

    Amigo Marcelo, já tinha respondido Very Happy .
    Aguardamos a resposta do Nei

    Abraço a todos


    Marcelo David gosta desta mensagem

    avatar
    RipadorBR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 10/05/2016

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  RipadorBR 23/6/2020, 19:12

    Ainda não funcionou, ele tem que verificar se existe o arquivo e substituir pela nova.
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Silvio 24/6/2020, 12:33

    Bom dia, se me permitem...apenas um pitaco..


    troque...
    If Dir(strLocal) <> "" Then Kill strLocal 'ahteixeira 2020 MaximoAccess

    por...
    If (strArquivo ) <> "" Then Kill strArquivo


    Obs...não testei.


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Marcelo David 24/6/2020, 14:39

    Bom dia,

    Silvio escreveu:troque...
    If Dir(strLocal) <> "" Then Kill strLocal 'ahteixeira 2020 MaximoAccess

    por...
    If (strArquivo ) <> "" Then Kill strArquivo

    Grande Silvio, como o RipadorBR quer saber se o arquivo já existe no diretório para assim substituí-lo, verificando apenas a variável não garantirá que o arquivo exista ou não.
    apenas a


    RipadorBR escreveu:Ainda não funcionou, ele tem que verificar se existe o arquivo e substituir pela nova.

    É justamente o que faz a sugestão do Teixeira e minha...

    Qual erro ocorre e em qual linha?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Rotina Salvar documento em Pdf Marcel11
    Silvio
    Silvio
    Developer
    Developer


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 5074
    Registrado : 20/04/2011

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Silvio 24/6/2020, 19:16

    putssss....não havia reparado. Perdoe-me ! Ato falho meu ! Mad Mad Mad Mad Mad Mad Mad Mad


    .................................................................................
    Caso tenha resolvido a tua duvida, coloque o tópico como resolvido.
    www.maximoaccess.com/t860-resolucao-de-topicos

    "Quase tudo é possível quando se tem determinação e força de vontade. Não desista tão rápido."

    Marcelo David gosta desta mensagem

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Alvaro Teixeira 29/6/2020, 23:48

    Olá a todos,

    Nei, como ficou a situação?
    Aguardamos.

    cheers
    avatar
    RipadorBR
    Novato
    Novato


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 9
    Registrado : 10/05/2016

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  RipadorBR 30/6/2020, 07:21

    Fiz a modificação e nada, ainda não atualiza. Muito estranho mesmo.

    Alvaro Teixeira
    Alvaro Teixeira
    Moderador Global
    Moderador Global


    Respeito às regras : Respeito às Regras 100%

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

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Alvaro Teixeira 30/6/2020, 09:13

    Olá a todos

    Nei, partilhe a parte envolvida na questão para se testar e partilhe.
    Creio que assim fica mais fácil para qualquer membro ajudar.

    Abraço
    Marcelo David
    Marcelo David
    Moderador
    Moderador


    Respeito às regras : Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 3857
    Registrado : 21/04/2011

    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Marcelo David 14/7/2020, 14:11

    Bom dia,
    alguma novidade por aqui?


    .................................................................................
    Aprenda como criar formulário desacoplado.
    Conheça meu canal no Youtube e se inscreva.
    Rotina Salvar documento em Pdf Marcel11

    Conteúdo patrocinado


    Rotina Salvar documento em Pdf Empty Re: Rotina Salvar documento em Pdf

    Mensagem  Conteúdo patrocinado


      Data/hora atual: 28/3/2024, 15:42