Hallo Leute,
hab ein Problem, hoffe ihr habt eine Idee was mir da helfen kann.
Folgendes:
Ich habe ein selbst erstellten Ribbon mit 3 Tabs.
Beim Wechsel in einen anderen Tab möchte ich gerne ein anderen Formular geöffnet bekommen, und die anderen schließen.
Das passiert mit diesem Code
Sub GetLabel(control As IRibbonControl, ByRef label)
On Error GoTo Fehlerbehandlung
Select Case control.id
Case "lblErstellenLabel"
Formulare_schliessen ("frmErstellen")
DoCmd.OpenForm "frmErstellen"
Case "lblSucheLabel"
Formulare_schliessen ("frmFind_Sub")
DoCmd.OpenForm "frmFind_Sub"
Case "lblUebersichtLabel"
Formulare_schliessen ("frmInformation")
DoCmd.OpenReport "repUebersicht", acViewPreview
Case Else
End Select
gobjRibbon.Invalidate
Exit Sub
Fehlerbehandlung:
MsgBox Err.Number & vbCrLf & Err.description
End Sub
Jetzt kommt das Problem zum tragen, sobald ich 2-3x den Tab wechsel, stürzt Access ab. "Microsoft Access funktioniert nicht mehr..."
Kann es dann nur beenden und das wars.
Ich habe einiges getestet und bin zu dem Punkt gekommen, dass die Abstürze was mit dem Formular öffnen zu tun haben müssen.
Wenn ich den kompletten Code entferne, kommt kein Fehler, dass gleiche wenn ich den Code zum Docmd.openForm ausklammere.
Sobald DoCmd.openForm drin ist stürzt es ab.
PS: bei einem Tab ist es DoCmd.openReport, auch da stürzt es ab.
PPS: Habe schon DoEvents hinter jedem Codebefehl gepackt, hilft nichts.
PPPS: Aus Spaß mal nur msgbox "test" als Code für den Tabwechsel genommen, klappt ohne Probleme.
PPPPS: Auf einen Tabwechsel reagiert nur der GetLabel Callback, daher ist der Code in diesem Block. Quelle: http://www.access-im-unternehmen.de/660.0.html (http://www.access-im-unternehmen.de/660.0.html)
Einer ne Idee warum?
[edit]
hab jetzt mal die Beispieldatei aus dem Link probiert.....da stürzt es auch ab..... toll......