Backup progressivi.

ciao Vlamidiro,

inserisci nella testata del modulo di classe della form ( della form ), la dichiarazione della Api Sleep come mostrato in precedenza.

Senza di essa ottieni l'errore di cui al tuo post.

Option Compare Database

Option Explicit

#If Win64 Then

        Private Declare PtrSafe Sub _

                        Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#Else

        Private Declare Sub _

                        Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#End If

Ciao Sandro,

simpatico questo escamotage per Win64 o Win32   :-)

Purtroppo, anche così non mi rilascia nessuna copia.

Sicuramente ho sbagliato qualcosa e per farla breve ti allego il db chiamato Database Qui

Una cosa,

come faccio ad inserire il seguente percorso:

CurrentProject.Path & "\Database.mdb"

con quest'altro:

"C:\Users\Vladimiro\Desktop\Database.accdb"

evitando l'errore:

Vladimiro

ciao Vlamidiro,

inserisci nella testata del modulo di classe della form ( della form ), la dichiarazione della Api Sleep come mostrato in precedenza.

Senza di essa ottieni l'errore di cui al tuo post.

Option Compare Database

Option Explicit

#If Win64 Then

        Private Declare PtrSafe Sub _

                        Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#Else

        Private Declare Sub _

                        Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#End If

Private Sub bckup2()

Dim strDBPath As String

Dim strDBName As String

Dim aName()   As String

Dim strDBKup  As String

Dim i         As Long

Dim j         As Long

Dim k         As Long

'.... resto del codice

Ciao, Sandro.

Ciao Sandro,

ancor prima di personalizzare il percorso, ho il seguente errore:

Vladimiro

ciao Vladimiro,

backup dell'intero database non solo della parte dati, corretto?

Meglio non da database aperto, sempre da database chiuso, sfruttando l'errore delle funzione nativa fileCopy

Crea un nuovo database con una maschera che imposterai come maschera di avvio del database stesso in modo che una volta avviato, la maschera si apra.

Su evento timer invochi :

Private Sub Form_Timer()

bckup2

End Sub

avendo cura di impostare l'intervallo a 1 secondo :

la routine, bckup2, richiamata 10 volte, 1 volta ogni secondo avrà il compito di tentare il backup ed in caso di errore ri-tentare per altre 10 volte, concedendo "un po'" di tempo per chiudere il database :

Option Compare Database

Option Explicit

#If Win64 Then

        Private Declare PtrSafe Sub _

                        Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#Else

        Private Declare Sub _

                        Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

#End If

Private Sub bckup2()

Dim strDBPath As String

Dim strDBName As String

Dim aName()   As String

Dim strDBKup  As String

Dim i         As Long

Dim j         As Long

Dim k         As Long

Dim strMess   As String

Dim bt        As VBA.VbMsgBoxStyle

Dim strTitle  As String

Const strPathDB = "C:\fullPathDatabase" ' personalizza il path con nome db+estensione

aName = Split(strPathDB, "")

strDBName = Split(aName(UBound(aName)), ".")(0)

strDBPath = Replace(strPathDB, aName(UBound(aName)), "")

    i = 1

    Do While Len(Dir(strDBKup)) > 0

        strDBKup = strDBPath & strDBName & " copia (" & i & ").accdb"

        i = i + 1

    Loop

    On Error Resume Next   

    For j = 1 To 10

        VBA.FileCopy Source:=strPathDB, Destination:=strDBKup

        DoEvents

        Sleep 1000

        If Err.Number = 0 Then

            Me.TimerInterval = 0

            Exit For

        End If

    Next

    on error goto 0

    strMess = "BackUp eseguito correttamente"

    strTitle = "Informazione"

    bt = vbInformation

    If j = 11 Then

        strMess = "BackUP non eseguito, qualcosa non va...!"

        bt = vbCritical

        strTitle = "Attenzione!"

        k = -1

    End If

    VBA.MsgBox prompt:=strMess, _

               buttons:=bt, _

               title:=strTitle

    If k = -1 Then

        Sleep 1000

        bckup2

    End If

    Erase aName 

    DoCmd.Quit

End Sub

un loop genera il nome del database backup concatenato al nome Copia (n) come suffisso, ovviamente ulteriormente personalizzabile.

Apri lo schedulatore di Windows, digitando schedule sulla barra di ricerca e scegli pianifica attività :

azione, crea attività e imposti la frequenza:

HTH,ciao, Sandro.