特殊なマクロ

特殊なマクロ

次の2つの名前の付いたマクロは、Accessにより特別な動作を割り当てられる特殊なマクロです。

• AutoExec
• AutoKeys

※いずれも、大文字小文字は区別されません。

AutoExec

ファイルを開くと自動的に起動されるマクロです。

[Shift]キーを押し続けながら起動することで抑制することが出来ます。（ただし、下記AllowBypassKeyプロパティが存在しないか、Falseに設定されている場合に限ります。）

[Shift]キーを押し続けながら起動してもAutoExcecを抑制できないように抑制する

[Shift]キーを押し続けながら起動しても抑制できないようにするには、AllowBypassKeyプロパティにFalseを設定します。

ただし、このプロパティは既定では存在しないため、存在しない場合は新たに作成する必要があります。

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

AutoKeys

ファンクションキーの割り当てを行います。

関連

• OpenDatabaseとOpenCurrentDatabase

参考

• AllowBypassKeyプロパティ
• キーボード ショートカットを使用して Access マクロを実行する