Office: Access beim schließen 2 fach abspeichern

Ich ( bin Anfänger) habe mir eine Access Datenbank gebastelt und bin der einzige Nutzer (Kein Multiuser). Nun möchte ich beim Schließen das die Datenbank nicht nur abgespeichert wird, sondern mir auch unter einem festgelegten Pfad als Kopie abgespeichert wird. Die letzte "Sicherung" kann gerne überschreiben werden.
Das sollte doch per VBA oder Makro funktionieren.....
Bin aber wie gesagt noch Laie.....

 

Moin Grumpy,
Du kopierst Dir folgende Funktion in ein Modul und rufst es beim Beenden Deiner Datenbank auf

Code:

Option Compare Database
Option Explicit

Function Backuppen()
 Dim a As Long
 Dim objFSO As Object
 Dim QuellDB As String
 Dim ZielVerz As String
 Dim ZielDB As String
 Dim retval As Integer
   
    ZielVerz = "C:\Backups\"    'Zielverzeichnis

    For a = 4 To 1 Step -1      'umbenennen der Backups: Aus Backup1 wird Backup 2 usw.
        QuellDB = ZielVerz & "BackupDB" & a & ".accdb"

        ZielDB = ZielVerz & "BackupDB" & a + 1 & ".accdb"
        If Dir(QuellDB) <> "" Then FileCopy QuellDB, ZielDB
    Next a
                                'Aktuelle DB zu Backup 1
    QuellDB = CurrentDb.Name
    ZielDB = ZielVerz & "BackupDB1.accdb"
    retval = 0
    Set objFSO = CreateObject("Scripting.FileSystemObject")
    retval = objFSO.CopyFile(QuellDB, ZielDB, True)
    Set objFSO = Nothing

End Function

Im Gegensatz zu Deiner Anfrage macht diese Funktion 5 Backups, dann kannst Du auch ältere Versionen wiederfinden.
Gruß
Doming

 

Supi....das funktioniert schon mal.
Wie kann ich das in mein Navigationsformular einbinden, das ich per Klick auf einen Button das Modul ausführe ? Hab nur DoCmd.OpenModule gefunden, dann wird das aber nur geöffnet und nicht ausgeführt....
Oder beim Schließen der Datenbank das Modul automatisch ausführen lassen und dadurch einmal "ganz normal" abspeichern und gleichzeitig ein Backup erstellt wird....

 

naja, Du wirst doch sicherlich einen Befehl haben, der Deine DB schließt?
Oder behandelst Du Deine Datenbank mit Makro-Befehlen? Dann müsstest Du Dich schlau machen, wie man Funktionen aufruft.
Vielleicht müsstest Du in den Code aus Function Backuppen() Public Function Backuppen() machen, damit sie von überall aus aufgerufen werden kann.

 

Danke...funzt
Hab in ein Formular einen "Knopf" Datensicherung eingebaut und ruf da das Modul auf.
Die Originale DB schließe ich einfach über das X