Hallo liebe Experten,

ich habe hier ein VBA Code, wo man mittels über ein Button eine Abfrage starten kann.

Die Abfrage lässt sich nur starten, wenn keine 2. Abfrage mit demselben Namen vorhanden ist. Leider wird die Abfrage bei einigen Usern blockiert wenn keine Abfrage gestartet worden ist oder wenn es irgendwo im temporären Ordner liegt.

Wie kann ich das Problem lösen ?

Danke im voraus.

Liebe Güße, marsi

Private Sub Befehl74_Click()
On Error GoTo Err_Meldung
    
    Dim DocName As String
    DocName = "Liste Excel"
    
    DoCmd.OpenForm "Hinweis"
    DoCmd.OpenQuery "Liste", acViewNormal
    DoCmd.RunCommand acCmdOutputToExcel
    DoCmd.Close acForm, "Hinweis", acSaveYes
    DoCmd.Close acQuery, "Liste"
    CurrentDb.Execute "INSERT INTO tbl_Anzahl ( Buttonname, Datum ) SELECT '" & DocName & "', Now;", dbFailOnError

Exit_Befehl74_Click:
    Exit Sub

Err_Meldung:

   MsgBox "Eine Excel Datei mit dieser Abfrage ist noch offen. Bitte Datei abspeichern oder schließen. "
   DoCmd.Close acQuery, "Liste"
   DoCmd.Close acForm, "Hinweis", acSaveYes
   Resume Exit_Befehl74_Click

End Sub