AllowBypassKey-egenskapen

Innstilling

Egenskapen AllowBypassKey bruker følgende innstillinger.

Du kan angi denne egenskapen ved hjelp av makro eller Visual Basic for Applications (VBA)-koden.

Hvis du vil angi egenskapen AllowBypassKey ved hjelp av en makro eller Visual Basic for Applications (VBA)-koden, må du opprette egenskapen på følgende måter:

• I en Microsoft Access-database (.mdb eller .accdb) kan du legge til egenskapen ved hjelp av metoden CreateProperty og deretter tilføye den i samlingen Egenskaper i objektet Database.

• I et Microsoft Access-prosjekt (ADP) kan du legge til egenskapen i samlingen AccessObjectProperties i objektet CurrentProject ved hjelp av metoden Add.

Merknader

Påse at egenskapen AllowBypassKey er satt til True når du feilsøker et program.

Egenskapsinnstillingen for AllowBypassKey trer ikke i kraft før neste gang programdatabasen åpnes.

Eksempel

Følgende eksempel viser en prosedyre kalt SetBypassProperty som sender navnet på egenskapen som skal angis, datatypen og innstillingen. Den generelle prosedyren ChangeProperty prøver å angi egenskapen AllowBypassKey , og hvis egenskapen ikke blir funnet, bruker du CreateProperty-metoden til å tilføye egenskapen til Samlingen Riktigebånd . Dette er nødvendig fordi egenskapen AllowBypassKey ikke vises i Egenskaper-samlingen før den er lagt til.

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