U kunt de eigenschap AllowBypassKey gebruiken om op te geven of de SHIFT-toets is ingeschakeld om de opstarteigenschappen en de macro AutoExec te omzeilen. U kunt bijvoorbeeld instellen de AllowBypassKey eigenschap ONWAAR om te voorkomen dat een gebruiker de opstartopties en de AutoExec-macro over te slaan.
Instelling
De eigenschap AllowBypassKey gebruikt de volgende instellingen.
|
Instelling |
Beschrijving |
|
True |
De Shift-toets inschakelen zodat de gebruiker de opstartopties en de macro AutoExec kan overslaan. |
|
False |
De Shift-toets uitschakelen zodat de gebruiker de opstartopties en de macro AutoExec niet kan overslaan. |
U kunt deze eigenschap instellen met een macro of VBA-code (Visual Basic for Applications).
Als u de eigenschap AllowBypassKey wilt instellen met een macro of VBA-code (Visual Basic for Applications), moet u de eigenschap op de volgende manier maken:
-
U kunt in een Microsoft Access-database (.mdb of .accdb) de eigenschap toevoegen met de methode CreateProperty en deze vervolgens toevoegen aan de verzameling Properties van het object Database.
-
U kunt in een Microsoft Access-project (.ADP) de eigenschap toevoegen aan de collectie AccessObjectProperties van het object CurrentProject door de methode Add te gebruiken.
Opmerkingen
U moet ervoor zorgen dat de eigenschap AllowBypassKey is ingesteld op Waar wanneer u fouten opspoort in een toepassing.
De instelling van de eigenschap AllowBypassKey wordt pas doorgevoerd wanneer de databasetoepassing de volgende keer wordt geopend.
Voorbeeld
In het volgende voorbeeld ziet u een procedure met de naam SetBypassProperty die de naam, het gegevenstype en de instelling van de eigenschap om in te stellen, doorgeeft. De algemene procedure ChangeProperty probeert de eigenschap AllowBypassKey in te stellen en als de eigenschap niet kan worden gevonden, wordt de methode CreateProperty gebruikt om de eigenschap toe te voegen aan de verzameling Properties. Dit is nodig omdat de eigenschap AllowBypassKey niet wordt weergegeven in de verzameling Eigenschappen totdat deze is toegevoegd.
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
