Proprietà AllowBypassKey

Impostazione

La proprietà AllowBypassKey usa le impostazioni seguenti.

È possibile impostare questa proprietà usando una macro o il codice di Visual Basic, Applications Edition (VBA).

Per impostare la proprietà AllowBypassKey usando una macro o il codice di Visual Basic, Applications Edition (VBA), è necessario creare la proprietà nei modi seguenti:

• In un database di Microsoft Access (con estensione mdb o accdb) è possibile aggiungere questa proprietà usando il metodo CreateProperty e quindi accodandola alla raccolta Properties dell'oggetto Database.

• In un progetto di Microsoft Access (con estensione adp) è possibile aggiungerla alla raccolta AccessObjectProperties dell'oggetto CurrentProject tramite il metodo Add.

Osservazioni

Durante il debug di un'applicazione, occorre accertarsi che la proprietà AllowBypassKey sia impostata su True.

L'impostazione della proprietà AllowBypassKey viene applicata solo alla successiva apertura del database dell'applicazione.

Esempio

L'esempio seguente illustra una routine denominata SetBypassProperty che passa il nome della proprietà da impostare, il tipo di dati e l'impostazione. La routine di tipo generico ChangeProperty cerca di impostare la proprietà AllowBypassKey e quindi, se la proprietà non viene trovata, usa il metodo CreateProperty per accodarla alla raccolta Properties. Questo è necessario perché la proprietà AllowBypassKey non compare nella raccolta Properties finché non viene effettivamente aggiunta.

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