Mithilfe der AllowBypassKey-Eigenschaft können Sie angeben, ob die UMSCHALTTASTE zum Umgehen der Starteigenschaften und des AutoExec-Makros aktiviert wird. Sie können die AllowBypassKey-Eigenschaft beispielsweise auf False festlegen, um zu verhindern, dass ein Benutzer die Starteigenschaften und das AutoExec-Makro umgeht.
Einstellung
Die AllowBypassKey-Eigenschaft verwendet die folgenden Einstellungen.
Einstellung |
Beschreibung |
True |
Aktiviert die UMSCHALTTASTE, sodass Benutzer die Starteigenschaften und das AutoExec-Makro umgehen können. |
False |
Deaktiviert die UMSCHALTTASTE, sodass Benutzer die Starteigenschaften und das AutoExec-Makro nicht umgehen können. |
Sie können diese Eigenschaft mit einem Makro oder mit VBA-Code (Visual Basic for Applications) festlegen.
Wenn Sie die AllowBypassKey-Eigenschaft mit einem Makro oder mit VBA-Code (Visual Basic for Applications) festlegen möchten, müssen Sie die Eigenschaft folgendermaßen erstellen:
-
In einer Microsoft Access-Datenbank (MDB oder ACCDB) können Sie die Eigenschaft mithilfe der CreateProperty-Methode hinzufügen und dann der Properties-Auflistung des Database-Objekts anfügen.
-
In einem Microsoft Access-Projekt (ADP) können Sie die Eigenschaft mithilfe der Add-Methode der AccessObjectProperties-Auflistung des CurrentProject-Objekts hinzufügen.
Hinweise
Stellen Sie sicher, dass die AllowBypassKey -Eigenschaft auf True festgelegt ist, wenn Sie eine Anwendung debuggen.
Die Einstellung der AllowBypassKey-Eigenschaft wird erst beim nächsten Öffnen der Anwendungsdatenbank wirksam.
Beispiel
Im folgenden Beispiel wird eine Prozedur namens SetBypassProperty gezeigt, die den Namen der festzulegenden Eigenschaft, deren Datentyp und die Einstellung übergibt. Das allgemeine Verfahren ChangeProperty versucht, die AllowBypassKey-Eigenschaft festzulegen, und wenn die Eigenschaft nicht gefunden wird, verwendet es die CreateProperty-Methode, um die Eigenschaft an die Properties-Auflistung anzufügen. Dies ist erforderlich, da die AllowBypassKey-Eigenschaft erst nach dem Hinzufügen in der Properties-Auflistung angezeigt wird.
Sub SetBypassProperty()
Const DB_Boolean As Long = 1
ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
varPropType As Variant, _
varPropValue As Variant) As Integer
Dim dbs As Object, prp As Variant
Const conPropNotFoundError = 3270
Set dbs = CurrentDb
On Error GoTo Change_Err
dbs.Properties(strPropName) = varPropValue
ChangeProperty = True
Change_Bye:
Exit Function
Change_Err:
If Err = conPropNotFoundError Then ' Property not found.
Set prp = dbs.CreateProperty(strPropName, _
varPropType, varPropValue)
dbs.Properties.Append prp
Resume Next
Else
' Unknown error.
ChangeProperty = False
Resume Change_Bye
End If
End Function