[Resolvido]Backup - modelo do repositório não está disponível

Desculpem se o tópico estiver fora de lugar.
estou tentando baixar um exemplo do Dilson Marcos que está no repositório de exemplos, mas o link não funciona.

alguem pode me ajudar.
Link do tópico:
http://maximoaccess.forumeiros.com/t719-backup-e-restauracao-de-copia-de-seguranca-em-rede

obrigado.

Olá Daluque..

Após algum tempo, o próprio site excluí o arquivo. Por isso está sem o mesmo lá.

Abraços.

Silvio

PS. Tem que ser para rede mesmo ?

Olá Silvio, obrigado.

É, na verdade eu queria dar uma olhada nesse exemplo.
Conheço o exemplo citado pelo Dilson (do WSenna) e queria ver as "melhorias" comentadas na exposição do exemplo.
Talvez alguem tenha uma cópia que possa disponibilizar.

abraço.

Bom, eu costumo usar essa:


1- criar essa função abaixo
Function BackBD()
'objectivo: criar (1) uma copia de segurança por mes
' 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
' ao MDB da cópia.
'JPaulo http://maximoaccess.forumeiros.com

Dim CopiaSegura As Object
Dim Caminho As String

If MsgBox(" Deseja efetuar o Back up do sistema ?", vbYesNo + vbDefaultButton1 + vbInformation, "sistema") = vbYes Then

Caminho = "C:\Bkp_Sistema\BKP_LAVAJATO" 'Nome da pasta e nome de inicio para o banco de backup
Set CopiaSegura = CreateObject("Scripting.FileSystemObject")
CopiaSegura.CopyFile CurrentProject.Path & "\lavajato3.0.accdb", Caminho & Format(Now, "_ddmmyyyy") & ".accdb"
MsgBox "Back up realizado com sucesso!", vbOKOnly + vbInformation, "sistema"
Else
DoCmd.OpenForm "menuprincipal"
End If
End Function

2- depois em um botão, essa função:

Private Sub bt_bkp_Click()
Call BackBD
End Sub

http://maximoaccess.forumeiros.com/t885-resolvidobackup-manter-copia-anterior

http://maximoaccess.forumeiros.com/t172-resolvidosbackup-automatico-ao-fechar-do-formulario-principal?highlight=backup

http://maximoaccess.forumeiros.com/t11-102-codigos-vba-para-access

http://maximoaccess.forumeiros.com/t646-copia-backup-pasta-automatica-usuariodata

Silvio e JPaulo, obrigado pelos posts.

É que eu queria mesmo dar uma olhada nesse modelo do Dilson.
Meu backup é feito diariamente (Cobian Backup) pela manhã e inclui o BE e FE que estão no servidor.
Tambem tenho fechamento do BD por inatividade.

Tenho o modelo do WSenna para fechar os FE's na rede (que praticamente é o mesmo fundamento do site do JR's).

Procurando por outra coisa ví um post do Dilson que levou ao link do modelo, então eu gostaria de dar uma verificada nas "melhorias" que ele implementou no procedimento.

é isso.

portanto, agradeço e se alguem tiver o modelo ...

Obrigado ao Dilson por atualizar o link para o download.
obrigado a todos.