Access Shift By Pass

[Chris]

Hi There, I am tring to create a Shift ByPass Key for my access database, but
getting error "Compile error: Expected end of statement". The code I managed
to find is:

Private Sub Command0_Click()
On Error GoTo Err_bDisableBypassKey_Click
'This ensures the user is the programmer needing to disable the Bypass Key
Dim strInput As String
Dim strMsg As String
Beep
strMsg = "Do you want to enable the Bypass Key?" & vbCrLf & vbLf & _
"Please key the programmer's password to enable the Bypass Key."
strInput = InputBox(Prompt:=strMsg, title:="Disable Bypass Key Password")
If strInput = "holiday" Then
SetProperties "AllowBypassKey", dbBoolean, True
Beep
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup &" _
Options the next time the database is opened.", _
vbInformation, "Set Startup Properties"
Else
Beep
SetProperties "AllowBypassKey", dbBoolean, False
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
"The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the & _
startup options the next time the database is opened.", _
vbCritical, "Invalid Password"
Exit Sub
End If
Exit_bDisableBypassKey_Click:
Exit Sub
Err_bDisableBypassKey_Click:
MsgBox "bDisableBypassKey_Click", Err.Number, Err.Description
Resume Exit_bDisableBypassKey_Click

End Sub


Can someone please advise?

Thanks in advance....

 

[Paolo]

Hi Chris,
change this
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _

"The Shift key will allow the users to bypass the startup &" _
Options the next time the database is opened.", _
vbInformation, "Set Startup Properties"

with this
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup " & _
& " Options the next time the database is opened.", _
vbInformation, "Set Startup Properties"
and this

MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
"The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the & _
startup options the next time the database is opened.", _
vbCritical, "Invalid Password"

with this
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
"The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the " & _
& "startup options the next time the database is opened.", _
vbCritical, "Invalid Password"
HTH Paolo

 

[RonaldoOneNil]

MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup &"
& _
"Options the next time the database is opened.", _
vbInformation, "Set Startup Properties"

MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
"The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the " & _
"startup options the next time the database is opened.", _
vbCritical, "Invalid Password"

 

[BOSS]

Thanks Guys, it works like a magic!!!

Hi Chris,
change this
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
with this
MsgBox "The Bypass Key has been enabled." & vbCrLf & vbLf & _
"The Shift key will allow the users to bypass the startup " & _
& " Options the next time the database is opened.", _
vbInformation, "Set Startup Properties"
and this
with this
MsgBox "Incorrect ''AllowBypassKey'' Password!" & vbCrLf & vbLf & _
"The Bypass Key was disabled." & vbCrLf & vbLf & _
"The Shift key will NOT allow the users to bypass the " & _
& "startup options the next time the database is opened.", _
vbCritical, "Invalid Password"
HTH Paolo