Pode utilizar a propriedade PermitirTeclaIgnorar para especificar se a tecla Shift está ativada para ignorar as propriedades de arranque e a macro AutoExec. Por exemplo, pode definir a propriedade PermitirTeclaIgnorar como False para impedir que um utilizador ignore as propriedades de arranque e a macro AutoExec.
Definição
A propriedade PermitirTeclaIgnorar utiliza as seguintes definições.
|
Definição |
Descrição |
|
True |
Ative a tecla Shift para permitir ao utilizador ignorar as propriedades de arranque e a macro AutoExec. |
|
False |
Desative a tecla Shift para impedir o utilizador de ignorar as propriedades de arranque e a macro AutoExec. |
Pode definir esta propriedade com uma macro ou código VBA (Visual Basic for Applications).
Para definir a propriedade PermitirTeclaIgnorar com uma macro ou código VBA (Visual Basic for Applications), tem de criar a propriedade das seguintes formas:
-
Numa base de dados do Microsoft Access (.mdb ou .accdb), pode adicionar a propriedade com o método CreateProperty e, em seguida, acrescentá-la à coleção Properties do objeto Database.
-
Num projeto do Microsoft Access (.adp), é possível adicionar a propriedade à coleção PropriedadesDoObjetoDeAcesso do objeto ProjetoAtual utilizando o método Adicionar.
Observações
Deve garantir que a propriedade PermitirTeclaIgnorar está definida como True quando depurar uma aplicação.
A definição da propriedade PermitirTeclaIgnorar só será aplicada da próxima vez que a base de dados da aplicação for aberta.
Exemplo
O seguinte exemplo mostra um procedimento chamado SetBypassProperty que transmite o nome da propriedade a ser definida, o tipo de dados e a definição. O procedimento geral ChangeProperty tenta definir a propriedade PermitirTeclaIgnorar e, se a propriedade não for encontrada, utiliza o método CreateProperty para anexar a propriedade à coleção Properties. Isto é necessário porque a propriedade PermitirTeclaIgnorar não é apresentada na coleção Properties até ser 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
