このページを共有

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

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

コードでは、ユーザが `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

https://admhelp.microfocus.com ALM 8942
検索結果の改善のヒント... ALM ヘルプセンター ALM ヘルプセンター ALM ヘルプ 17.0 すべてローカル・ヘルプセンターの表示オンライン・ヘルプセンターの表示戻るブラウザ履歴で元に戻る進むブラウザ履歴で前に進む検索の強調表示を解除次のトピック次のトピックに移動前のトピック前のトピックに移動現在のトピックを印刷バージョン: