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 BypassEigenschaftEinstellen(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 EigenschaftEinstellen_Exit
   End If
End Function