Menübutton ausblenden

18/06/2009 - 12:43 von Hubert Holler | Report spam
Ich verwende folgenden Code um einen Menübutton in einer Access2000 mde
auszublenden.
Den Code rufe ich über ein Makro autoexec auf.

Der Code funktioniert auch einwandfrei.
Nur nach ca. 6 Monaten passiert es immer, dass der Code dann nicht mehr
ausgeführt werden kann und ich die Makrofehlemeldung bekomme und das Makro
dann gestoppt wird.

Hoffe da kann mir jemand weiterhelfen, wo da der Fehler liegen könnte.
Vielen Dank für jede Antwort

Code

Public Function stammdaten_aus()
Dim foundflag As Boolean
Dim delbars As Integer
Dim cbarButton As Object

If pruefen() = False Then
Set cbarButton =
CommandBars("Arztmenue").Controls("Stammdaten").CommandBar.Controls("Arztanschrift")
cbarButton.Visible = False ' zum Verstecken
'oder
'cbarButton.Enabled = False ' zum Deaktivieren
Else
Set cbarButton =
CommandBars("Arztmenue").Controls("Stammdaten").CommandBar.Controls("Arztanschrift")
cbarButton.Visible = True ' zum erscheinen
End If
 

Lesen sie die antworten

#1 Peter Doering
18/06/2009 - 13:45 | Warnen spam
Hallo,

Hubert Holler wrote:

Ich verwende folgenden Code um einen Menübutton in einer Access2000 mde
auszublenden.
Den Code rufe ich über ein Makro autoexec auf.

Der Code funktioniert auch einwandfrei.
Nur nach ca. 6 Monaten passiert es immer, dass der Code dann nicht mehr
ausgeführt werden kann und ich die Makrofehlemeldung bekomme und das Makro
dann gestoppt wird.



Wie geht es danach weiter? Beim naechsten Oeffnen ist wieder alles gut oder
musst du etwas machen?

Hoffe da kann mir jemand weiterhelfen, wo da der Fehler liegen könnte.



Ich wuerde eine Fehlerbehandlung einbauen, damit wenigstens klar wird, was
passiert.

Code

Public Function stammdaten_aus()
Dim foundflag As Boolean
Dim delbars As Integer
Dim cbarButton As Object



On Error Goto g_stammdaten_aus_Error

If pruefen() = False Then
Set cbarButton =
CommandBars("Arztmenue").Controls("Stammdaten").CommandBar.Controls("Arztanschrift")
cbarButton.Visible = False ' zum Verstecken
'oder
'cbarButton.Enabled = False ' zum Deaktivieren
Else
Set cbarButton =
CommandBars("Arztmenue").Controls("Stammdaten").CommandBar.Controls("Arztanschrift")
cbarButton.Visible = True ' zum erscheinen



g_stammdaten_aus_Exit:

Exit Sub
g_stammdaten_aus_Error:
MsgBox Err.Description
Resume g_stammdaten_aus_Exit

End If



Gruss - Peter

Mitglied im http://www.dbdev.org
FAQ: http://www.donkarl.com

Ähnliche fragen