このページを共有

# 例: オブジェクトの検証

この例では、`CanPost` イベント・プロシージャを使用して、すべてのフィールドの検証を実行する方法を例示します。たとえば、このコード・セグメントにより、ユーザはコメントの追加なしに不具合を却下できないようにすることができます。

この例では、ユーザは、［R&D コメント］フィールド (BG_DEV_COMMENTS) に説明文を入力しない限り、不具合ステータス (BG_STATUS) が`却下`になった不具合を送信できません。

`Bug_CanPost` イベント・プロシージャにコードを追加して、ユーザが不具合の送信を試みるときに、確認が実行されるようにします。

    Function Bug_CanPost
            ' 関数の戻り値を初期化して、
    	 ' 予期しない動作を防ぎます。
            Bug_CanPost =  False
            On Error Resume Next
            If Bug_Fields("BG_STATUS").IsModified and _
            Bug_Fields("BG_STATUS").Value = "Rejected" and _
            not Bug_Fields("BG_DEV_COMMENTS").IsModified then
                Bug_CanPost = False
                msgbox "不具合を却下する際、コメントを入力する必要があります。"
            Else
                Bug_CanPost = True
            End If
            PrintError "Bug_CanPost"
            On Error GoTo 0
    End Function

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