Hi richard,
I have entered the code for lesson 27 but it is not working. Can you help me figure out why? Here is the copy of the code I entered:
Private Sub DisableByPass_Click()
    
    On Error Resume Next
    Dim DB As DOA.Database
    Dim PR As DOA.Property
    Set DB = CurrentDb
    Set PR = DB.CreateProperty("AllowBypassKey", dbBoolean, False)
    DB.Properties.Append PR
    DB.Properties("AllowBypassKey") = False
    Set DB = Nothing
    MsgBox "ByPass Key Disabled"
    
    
End Sub

---

Reply from Richard Rost:

What's not working? Are you getting an error message? Does DEBUG stop on a particular line? What version of Access are you using?