Come effettuare il Backup da codice VBA (Access)
La subroutine che segue, permette di salvare da codice VBA il file di Access con cui si sta lavorando.
Private Sub Esegui_Backup(ByVal Percorso As String, ByVal NomeDB As String)
Dim gestione As Object
On Error GoTo erore_Esegui_Backup
Set gestione = CreateObject(“Scripting.FileSystemObject”)
inizio:
varReturn = SysCmd(acSysCmdInitMeter, “Backup in corso…”, 4)
c = 0
‘<<Se il drive (C:\, D:\, E:\) è presente e pronto (l’ho fatto per le pen drive in sostanza)>>
If gestione.DriveExists(CStr(Mid(Percorso, 1, 2))) = True Then
‘<<Se il percorso in cui vuoi fare il backup non esiste>>
If gestione.FolderExists(Percorso) = False Then
c = 1
‘<<crea quel percorso e quindi in sostanza la cartella>>
gestione.CreateFolder (Percorso)
End If
Else
‘<<Gestione dell’errore del drive>>
If MsgBox(“Il drive ‘” & CStr(Mid(Percorso, 1, 2)) & “‘ è disattivato!” & Chr(13) & “Scegliere l’operazione da eseguire!”, vbExclamation + vbRetryCancel, “Backup”) = vbRetry Then
GoTo inizio
Else
Exit Sub
End If
End If
varReturn = SysCmd(acSysCmdUpdateMeter, 1)
‘<<Se non hai creato la cartella del percorso(c=0) e al suo interno è presente il tuo database(se quindi già hai fatto precedenti backup)>>
If c = 0 And gestione.FileExists(Percorso & NomeDB) Then
‘<<Cancella il file del vekkio db>>
gestione.DeleteFile (Percorso & NomeDB)
End If
varReturn = SysCmd(acSysCmdUpdateMeter, 2)
‘<<Copia il nuovo file del db aggiornato>>
gestione.CopyFile CurrentProject.Path & “\” & NomeDB, Percorso & “\” & NomeDB & ” ” & Date & ” ” & Time, True
varReturn = SysCmd(acSysCmdUpdateMeter, 3)
Set gestione = Nothing
varReturn = SysCmd(acSysCmdSetStatus, “Backup terminato.”)
MsgBox “Backup terminato con successo!”, vbInformation
Exit Sub
erore_Esegui_Backup:
MsgBox “Errore di backup!” & Chr(13) & “L’operazione verrà interrotta e il programma si chiuderà correttamente!”, vbCritical, “Backup”
MsgBox Err.Description
‘resume next
‘1)”percorso_radice_della_cartella_del_db” è la cartella contenete il db su cui si lavora
‘2) il parametro ‘percorso’ è la cartella dove vuoi che il programma faccia il backup
End Sub
Pubblicato il 15 marzo 2011 su Codice VBA. Aggiungi ai preferiti il collegamento . Lascia un commento.
Lascia un commento
Comments 0