Backup automatico database all'apertura

Question

Ciao,

ho creato un database con un po' di tabelle, maschere, query e report. Alcuni oggetti contengono anche (semplice) codice VBA.

Il file è in una cartella sul server aziendale e ci accedono anche persone poco pratiche di Access.

Vorrei fare in modo che all'apertura del file (o della prima maschera) si crei una copia del file stesso, così se per caso si dovesse scoprire che il file a cui si è lavorato è stato danneggiato, avrei il suo backup da cui ripartire.

Ho visto in rete del codice simile per backup automatici ma le mie conoscenze non sono sufficienti per riscriverlo in autonomia.

Vi ringrazio anticipatamente per il supporto.

Ciao

Roberto

Answer 1

Ciao,

prova ad adattare il seguente codice, serve per effettuare il backup del back-end

Function onActionBackUp(control As IRibbonControl)

    Dim tId As Variant

    Dim str As String

    DoCmd.Hourglass True

    str = "XCopy " & Left(DLookup("OOAK_PathDati", "OOAKLocal"), InStrRev(DLookup("OOAK_PathDati", "OOAKLocal"), "")) & "*.Accdb C:\Access_BackUp\Protocollo_" & Format(Date, "yyyymmdd") & ".* /Y"

    tId = Shell(str)

    MsgBox "Bakcup effettuato correttamente.", vbInformation + vbOKOnly, "BackUp"

    DoCmd.Hourglass False

End Function

Ciao Mimmo

Answer 2

ciao Roberto,

I backup si organizzano da DB chiuso e possibilmente schedulando un'operazione pianificata con ad esempio file batch lanciati da sistema operativo e mai da db in uso.

la copia e' bene conservarla in un altro HD per ovvie ragioni di sicurezza.

Prova a ragionare su quanto suggerito e abbozzare codice per ottenere il risultato voluto.

HTH.

Ciao, Sandro.