Shift キーでスタートアップ プロパティや AutoExec マクロを無視できるかどうかを示します。たとえば、AllowBypassKey プロパティに False を設定すると、ユーザーはスタートアップ プロパティおよびAutoExec マクロを無視できません。
2 設定値
AllowBypassKey プロパティの設定値は次のとおりです。
| 設定値 |
内容 |
| True |
Shift キーでスタートアップ プロパティおよび AutoExec マクロを無視できます。 |
| False |
Shift キーでスタートアップ プロパティおよび AutoExec マクロを無視できません。 |
このプロパティは、マクロまたは Visual Basic で設定できます。
マクロまたは Visual Basic を使用して AllowBypassKey プロパティを設定するには、次の方法でプロパティを作成しておく必要があります。
3 解説
アプリケーションをデバッグするときは、AllowBypassKey プロパティに True を設定してください。
このプロパティの設定値は、次にアプリケーション データベースを開いたときに有効になります。
次の使用例は、設定するプロパティの名前、データ型、および設定値を渡す SetBypassProperty という名前のプロシージャです。一般的な目的のプロシージャである ChangeProperty を使って、AllowBypassKey プロパティの設定を試みます。このプロパティが見つからない場合、CreateProperty メソッドを使って Properties コレクションに追加します。このプロパティは 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