AllowBypassKey Property

Setting

The AllowBypassKey property uses the following settings.

You can set this property by using a macro or Visual Basic for Applications (VBA) code.

To set the AllowBypassKey property by using a macro or Visual Basic for Applications (VBA) code, you must create the property in the following ways:

• In a Microsoft Access database (.mdb or .accdb), you can add the property by using the CreateProperty method and then appending it to the Properties collection of the Database object.

• In a Microsoft Access project (.adp), you can add the property to the AccessObjectProperties collection of the CurrentProject object by using the Add method.

Remarks

You should make sure the AllowBypassKey property is set to True when you debug an application.

The AllowBypassKey property's setting doesn't take effect until the next time the application database opens.

Example

The following example shows a procedure named SetBypassProperty that passes the name of the property to be set, its data type, and the setting. The general purpose procedure ChangeProperty attempts to set the AllowBypassKey property and, if the property isn't found, uses the CreateProperty method to append the property to the Properties collection. This is necessary because the AllowBypassKey property doesn't appear in the Properties collection until it has been added.

Sub SetBypassProperty()
Const DB_Boolean As Long = 1
    ChangeProperty "AllowBypassKey", DB_Boolean, False
End Sub
Function ChangeProperty(strPropName As String, _
    varPropType As Variant, _
    varPropValue As Variant) As Integer
    Dim dbs As Object, prp As Variant
    Const conPropNotFoundError = 3270
    Set dbs = CurrentDb
    On Error GoTo Change_Err
    dbs.Properties(strPropName) = varPropValue
    ChangeProperty = True
Change_Bye:
    Exit Function
Change_Err:
    If Err = conPropNotFoundError Then ' Property not found.
        Set prp = dbs.CreateProperty(strPropName, _
            varPropType, varPropValue)
        dbs.Properties.Append prp
        Resume Next
    Else
        ' Unknown error.
        ChangeProperty = False
        Resume Change_Bye
    End If
End Function