AllowBypassKey プロパティ

AllowBypassKey プロパティを使用して、スタートアップ プロパティと AutoExec マクロのバイパスに対して、SHIFT キーを有効にするかどうかを指定することができます。たとえば、ユーザーがスタートアップ プロパティや AutoExec マクロをバイパスしないように、AllowBypassKey プロパティを False に設定することができます。

設定

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

設定

説明

True

ユーザーが Shift キーを使用して、スタートアップ プロパティおよび AutoExec マクロの読み込みを回避できるようにします。

False

ユーザーが Shift キーを使用して、スタートアップ プロパティおよび AutoExec マクロの読み込みを回避することを禁止します。


このプロパティは、マクロ または 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
Office のスキルを磨く
トレーニングの探索
新機能を最初に入手
Office Insider に参加する

この情報は役に立ちましたか?

ご意見をいただきありがとうございます。

フィードバックをお寄せいただき、ありがとうございます。Office サポートの担当者におつなぎいたします。

×