Office: Datensicherung mit Progressbar

Hi,

danke danke. Das funktioniert ja bestens.

Das Problem was ich habe ist wie kann ich die denn in meine DB einbauen.

Ich rufe eine Function auf, diese Funktion macht mir dann eine kopie meiner DB.

Diesen schritt habe ich erstzt durch deine Function.

Ja, ich wies jetzt garnicht wie ich dir das jetzt erklären soll.

MacToolz

 

Hi,

dies ist mein Funtionsaufruf aus einem Formular bei Click

Public Function DB_Sicher_Tag()

Dim DBPfadBackupAktuell As String, DBPfad As String, BackupPfad As String, _
dbName As String, objFso As Scripting.FileSystemObject, Quelldatei As String, _
Zieldatei As String, JetztVar As String

Set objFso = CreateObject("Scripting.FileSystemObject")

NetzwerkAktuell = "c:\"
AktuellerDBPfad = "c:\"

If NetzwerkAktuell = AktuellerDBPfad Then
DBPfadBackupAktuell = (RheinEnergieNetzwerkpfad & "Backup\" & "Stationsdatenbank" & "_" & Format(Date) & ".mdb")
DateiVorhandenTag = FileExist(DBPfadBackupAktuell)

DateiVorhandenTag = "WAHR"

If DateiVorhandenTag = "WAHR" Then
If (MsgBox("Die Aktuelle Datei vom " & (Dir$(DBPfadBackupAktuell)) & " ist schon vorhanden." & vbCrLf & _
"" & vbCrLf & _
"Möchten Sie diese Datei überschreiben. ???", 292, "Achtung !!!") > 6) Then
Exit Function
Else
'SetAttr DBPfadBackupAktuell, vbNormal ' Zum überschreiben muss das Attribut auf Normal gesetzt werden

' Diese Datenbank kopieren:
Quelldatei = CurrentDb.Name
DBPfad = Left(Quelldatei, Len(Quelldatei) - Len(Dir(Quelldatei)))
BackupPfad = DBPfad & "Backup\"
dbName = Mid(Quelldatei, InStrRev(Quelldatei, "\") + 1)
dbName = Left(dbName, InStr(dbName, ".") - 1)

On Error Resume Next
objFso.CreateFolder BackupPfad
On Error GoTo 0

' Aktuelles Datum und Zeit in Backup
JetztVar = Format(Date) '(Genaue Zeit); oder nur Datum: Format(Date, "yyyymmdd")
Zieldatei = BackupPfad & dbName & "_" & JetztVar & ".mdb" 'oder wohin auch immer

' und jetzt kopieren:
'objFso.CopyFile Quelldatei, Zieldatei, True
'SetAttr Zieldatei, vbReadOnly
'Set objFso = Nothing

MsgBox "Die Sicherheitskopie für den Tag wurde unter " & vbCrLf & _
Zieldatei & " angelegt." & vbCrLf & _
"Diese Datei ist schreibgeschützt. Sie können in dieser Datei keine Änderungen vornehemn.!", 64, "Backupinformation !!!"
End If
End If
Else
MsgBox "Sie könne kein Backup durchführen da die DB sich nicht auf dem Netzwerkpfad" & vbCrLf & _
"" & vbCrLf & _
"" & NetzwerkAktuell & "Backup\" & vbCrLf & _
"" & vbCrLf & _
"befindet.", 64, "Achtung !!!"
End If

 

Hi,

also meine Frage wäre, wie könnte ich denn jetzt egal wo diesen Code verwenden, vorallem aus einer Funtion heraus

MacToolz

 

Also wenn du diesen Code da selbst geschrieben hast, dann kannst du doch genügend VBA, um das Beispiel in meiner DB zu übertragen, oder?
Einfacher als im Formular der Demo-DB geht's doch kaum. Das Kopieren besteht aus gerade 4 Zeilen; daneben noch die Ereignisprozedur für den Fortschritt.
Statt dem FileSystemObjekt benutzt du halt die Klasse CCopyFile, die du in deine DB kopierst. Was soll ich da noch erklären?

Ciao, Sascha

 

Hi,

der Code ist zwar von mir aber da habe ich auch etwas länger für gebraucht, lerne gerade noch.

Mein Problem ist das du ja auf ein Steuerelement zugreifst, was sich bei dir R0,R1 nennt.

Ich mus ja nachher wie du sagst die Klasse gebrauchen, wenn ich das richtig sehe würde das ja dann so aussehen ccopyfile(quelle,ziel), richtig.

Nur was dann ???


MacToolz