Private Sub Knop53_Click()
Dim strInput As String, GetProp As Boolean, strResult As String
On Error GoTo Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key
GetProp = GetProperties("AllowByPassKey")
strResult = IIf(GetProp = True, "Uitschakelen", "Inschakelen")
strInput = InputBox("Wil je de Bypass Key " & strResult & "?" & vbCrLf & vbLf & "Typ het wachtwoord in om deBypass Key te activeren.")
If strInput = "ZeeburgEnOost" Then
GetProp = Not GetProp
strResult = IIf(GetProp = False, "Uitgeschakeld", "Ingeschakeld")
SetProperties "AllowBypassKey", dbBoolean, GetProp
Msgbox "De Bypass Key is " & strResult & "." & vbCrLf & vbLf _
& "Je kunt de Shift key de volgende keer gebruiken " & vbCrLf & vbLf _
& "om het database venster te openen.", vbInformation, "Set Startup Properties"
Else
SetProperties "AllowBypassKey", dbBoolean, False
Msgbox "Verkeerd ''AllowBypassKey'' wachtwoord!" & vbCrLf & vbLf & _
"De Bypass Key is uitgeschakeld." & vbCrLf & vbLf & _
"De Shift key kan niet gebruikt worden om de opstart procedure" & _
"te omzeilen bij het starten van de database.", vbCritical, "Invalid Password"
Exit Sub
End If
Exit Sub
Err_bDisableBypassKey_Click:
Msgbox "bDisableBypassKey_Click", Err.Number, Err.Description
End Sub