MaximoAccess

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

Obrigado

Administração do MaximoAccess

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

    Rotina Salvar documento em Pdf

    avatar
    RipadorBR
    Novato
    Novato

    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 em 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 100%

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

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

    Mensagem  Marcelo David em 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


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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
    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 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 em 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 100%

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

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

    Mensagem  Silvio em 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 100%

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

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

    Mensagem  Marcelo David em 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?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)
    Silvio
    Silvio
    Developer
    Developer

    Respeito às Regras 100%

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

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

    Mensagem  Silvio em 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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 29/6/2020, 23:48

    Olá a todos,

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

    cheers
    avatar
    RipadorBR
    Novato
    Novato

    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 em 30/6/2020, 07:21

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

    ahteixeira
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

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

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

    Mensagem  ahteixeira em 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 100%

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

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

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

    Bom dia,
    alguma novidade por aqui?


    .................................................................................
    Marcelo David
    www.mrdsystem.com.br (em construção)

      Data/hora atual: 10/8/2020, 06:51