フィールドをユニークキーにした入力制限

あるフィールドに同じ値のデータの入力を制限したい時の制御

フィールドOP→ユニークチェック
スクリプト作成
　エラー処理[オン]
　レコード/検索条件確定:オン
　変数設定：$error ; 値 : Get(最終エラー）
　IF [$error ; 値 = 504 ]
　　カスタムダイヤログ　[$error ;　"同じ番号が登録されています"]
　　※はい　いいえ　
　　IF[Get最終メッセージ選択) = 1]
　　レコード/検索条件確定[入力値の制限を無視 ; ダイアログ : オフ]
　Else IF [Get(最終メッセージ選択 = 2]
　　レコード/検索条件復帰　[ダイアログあり:オフ]
　　フィールドへ移動[テーブル : : フィールド]
　　カスタムダイアログ表示 ["確認の上、登録してください"]
　　現在のスクリプト終了　[テキスト結果 : False]
　　End IF
　End IF
スクリプトトリガ　OnObjectValidate

※sampleファイルあり