Backup progressivi.

Anonimo
2017-08-26T20:37:37+00:00

Ciao,

facendo una ricerca in rete sono riuscito ad adattare il seguente codice per creare il backup del database.

In un modulo:

Declare PtrSafe Function apiCopyFile Lib "kernel32" Alias "CopyFileA" (ByVal lpExistingFileName As String, ByVal lpNewFileName As String, ByVal bFailIfExists As Long) As Long

Sub CopyFile(SourceFile As String, DestFile As String)

       '---------------------------------------------------------------

       ' PURPOSE: Copy a file in use on disk from one location to another.

       ' ACCEPTS: The name of the source file and destination file.

       ' RETURNS: Nothing

       '---------------------------------------------------------------

       Dim Result As Long

         If Dir(SourceFile) = "" Then

            MsgBox Chr(34) & SourceFile & Chr(34) & _

               " is not valid file name."

         Else

            Result = apiCopyFile(SourceFile, DestFile, False)

         End If

End Sub

In un pulsante:

Call CopyFile(CurrentProject.Path & "\Database.mdb", CurrentProject.Path & "\CopiaDatabase.mdb")

Quello che a me servirebbe, è creare ad ogni click del pulsante un backup nuovo, cioè che non si vada a sovrapporre a quello già esistente.

Ad esempio CopiaDatabase1, CopiaDatabase2, CopiaDatabase3 ecc...

Vladimiro

Microsoft 365 e Office | Access | Per la casa | Windows

Domanda bloccata. Questa domanda è stata eseguita dalla community del supporto tecnico Microsoft. È possibile votare se è utile, ma non è possibile aggiungere commenti o risposte o seguire la domanda.

0 commenti Nessun commento

44 risposte

Ordina per: Più utili
  1. Anonimo
    2017-08-29T22:03:02+00:00

    Scusa, ma hai provato ad verificare passo-passo con il debug?

    La risposta è stata utile?

    0 commenti Nessun commento
  2. Anonimo
    2017-08-29T21:18:07+00:00

    Nemmeno io so cosa dirti.

    Il database l'ho creato da zero. L'unica cosa che posso suggerirti è di fare il debug, aggiungere una routine di gestione degli errori e vedere cosa contengono le variabili con i nomi dei DB e controllare che non esca per motivi strani.

    Credo di averla usata almeno in 40 applicazioni, impossibile che non funzioni.

    Ok grazie comunque.

    Vladimiro

    La risposta è stata utile?

    0 commenti Nessun commento
  3. Anonimo
    2017-08-29T20:13:59+00:00

    Nemmeno io so cosa dirti.

    Il database l'ho creato da zero. L'unica cosa che posso suggerirti è di fare il debug, aggiungere una routine di gestione degli errori e vedere cosa contengono le variabili con i nomi dei DB e controllare che non esca per motivi strani.

    Credo di averla usata almeno in 40 applicazioni, impossibile che non funzioni.

    La risposta è stata utile?

    0 commenti Nessun commento
  4. Anonimo
    2017-08-29T20:06:58+00:00

    Ciao Francesco,

    se non c'è nulla da modificare o da inserire nel database scaricato, siamo sempre allo stesso punto.

    Quella che vedi è la cartella del download con altre due cartelle inserite come nel tuo esempio.

    Le cartelle restano vuote, il database rilasciato viene sovrascritto non tenendo conto sia del nome che della data del backup.

    Bho!!!

    Vladimiro

    La risposta è stata utile?

    0 commenti Nessun commento
  5. Anonimo
    2017-08-29T18:48:38+00:00

    Creato il database e copiato in una directory di OneDrive, questo è il link: https://1drv.ms/u/s!ArhAJKUQ4PQ0g9Rqr6Yg4BeoZ1PFrA

    Questa la struttura della directory di progetto

    Questo il risultato di due bkp successivi a distanza di qualche secondo

    La risposta è stata utile?

    0 commenti Nessun commento