Thema Datum  Von Nutzer Rating
Antwort
Rot Anwendung schließen
19.12.2022 11:10:53 Marsi
NotSolved
21.12.2022 11:34:38 Gast99192
NotSolved
22.12.2022 10:21:45 Gast89316
NotSolved

Ansicht des Beitrags:
Von:
Marsi
Datum:
19.12.2022 11:10:53
Views:
92
Rating: Antwort:
  Ja
Thema:
Anwendung schließen

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


Ihre Antwort
  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen
Thema: Name: Email:

 
 

  • Bitte beschreiben Sie Ihr Problem möglichst ausführlich. (Wichtige Info z.B.: Office Version, Betriebssystem, Wo genau kommen Sie nicht weiter)
  • Bitte helfen Sie ebenfalls wenn Ihnen geholfen werden konnte und markieren Sie Ihre Anfrage als erledigt (Klick auf Häckchen)
  • Bei Crossposting, entsprechende Links auf andere Forenbeiträge beifügen / nachtragen
  • Codeschnipsel am besten über den Code-Button im Text-Editor einfügen
  • Die Angabe der Emailadresse ist freiwillig und wird nur verwendet, um Sie bei Antworten auf Ihren Beitrag zu benachrichtigen

Thema Datum  Von Nutzer Rating
Antwort
Rot Anwendung schließen
19.12.2022 11:10:53 Marsi
NotSolved
21.12.2022 11:34:38 Gast99192
NotSolved
22.12.2022 10:21:45 Gast89316
NotSolved