Rotina Salvar documento em Pdf

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.

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

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

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

Abraço a todos

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

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.

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?

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

Olá a todos,

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

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

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

Bom dia,
alguma novidade por aqui?