Puede usar la propiedad AllowBypassKey para especificar si la tecla MAYÚS está activada para omitir las propiedades de inicio y la macro AutoExec. Por ejemplo, puede establecer la propiedad AllowBypassKey en False para impedir que los usuarios omitan las propiedades de inicio y la macro AutoExec.
Configuración
En la propiedad AllowBypassKey se usan los valores siguientes.
Configuración |
Descripción |
True |
Habilita la tecla MAYÚS para permitir que el usuario omita las propiedades de inicio o la macro AutoExec. |
False |
Deshabilita la tecla MAYÚS para evitar que el usuario omita las propiedades de inicio o la macro AutoExec. |
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