例：ユーザ・アクセス許可の制御

この例では、特定のユーザ・グループのメンバがアクションを実行できなくなるようにする方法を例示します。

コードでは、ユーザが Admin ユーザ・グループに属す場合のみ、不具合フィールドの値を置き換えられます。

ActionCanExecute イベント・プロシージャにコードを追加して、ユーザがアクションの実行を試みるときに、確認が実行されるようにします。

Function ActionCanExecute(ActionName)
        ' 関数の戻り値を初期化して、
	' 予期しない動作を防ぎます。
        ActionCanExecute = False
        On Error Resume Next
        If ActionName = "UserDefinedActions.BugReplaceAction1" _
            And Not User.IsInGroup("Admin") then
            ActionCanExecute = False
            msgbox "このアクションを実行するアクセス許可がありません。"
        Else
            ActionCanExecute = True
        End If
        PrintError "ActionCanExecute"
        On Error GoTo 0
End Function