例：オブジェクトの検証

この例では、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