www.Office2010-Hilfe.de • Thema anzeigen - RibbonCreator und With-Block-Variable

J.Picard · von **J.Picard** » Di 23. Aug 2011, 08:33

Deine Office 2010 Suite: Standard
Add Ins und/oder Zusatz-Programme installiert: Nein
Version: 32bit

Betriebssystem Version: Windows XP
Welches Virenschutz-Programm hast Du installiert? McAfee Business

Was hast Du gemacht, bevor das Problem aufgetreten ist?

Was hast Du bereits versucht um das Problem zu lösen?

Fehlerbeschreibung und Nachricht
Also nachdem ich mit dem Ribboncreator 2010 mein Ribbon erzeugt habe und die Callbacks bearbeitet habe, konnte ich erfolgreich mein erstes Ribbon mein eigen nennen.

Eines jeodch stört mich ungemein.

Immer dann wenn ich im VBA Code Änderungen mache, die evtl. im ersten Anlauf zu einer Fehlermeldung führen erscheint, danach auch immer die Fehlermeldung
Laufzeitfehler 91
Objektvariable oder With-Blockvariable nicht festgelegt.

Wenn ich dann auf debuggen gehe, springt er in der Form im Ereignis Unload auf die folgende Zeile:
gobjRibbon.InvalidateControl "tab4" 'Ribbon aktualisieren

Wie kann ich das abstellen, da dies bei allen Formularen so geschieht, wenn ein Fehler auftritt?
Denn nur die das gesamte Schließen der DB kann ich den Fehler ausschalten.

Gunter Avenius · von **Gunter Avenius** » Di 23. Aug 2011, 09:04

Hallo,

das ist das normales Verhalten von Access.
Gebe jeder Prozedur / Funktion eine Fehlerbehandlung.

J.Picard · von **J.Picard** » Di 23. Aug 2011, 09:16

Danke für die schnelle Antwort, aber hast Du ein kurzes Beispiel?

Gunter Avenius · von **Gunter Avenius** » Di 23. Aug 2011, 09:23

Hallo

Beispiel für eine Fehlerbehandlung die Du jeder Sub/Function (so oder ähnlich) hinzugeben solltest:

Code: Alles auswählen: Function fnc_FunctionName() As Boolean Dim strProcName As String strProcName = "fnc_FunctionName" On Error GoTo fnc_FunctionName_Err ' Hier Dein schlauer Code der auch ein Fehler produzieren kann fnc_FunctionName_Exit: Exit Function fnc_FunctionName_Err: Select Case Err 'Case DeineFehlernummer 'Resume fnc_FunctionName_Exit Case Else MsgBox "Es ist ein Fehler aufgetreten." & vbCrLf & vbCrLf & _ "In Function:" & vbTab & strProcName & vbCrLf & _ "Fehlernummer: " & vbTab & Err.Number & vbCrLf & _ "Beschreibung: " & vbTab & Err.Description, vbCritical, _ "Fehler in " & Chr$(34) & strProcName & Chr$(34) Resume fnc_FunctionName_Exit End Select End Function

J.Picard · von **J.Picard** » Di 23. Aug 2011, 10:07

Ach so,

ich hatte gerade an was anderes gedacht.

Danke, habe ich natürlich nicht in allen Lagen eingebaut, werde das aber nachholen!

RibbonCreator und With-Block-Variable

Re: RibbonCreator und With-Block-Variable

Re: RibbonCreator und With-Block-Variable

Re: RibbonCreator und With-Block-Variable

Re: RibbonCreator und With-Block-Variable

Wer ist online?

Optionen