AllowBypassKey (propiedad)

Configuración

En la propiedad AllowBypassKey se usan los valores siguientes.

Puede establecer esta propiedad mediante una macro o código de Visual Basic para Aplicaciones (VBA).

Para establecer la propiedad AllowBypassKey mediante una macro o código de Visual Basic para Aplicaciones (VBA), debe crear la propiedad de las siguientes maneras:

• En una base de datos de Microsoft Access (.mdb o .accdb), puede agregar la propiedad con el método CreateProperty y, luego, anexarla a la colección Properties del objeto Database.

• En un proyecto de Microsoft Access (.adp), puede agregar la propiedad a la colección AccessObjectPropertiesdel objeto CurrentProject a través del método Add.

Observaciones

Asegúrese de que la propiedad AllowBypassKey se establece en True al depurar una aplicación.

El valor de la propiedad AllowBypassKey no se aplica hasta que se abre nuevamente la base de datos de la aplicación.

Ejemplo

En el ejemplo siguiente se muestra un procedimiento denominado SetBypassProperty que pasa el nombre de la propiedad que se va a establecer, el tipo de datos y la configuración. El procedimiento de propósito general ChangeProperty intenta establecer la propiedad AllowBypassKey y, si no la encuentra, usa el método CreateProperty para anexar la propiedad a la colección Properties. Esto es necesario porque la propiedad AllowBypassKey no aparece en la colección Properties hasta que se ha agregado.

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