Feste AktivitΣten beim ╓ffnen einer Datenbank umgehen

Ich habe bei einer Access-Datenbank mit dem Menⁿbefehl ╗Extras | Start½ eigene Menⁿleisten aktiviert und die eingebauten Symbolleisten unterdrⁿckt. Bei der Programmierung ist mir allerdings ein Fehler unterlaufen, und ich muss nun die Anwendung ⁿberarbeiten. Dabei habe ich das Problem, dass mir Access 2000 seine normalen Menⁿs und Symbolleisten nicht mehr anbietet. Wie kann ich das Σndern?

Es gibt mehrere Wege, automatische AktivitΣten beim ╓ffnen einer Access-2000-Datenbank festzulegen. Das spezielle Makro ╗Autoexec½ zwingt die Anwendung, verschiedene Aktionen durchzufⁿhren, und mit dem Menⁿbefehl ╗Extras | Start½ k÷nnen Sie diverse Optionen setzen, die das Starten Ihrer Datenbank steuern. Halten Sie beim ╓ffnen der Datenbank die [Umschalt]-Taste gedrⁿckt, wird das von Ihnen festgelegte Verhalten ignoriert. Hier handelt es sich um eine Sicherheitslⁿcke. Access bietet jedoch die M÷glichkeit, diese Lⁿcke mit einer VBA- Prozedur zu schlie▀en. Sie finden das Listing auf www.chip.de unter Web-Code Bypass. Function BypassEigenschaftEin stellen(varWert As Boolean) Dim objDatabase As Object Dim objPropertie As Object Const conEigenschaft NichtGefunden_Fehler = 3270 On Error GoTo Bypass EigenschaftEinstellen_Error Set objDatabase = CurrentDb bjDatabase.Properties (äAllowBypassKeyô) = varWert BypassEigenschaftEinstellen_Exi: Exit Function BypassEigenschaftEinstellen_ Error: If Err = conEigenschaft NichtGefunden_Fehler Then Set objPropertie = objDatabase.CreateProperty (äAllowBy passKeyô, dbBoolean, varWert) objDatabase.Properties.Append objPropertie Resume Next Else MsgBox Err.Description Resume Bypass t EigenschaftEinstellen_Exit End If End Function Wenn Sie nun die Funktion ╗Bypass EigenschaftEinstellen()½ aufrufen und dabei den Parameter ╗varWert½ mit ╗True½ belegen, verschlie▀en Sie die oben beschriebene Hintertⁿr. Setzen Sie den Wert wieder auf ╗False½, ist alles wieder wie vorher.