|
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
|