Backup database con date giornaliere.

Question

Ciao e scusate se ritorno sull'argomento.

Sono riuscito ad adattare, grazie ad un vecchio post di Giorgio Rancati, un codice che mi facesse backup giornalieri a database chiuso.

(volendo si possono creare backup continui senza essere sovrascritti. Basta aggiungere i secondi alla seguente riga di codice che si trova nel modulo di db-bck:

FileCopy CurrentProject.Path & "\Database.accdb", Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")

Al seguente link potete scaricare l'esempio.

Ci sono due db, uno chiamato, senza troppa fantasia, Database che fa le veci di un db principale, l'altro chiamato db-bck che fa il backup di Database dopo averlo chiuso.

Basta aprire database e chiuderlo ed il backup è salvato nella cartella Documenti.

Ci sono due cose però da risolvere.

La prima è che una volta creato il backup, se vado a riaprire Database me lo trovo ridimensionato nella forma.

La seconda cosa è che non riesco a salvare il backup nella stessa cartella dove risiede il database.

Vladimiro

Answer 1

Ciao,

purtroppo mi è venuto un grosso dubbio.

Come già scritto, il database è diviso in BE e FE.

Il BE si trova all'interno di una cartella condivisa su un computer che fa da server, mentre altri 3 FE si trovano su 3 computer diversi.

Nel momento in cui un FE chiude, parte il backup dopo aver chiuso naturalmente il BE.

Domanda.

Essendo gli altri due FE aperti, che succede?

Il FE che ha fatto il backup, l'ha ottenuta realmente la chiusura del BE?

Vladimiro

Ciao,

provo a rispondermi da solo sperando che qualcuno di voi mi confermi che va bene quello che vado a descrivere.

In fondo a me non interessa che i primi due chiudano il db con il relativo backup in quanto, essendo backup giornalieri, l'ultimo che chiuderà il db avrà sempre il BE chiuso scongiurando la perdita di eventuali dati in memoria ed in più sovrascriverà l'ultimo backup già fatto nella giornata. 

Vladimiro

Answer 2

Sono riuscito ad adattare, grazie ad un vecchio post di Giorgio Rancati, un codice che mi facesse backup giornalieri a database chiuso.

(volendo si possono creare backup continui senza essere sovrascritti. Basta aggiungere i secondi alla seguente riga di codice che si trova nel modulo di db-bck:

FileCopy CurrentProject.Path & "\Database.accdb", Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")

Ciao,

purtroppo mi è venuto un grosso dubbio.

Come già scritto, il database è diviso in BE e FE.

Il BE si trova all'interno di una cartella condivisa su un computer che fa da server, mentre altri 3 FE si trovano su 3 computer diversi.

Nel momento in cui un FE chiude, parte il backup dopo aver chiuso naturalmente il BE.

Domanda.

Essendo gli altri due FE aperti, che succede?

Il FE che ha fatto il backup, l'ha ottenuta realmente la chiusura del BE?

Vladimiro

Answer 3

Il primo problema a me non si verifica, tutto rimane uguale.

Per il secondo, il codice deve essere modifica nel modo seguente:

**FileCopy CurrentProject.Path & "\Database.accdb",****CurrentProject.Path & "" &**Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")

Ciao carloCarlo1,

perfetto,  tra le tante prove non ho pensato di inserire il "segnaposto" & "" & .

Al tuo codice, sicuramente incollato male, manca una parentesi.

Così va bene:

FileCopy CurrentProject.Path & "\Database.accdb", CurrentProject.Path & "" & (Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")

Strano che a te non si ridimensioni, è proprio una bella seccatura da risolvere.

Grazie comunque per la dritta.

Vladimiro

Grazie al contributo del grande Sandro Peruz, riguardante un suo intervento su un altro thread, anche il database dimensionato è tornato normale :-)

Al seguente link potete scaricare l'esempio "Backup consecutivi" un tantino diverso da quello postato in precedenza "Backup giornalieri"  lasciato ugualmente a disposizione in rete.

Vladimiro

Answer 4

Il primo problema a me non si verifica, tutto rimane uguale.

Per il secondo, il codice deve essere modifica nel modo seguente:

**FileCopy CurrentProject.Path & "\Database.accdb",****CurrentProject.Path & "" &**Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")

Ciao carloCarlo1,

perfetto,  tra le tante prove non ho pensato di inserire il "segnaposto" & "" & .

Al tuo codice, sicuramente incollato male, manca una parentesi.

Così va bene:

FileCopy CurrentProject.Path & "\Database.accdb", CurrentProject.Path & "" & (Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")

Strano che a te non si ridimensioni, è proprio una bella seccatura da risolvere.

Grazie comunque per la dritta.

Vladimiro

Answer 5

Il primo problema a me non si verifica, tutto rimane uguale.

Per il secondo, il codice deve essere modifica nel modo seguente:

**FileCopy CurrentProject.Path & "\Database.accdb",****CurrentProject.Path & "" &**Format(Now, "yy-mm-dd-ss") & " Database_Backup.accdb")