Boa tarde
Não reconhece o comando format no seguinte procedimento, no office 2013
Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Users\Rui Maciel\Desktop\CloudPT\BackupDP\Direitos_Paroquiais" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\Direitos_Paroquiais.accdb", Caminho & Format(Now, "_mmyyyy") & ".accdb"
'CopiaSegura.CopyFile CurrentProject.Path & "\FIPSJBNogueira.accdb", Caminho & Format(Now, "_hhnnss_mmyyyy") & ".accdb"
End Function
Private Sub Form_Close()
Call BackBD
End Sub
Não reconhece o comando format no seguinte procedimento, no office 2013
Function BackBD()
'elaborado por: JPaulo - 11/10/2006
'objectivo: criar (1) uma copia de segurança por mês
' pode ser alterado para (1) uma por dia, ou uma (1) por ano, para
'isso basta alterarem o Format(Now(), "_mmyyyy") para Format(Now(), "_ddmmyyyy")
'O caminho tem de ter o nome da pasta, neste caso Backup e o nome que querem dar
' à MDB da cópia.
Dim CopiaSegura As Object
Dim Caminho As String
Caminho = "C:\Users\Rui Maciel\Desktop\CloudPT\BackupDP\Direitos_Paroquiais" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\Direitos_Paroquiais.accdb", Caminho & Format(Now, "_mmyyyy") & ".accdb"
'CopiaSegura.CopyFile CurrentProject.Path & "\FIPSJBNogueira.accdb", Caminho & Format(Now, "_hhnnss_mmyyyy") & ".accdb"
End Function
Private Sub Form_Close()
Call BackBD
End Sub