Propriedade PermitirTeclaIgnorar

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

Verdadeiro

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
Aumente os seus conhecimentos do Office
Explore as formações
Seja o primeiro a obter novas funcionalidades
Adira ao Office Insider

As informações foram úteis?

Obrigado pelos seus comentários!

Obrigado pelo seu feedback! Parece que poderá ser benéfico reencaminhá-lo para um dos nossos agentes de suporte do Office.

×