Thanks Guys, it works like a magic!!!
"Paolo" wrote:
> 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
>
> "Chris" wrote:
>
> > 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....
> >
|
Similar Threads
