Effettuare il backup (più esattamente una copia) del nostro DB tramite VBA è estremamente semplice.
Nel codice che vi mostrerò
1) nomefileaccess_ dovrà essere sostituito da un nome a voi gradito, possibilmente senza spazi se formato da più parole. Lasciate l’underscore alla fine;
2) .mdb va bene se il vostro db è in questo formato. Altrimenti sostituitelo con .accdb
La stringa C:\backup\ dovrà essere modificata a vostro piacimento. Fate in modo che l’indirizzo sia completo e mantenga il separatore backslash “\” prima di nomefileaccess
Lo script, in sostanza, crea un file nomefileaccess seguito dalla data nella forma gg-mm-aa seguita da ora e minuto (hh.mm) in cui la copia del DB è stata creata
Il codice che segue potrebbe essere copiato e incollato come funzione in un modulo e richiamato da un pulsante oppure, cose più semplice, direttamente incollato nel codice di un pulsante. Seguiremo questa strada.
1) Entrate in visualizzazione struttura sul form, create un pulsante e annullate la procedura guidata;
2) Inserite la descrizione sul pulsante;
3) tasto destro del mouse sul pulsante->proprietà. Vi si apre sulla destra la finestra delle proprietà
4) cliccate sulla linguetta “azioni” e, sulla riga “su click” cliccate sui puntini di sospensione che trovate a destra. Scegliete “generatore di codice”
5) a questo punto incollate il seguente codice:
Dim Source As String
Dim Target As String
Dim retval As Integer
Source = CurrentDb.Name
Target = "C:\backup\nomefileaccess_"
Target = Target & Format(Date, "dd-mm-yy") & "-"
Target = Target & Format(Time, "hh.mm") & ".mdb"
' create the backup
retval = 0
Dim objFSO As Object
Set objFSO = CreateObject("Scripting.FileSystemObject")
retval = objFSO.CopyFile(Source, Target, True)
Set objFSO = Nothing
MsgBox "OK, backup eseguito!", vbOKOnlyOra tornate in visualizzazione maschera, cliccate sul pulsante e… fatto!