Propriedade PermitirTeclaIgnorar

Definição

A propriedade PermitirTeclaIgnorar utiliza as seguintes definições.

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