shift toets blokkeren

[iegje]

Eindelijk ben ik zover dat ik met de beveiliging van de database aan de gang kan.

Via dit draadje ben ik een heel eind gekomen. Maar bij het klikken op de knop geeft het de volgende melding Compileerfout: Syntaxisfout.

Het gaat mis bij de text van de MsgBox

Hoe krijg ik dit opgelost?

 

[OctaFish]

Door de fout er uit te slopen
Je bent een beetje vaag over waar het probleem zit, maar ik vermoed dat je één van deze drie msgboxen bedoelt, want er zitten in de code in het draadje inderdaad wat fouten:

    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 = "TypeYourBypassPasswordHere" 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 " & vbLf _
               & "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

Dit is uiteraard een verbeterde versie

 

[iegje]

super, nu werkt het wel

Wederom bedankt voor je hulp