Elite Veteran
Beiträge: 876
  
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... |
Ereignis NoData und dann?