AllowBypassKey プロパティ

設定

AllowBypassKey プロパティでは、次の設定が使用されます。

このプロパティは、マクロ または Visual Basic for Applications (VBA) コードを使用して設定できます。

マクロまたは Visual Basic for Applications (VBA) コードを使用して、AllowBypassKey プロパティを設定するには、次の方法でプロパティを作成する必要があります。

• Microsoft Access データベース (.mdb または .accdb) で、CreateProperty メソッドを使用してプロパティを作成し、Database オブジェクトの Properties コレクションにその作成したプロパティを追加することで、プロパティを追加できます。

• Microsoft Access プロジェクト (.adp) で、Add メソッドを使用することで、CurrentProject オブジェクトの AccessObjectProperties コレクションにプロパティを追加できます。

解説

アプリケーションをデバッグするときは、AllowBypassKey プロパティを True に設定していることを確認する必要があります。

AllowBypassKey プロパティの設定は、次にアプリケーション データベースを開くときまで有効になりません。

例

次の例では、設定されるプロパティの名前、そのデータ型、および設定を渡す、SetBypassProperty という名前のプロシージャを示しています。 一般的な手順のプロシージャの ChangeProperty では、AllowBypassKey プロパティを設定しようとして、プロパティが見つからない場合は、CreateProperty メソッドを使用して、プロパティを Properties コレクションに追加します。 AllowBypassKey プロパティは追加されるまで Properties コレクションに表示されないため、これは重要です。

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