値要求が”はい”の場合のエラー処理

質問

テーブルのプロパティで値要求を”はい”にした場合に、当然入力をしていて未入力の場合にエラーになりますが、誤ってフィールドの１つにでも入力をしてしまって、Deleteで消去してもレコードが１件発生している為に
「フィールドに必要な値がTrueに設定されているため、このフィールド'テーブル.フィールド名'にNull値は挿入できません」
というエラーになりますが、このエラーの場合には適当なデータを入力して１件発生させてからあとで削除をするしか切り抜ける事は出来ないのでしょうか?
ＡＣＣＥＳＳ２０００を使用しています。
よろしくお願いします。

回答No.4

yoisho · ベストアンサー

フォームを閉じる際に顧客名が未入力の場合に、新たなレコードを保存させないようにするには、閉じるボタンのクリック時イベントに、cmd更新_Click() イベントと同じコードを記述するのが良いかと思います。

もし、フォームの閉じる（左上の×）ボタンにも対応させたければ、フォームの更新前イベントでデータの更新をキャンセルする方法があります。

具体的なコードは、例えば
Private Sub Form_BeforeUpdate(Cancel As Integer)
If IsNull(Me!cbo顧客名) Then
Me.Undo
MsgBox "顧客名が未入力のため、データは更新されませんでした。"
End If
End Sub

以下アドバイスですが、データの保存（更新）を Requery でなさっていますが、これですとこの後、一番初めのレコードが表示されていると思います。

もちろんこれでも、データの保存には全く問題はありませんが、もしカレントレコードを最後に入力したレコードのままにしたければ、
Me.Requery の代わりに
DoCmd.RunCommand acCmdSaveRecord
と記述すればＯＫですので、ご参考まで。

申し訳ありませんが、コードの動作確認を行っていませんので、自信なしのアドバイスです。
（コードの不備やその他疑問等ありましたら、補足でご連絡お願いします。）

お礼

無事出来ました。

おまけにDocmd.RunCommand acCmdSaveRecordという便利なメソッドも教えていただいてありがとうございました。
これからもいろいろと使えるような気がするのでもっと調べたいと思います。
これからもよろしくお願いします。

回答No.3

yoisho

たぶん、テーブルではエラーメッセージのカスタマイズはできないように思います。

ユーザーにデータ入力をさせるのでしたら、テーブルを元にフォームを作って、こちらから入力するようにした方が良いのでは？

フォーム上でしたら、（例えばテキストボックスの）細かい入力規則やエラーメッセージの設定もできますし、ＶＢＡを使えばその他のエラー処理も自由度が高く可能です。

補足

フォームは作成してあります。
そして
Private Sub cmd更新_Click()

If IsNull(Me!cbo顧客名.Value) Then
MsgBox "顧客名を入力してください。”
Exit Sub
End If

Me.Requery
End Sub

と書きましたが、これでエラー表示は出来るのですが、他にも閉じるボタンというのがあって、これをクリックすると、そのままフォームが閉じて顧客名が入力してなくても１件作成されてしまいます。
これはどうしたらいいのでしょうか？

回答No.2

paz777

こんにちは。

エラーメッセージが出た後に[Esc]キーを
押して下さい。

#1 yoishoの回答の「コントロール」＋「Ｚ」と
同じ操作です。

ではでは・・・

補足

回答ありがとうございました。
エラーのキャンセルは出来たのですが、エラーの表示をユーザーにも分かりやすいように独自のメッセージを表示したいと思っていますが、それはどのようにしたらいいでしょうか？
よろしくお願いします。

回答No.1

yoisho

コマンドボタンの（または、編集メニューの）「元に戻す － カレントフィールド/レコード」、あるいは「コントロール」＋「Ｚ」キー　で、キャンセルできますが。

もし、ご質問の意味を取り違えていたら、すみません。

補足

回答ありがとうございました。
エラーのキャンセルは出来たのですが、エラーの表示をユーザーにも分かりやすいように独自のメッセージを表示したいと思っていますが、それはどのようにしたらいいでしょうか？
よろしくお願いします。