Hallo,
gibt es irgendwie die Möglichkeit, dass eine Access-Datei automatisch jede Woche von sich selbst ein Backup macht ??
Wenn es nur mit Makro möglich wäre, wie würde der Code ungefähr aussehen ??
Danke und Gruß, Pet
So etwas löst man am besten ausserhalb von Access (Zeitplandienst, Backup-Programm usw.)
Gruß aus dem Norden
Reinhard Kraasch
(http://www.dbwiki.de - das Datenbank-Wiki)
Hallo,
das kann man schon machen aber nicht mit einem Makro, da braucht man schon eine kleine Prozedur.
Ich gebe dir mal ein Beispiel aus einer Anwendung von mir, ist etwas komplizierter, da es sich hier um eine Fontend-Backendloesung handelt bei der die Verknuefungen zu den Datentabellen dynamisch ueber einen Registrykey gesetzt werden.
Die Funktion wird bei mir ueber einen Knopf durch den Anwender aufgerufen. Koennte man aber auch automatisch machen, indem man in einer Tabelle das letzte Datum eine Sicherung abstellt dann beim Oeffene oder schliessen eines Formulars dieses ueberprueft.
Hope this helps
Peter
=====================================================================
Public Function BackupDatabaseFile(OpenFormName As String, Optional showMsgBox As Boolean = True)
’ VBA-Codekommentar- und Fehlerhandler-Add-In hat einen Codeheader eingefügt
'=============================================================
’ Zweck
’ Autor : Peter Kuehner, Samstag, 10. Januar 2004
’ Hinweise :
'-------------------------------------------------------------
’ Parameter: OpenFormName: Formular das die Funk. aufruft
’ showMsgBox: MsgBox fuer „Fertig“ Meldung amzeigen
'-------------------------------------------------------------
’ Rückgaben:
'-------------------------------------------------------------
’ Revisionsverlauf
’ Samstag, 10. Januar 2004 PK:
'=============================================================
On Error GoTo HandleErr
’ Ende des Codeheaderblocks
Dim dirStr As String
Dim strPos As Integer
Dim sourceFileName As String
Dim db As Database
Dim tblDef As TableDef
Dim tmpSTring As String
If Not IsNull(OpenFormName) And Not OpenFormName = „“ Then
DoCmd.Close acForm, OpenFormName, acSaveYes
’ Aufrufendes Formular schliessen
End If
Set db = CurrentDb
Set tblDef = db.TableDefs(„Tools“)
tmpSTring = tblDef.Connect
’ eine Verknuepfung hernehmen , in tblDef.Connect steht der Pfad drin
Set tblDef = Nothing
Set db = Nothing
strPos = InStr(1, tmpSTring, „Database=“)
tmpSTring = Right(tmpSTring, Len(tmpSTring) - Len(„database=“) - strPos + 1)
'String Datenbankverknuepfung isolieren
sourceFileName = tmpSTring
’ Den Pfad isolieren und mit einem Unterverzeichnis versehen
’ DB_BACKUP_DIRNAME is global definiert
dirStr = FileSystem.Dir(tmpSTring, vbDirectory)
strPos = InStr(1, tmpSTring, dirStr)
If strPos