Starter funktioniert nicht mehr, ohne dass sich erkennbar was geändert hat

[Carl]

Ich habe mal eine Frage,

ich lade ein Frontend mit einem Starter (loader) mit folgendem Code:

Code: [Auswählen]

Private Sub Form_Current()
   On Error GoTo ErrorLabel
FileCopy "S:\Datenbanken\autorentool\AutorentoolFrontend.accdb", Application.CurrentProject.Path & "\AutorentoolFrontend.accdb"
'Shell SysCmd(acSysCmdAccessDir) & "Frontend.accdb", vbNormalFocus
Shell SysCmd(acSysCmdAccessDir) & "MSaccess.exe """ & CurrentProject.Path & "\AutorentoolFrontend.accdb""", vbNormalFocus
DoCmd.Quit

ExitProzedere:
   'fals es etwas aufzuräumen gibt
   Exit Sub
ErrorLabel:
   Select Case Err.Number
      Case 76:
         MsgBox "Das Laufwerk S:/ ist von hier aus nicht ausreichend sichtbar. Bitte wenden Sie sich an den Admin."
      Case 75:
         MsgBox "Das Laufwerk S:/ ist von hier aus nicht ausreichend sichtbar. Bitte wenden Sie sich an den Admin."
      Case Else 'unbekannte Fehler
         MsgBox Err.Description
   End Select
   Resume ExitProzedere
End Sub

Das klappte immer hervorragend. Aber seit einigen Tagen kommt beim Laden mit dem Loader die Meldung: "Zugriff verweigert".

Aber:
* obwohl die Rechte für das Laufwerk S: sind weiterhin vorhanden, das Laufwerk und alle Dateien sind sichtbar und
* das eigentliche Frontend funktioniert völlig fehlerfrei

Welche Fehlerquellen kommen Eurer Meinung nach prinzipiell infrage?

Carl

---------------------

Habs selbst gefunden, die Herkunftsdatei war noch als geöffnet geführt und konnte nicht kopiert werden.

trotzdem danke
:-)

Carl

[Lachtaube]

Kommentiere die erste Zeile aus und stelle fest, welche Zeile den Fehler ausgelöst und wie die Fehlernummer lautet.

Für mögliche Ursachen siehe auch You receive an "Access denied" error message, and the program unexpectedly quits when you try to open or save a file in an Office program