Acho que essa dúvida é pertinente a todos.
Nos exemplos de códigos, tem um código com o nome do assunto (Backup automatico ao fechar do formulario Principal)
Fiz assim como esta la:
Public 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:\Backup Sistema ASCP - Controle de Estoque\Backup" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.path & "\ASCP Controle de Estoque - Modificado.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
End Function
'Ao clicar em sair salva o BD
Private Sub Botão_Sair_Click()
If MsgBox("Deseja Sair do Sistema? ", vbYesNo, "Aviso de Saída") = vbYes Then
Call BackBD
Quit acQuitSaveAll
End If
End Sub
Dúvida, isso salva somente uma vez o BD, tem como salvar toda vez que sair do BD e substituir o backup salvo anteriormente? Assim o backup fica mais seguro.
E como colocar um caminho de rede, para salvar em outro micro?