Propriedade AllowBypassKey

Você pode usar a propriedade AllowBypassKey para especificar se a tecla SHIFT está habilitado para ignorar as propriedades de inicialização e a macro AutoExec. Por exemplo, você pode definir a propriedade AllowBypassKey como False para impedir que um usuário ignore a macro AutoExec e as propriedades de inicialização.

Configuração

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

Configuração

Descrição

True

Habilita a tecla SHIFT para permitir que o usuário ignore as propriedades de inicialização e a macro AutoExec.

False

Desabilita a tecla SHIFT para impedir que o usuário ignore as propriedades de inicialização e a macro AutoExec.


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
Expanda suas habilidades no Office
Explore o treinamento
Obtenha novos recursos primeiro
Ingressar no Office Insider

Essas informações foram úteis?

Obrigado por seus comentários!

Agradecemos pelos seus comentários! Parece que pode ser útil conectar você a um de nossos agentes de suporte do Office.

×