Propriedade AllowBypassKey

Configuração

A propriedade AllowBypassKey usa as configurações a seguir.

Você pode definir essa propriedade usando macro ou código do Visual Basic for Applications (VBA).

Para definir a propriedade AllowBypassKey usando uma macro ou código do Visual Basic for Applications (VBA), você deve criar a propriedade das seguintes maneiras:

• Em um banco de dados do Microsoft Access (.mdb ou .accdb), você pode adicionar a propriedade usando o método CreateProperty e depois acrescentá-lo à coleção Properties do objeto Database.

• Em um projeto do Microsoft Access (.adp), você pode adicionar a propriedade à coleção AccessObjectProperties do objeto CurrentProject usando o método Add.

Comentários

Você deve verificar se a propriedade AllowBypassKey está definida como True quando depurar um aplicativo.

A configuração da propriedade AllowBypassKey não entrará em vigor até a próxima vez que o banco de dados do aplicativo for aberto.

Exemplo

O exemplo a seguir mostra um procedimento denominado SetBypassProperty que passa o nome da propriedade a ser definida, seu tipo de dados e a configuração. O procedimento de uso geral ChangeProperty tenta configurar a propriedade AllowBypassKey e, se ela não for encontrada, usa o método CreateProperty para acrescentar a propriedade à coleção Properties. Isso é necessário porque a propriedade AllowBypassKey não é exibida na coleção Propriedades até ter sido adicionada.

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