  Elite Veteran
  Beiträge: 922
       Ort: Wien | Hallo, Paula  
  
Paula - 27.02.24  
...  
Danke für den Hinweis. Hab den Tippfehler korrigiert.  
Leider hängt sich das Programm weiterhin auf.  
...  
   
Schwer zu sagen aus der Ferne, was bei dir passiert. Wir wissen ja nicht mal genau, wie sich "aufhängen" äußert. Vorher hattest du geschrieben, dass sich das aufrufende Formular schließt.  
  
Hast du schon mal versucht, eine fette Fehlerbehandlung einzubauen, um vielleicht eine aussagekräftige Fehlermeldung zu erhalten? Also z.B.  
  
Private Sub cmbBerichtauswahl_Click()  
  
On Error GoTo myError  
  
Select Case Me!cmbBerichtauswahl.ListIndex  
  
    Case 0  
        Me!cmbMitarbeiter.Value = ""  
        Me!cmbMitarbeiter.Visible = False  
        DoCmd.OpenReport "rptDienstplanabrechnungNachDatum", acViewReport  
    Case 1  
        Me!cmbMitarbeiter.Visible = False  
        DoCmd.OpenReport "rptDienstplanabrechnungNachMA", acViewReport  
    Case 2  
        Me!cmbMitarbeiter.Value = ""  
        Me!cmbMitarbeiter.Visible = False  
        DoCmd.OpenReport "rptEinsatzdauerProTagUndBD", acViewReport  
  
End Select  
  
myExit:  
    Exit Sub  
  
myError:  
    Select Case Err.Number  
  
        Case 2501 'Bericht ohne Daten abgebrochen  
            Resume Next  
  
        Case Else  
            MsgBox "Problemchen Nr. " & Err.Number & ". " & Err.Description  
            Resume myExit  
            Resume  
  
    End Select  
  
End Sub  
 ----- Servus  
Karl  
*********  
Access-Entwickler-Konferenz: https://www.donkarl.com/?aek  
Access DevCon Vienna: https://www.donkarl.com/devcon  
Access Forever: https://www.accessforever.org  
Access News: https://www.youtube.com/playlist?list=PLVCeBbJIMDvdJ8ghMbEakJ6_EQyvy... |