Laufzeitfehler 70 Zugriff verweigert in Access 2016
Hallo Gemeinde,
beim Öffnen meiner Access DB wird als erstes das Formular Hauptmenü geladen. Per VBA(Form_Open(Cancel As Integer)) wird dabei eine Sicherheitskopie erzeugt mit folgendem Code:
Seit neuestem wirft die letzte Zeile(oFSO.copyFile...) den im Betreff genannten Fehler aus. Es sieht so aus als wäre die Methode nicht mehr in der Lage die geöffnete Db zu kopieren. Ein PfadFehler(Leerzeichen, Wildcards, etc.) liegt nicht vor. Ein Test des Scripts mit einer anderen(nicht geöffneten) Datei funktioniert...
Kann mir jemand einen Tipp geben wie ich entweder den Fehler weg bekomme oder wie ich sonst eine Sicherheitskopie per VBA realisieren kann?
beim Öffnen meiner Access DB wird als erstes das Formular Hauptmenü geladen. Per VBA(Form_Open(Cancel As Integer)) wird dabei eine Sicherheitskopie erzeugt mit folgendem Code:
Dim Quelldatei, Zieldatei, oFSO As Variant
Zieldatei = "\\Pfad\Hardwareverwaltung" & Format(Now, "DDMMYYYY_HHMM") & ".sic"
Quelldatei = "\\AndererPfad\Hardwareverwaltung.accdb"
Set oFSO = CreateObject("Scripting.FileSystemObject")
oFSO.copyFile Quelldatei, Zieldatei, True
Seit neuestem wirft die letzte Zeile(oFSO.copyFile...) den im Betreff genannten Fehler aus. Es sieht so aus als wäre die Methode nicht mehr in der Lage die geöffnete Db zu kopieren. Ein PfadFehler(Leerzeichen, Wildcards, etc.) liegt nicht vor. Ein Test des Scripts mit einer anderen(nicht geöffneten) Datei funktioniert...
Kann mir jemand einen Tipp geben wie ich entweder den Fehler weg bekomme oder wie ich sonst eine Sicherheitskopie per VBA realisieren kann?
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 1709142927
Url: https://administrator.de/contentid/1709142927
Ausgedruckt am: 22.11.2024 um 08:11 Uhr
2 Kommentare
Neuester Kommentar