Questo browser non è più supportato.
Esegui l'aggiornamento a Microsoft Edge per sfruttare i vantaggi di funzionalità più recenti, aggiornamenti della sicurezza e supporto tecnico.
![](data:image/svg+xml, %3Csvg xmlns='http://www.w3.org/2000/svg' height='64' class='font-weight-bold' style='font: 600 30.11764705882353px "SegoeUI", Arial' width='64'%3E%3Ccircle fill='hsl(128, 8%, 22%)' cx='32' cy='32' r='32' /%3E%3Ctext x='50%25' y='55%25' dominant-baseline='middle' text-anchor='middle' fill='%23FFF' %3EA%3C/text%3E%3C/svg%3E)
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
Una famiglia di sistemi di gestione per database relazionali di Microsoft progettati per semplificare l'uso.
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.
Ciao Francesco e grazie per la tua disponibilità.
Non so perché, ma mi sovrascrive sempre lo stesso file di backup
Temp_Database
Vladimiro
Per la data ed il nome puoi usare una form, ma perché ti devi complicare la vita? Non puoi usare i valori di sistema? Questo è il mio codice, sicuramente lo si potrà migliorare, ma per me funziona e quindi non perdo tempo a cercare "el fret per el lèt" come si diceva dalle mie parti...
Public Sub BackupBd()
On Error GoTo BackupBd_Err
DoCmd.Hourglass True
Dim fs, f As Object
Dim wNewFile As String
Dim wOldFile As String
Dim wBckFile As String
'Copie de la BD
Set fs = CreateObject("Scripting.FileSystemObject")
'Backup de l'application
wNewFile = CurrentProject.Path & "" & "Temp_" & CurrentProject.Name
wOldFile = CurrentProject.Path & "" & CurrentProject.Name
wBckFile = CurrentProject.Path & "\Backup" & "Backup_" & Date & "_" & Time & "_" & CurrentProject.Name
fs.CopyFile wOldFile, wNewFile
' Compactage
Application.CompactRepair LogFile:=True, SourceFile:=wNewFile, DestinationFile:=wBckFile
Kill (wNewFile)
GoTo NoBackendAccess (questa parte la saltavo quando avevo il backend su SQL Server. Naturalmente BE e FE devono essere nella stessa directory ed i nomi devono essere standard Pippo.accdb e Pippo_data.accdb)
'Backup des données
wNewFile = CurrentProject.Path & "" & "Temp_" & Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & "_data.accdb"
wOldFile = CurrentProject.Path & "" & Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & "_data.accdb"
wBckFile = CurrentProject.Path & "\Backup" & "Backup_" & Date & "_" & Time & "_" & Left(CurrentProject.Name, Len(CurrentProject.Name) - 6) & "_data.accdb"
fs.CopyFile wOldFile, wNewFile
' Compactage
Application.CompactRepair LogFile:=True, SourceFile:=wNewFile, DestinationFile:=wBckFile
Kill (wNewFile)
NoBackendAccess:
gMsg = "***** Backup terminé *****"
MsgBox gMsg, vbExclamation, Application.Name
BackupBd_Exit:
DoCmd.Hourglass False
Exit Sub
BackupBd_Err:
MsgErr Err.Number, Err.Description, "mMain", "BackupBd", Application.Name, vbCritical, "Erreur pendant le backup"
GoTo BackupBd_Exit
End Sub
In tal caso basta che aggiungi una msgbox con risposta.
Ciao Francesco,
si che c'è l'msgbox, ma come faccio ad inserire data e nome database?
Cioè, volendo usare il seguente codice (magari se mi fai vedere per intero come fai il backup tu, sarebbe meglio :-) ....)
Call CopyFile(CurrentProject.Path & "\Database.mdb", CurrentProject.Path & "\CopiaDatabase.mdb")
Come faccio ad aggiungere la data scritta in una finestra convenzionale a CopiaDatabase?
Vladimiro
In tal caso basta che aggiungi una msgbox con risposta.
Ciao Sandro, Francesco e Mimmo.
Sono riuscito a parlare con la persona interessata facendomi spiegare meglio la sua necessità.
Quello che gli serve è che alla chiusura del database gli venga richiesto se fare il Backup o meno.
Nel caso scegliesse di farlo, gli si dovrebbe aprire una finestra per poter scrivere la data ( che poi verrebbe aggiunta al nome del database salvato).
Vladimiro