hipfzwirgel
Goto Top

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:

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?

Content-ID: 1709142927

Url: https://administrator.de/contentid/1709142927

Ausgedruckt am: 22.11.2024 um 08:11 Uhr

StefanKittel
Lösung StefanKittel 10.01.2022 um 17:14:57 Uhr
Goto Top
Hallo,

das wird vermutlich auf den Bug in den Access-Sicherheitsupdate zum Ende des Jahres zurückzuführen sein.
Dadurch wird jede Datei von einem Netzwerklaufwerk immer Exklusiv geöffnet.
Es gibt Patches dagegen, die aber bei meiner DB nicht geholfen haben.

Stefan
hipfzwirgel
Lösung hipfzwirgel 11.01.2022 um 10:59:45 Uhr
Goto Top
Hallo StefanKittel,

danke für deinen Kommentar. So etwas hatte ich vermutet, da ich diese Art "Technik"
der Sicherung schon seit über 10 Jahren benütze und immer super funktioniert hat.

Hätte jemand einen Workaround oder eine Idee wie ich sonst
eine Sicherung per VBA durchführen könnte?