access 文字数制限時エラー

Question

実現したいこと

・検索フォームにて、非連結のテキストボックス(txt_個人番号)に８文字以外の番号を入力すると「８文字で入力してください」とポップアップが表示される。
・クリアボタンを押すと、テキストボックスに入力した番号がクリアされ、そのまま再度入力できる状態となるようにしたい。
＜クリアの方法＞
テキストボックスと同じフォームに、クリアボタン（btn_クリア）を設置。
そのボタンを押すと、テキストボックス内の番号が空欄になる。

Private Sub btn_クリア_Click()
   Me!txt_個人番号 = ""
End Sub

前提

検索フォームを作っています。
非連結のテキストボックス(txt_個人番号)に番号を入力・検索ボタンを押すと、別フォームに切り替わり入力した番号と一致するデータが抽出されます。
検索時に入力する際、入力間違いを防ぐため８文字の半角数字以外を入力するとポップアップでエラーが正しく表示されるようにしたいです。
８文字以外を入力すると、ポップアップが表示されるところまではできています。

発生している問題・エラーメッセージ

８文字以外を入力すると、エラーのポップアップが表示されるもののクリアボタンを押しても同じポップアップが出てしまいます。
修正しようとテキストボックスをクリックしても、おなじポップアップが出現し消えません。

該当のソースコード

Len(Nz([txt_個人番号],""))=8

試したこと

一番最初は、テキストボックスのプロパティシート：「入力規則」の欄に以下を試しました。
エラーメッセージには、「８文字で入力してください」と記述。

Len([txt_個人番号])=8

クリアするとエラーがでたため、テキストボックス（txt_個人番号)が空欄時についての記述が必要と思い、

Len([txt_個人番号])=8 0r Len(txt_個人番号])=""

を試しました。同じエラーが起きるので、

Len(Nz([txt_個人番号],""))=8

としましたが、ポップアップが表示され続ける状態になります。

Answer 1

空欄時の条件を追加するには、以下の様にします。

Len([txt_個人番号])=8 0r Len([txt_個人番号])=0

TextBox.ValidationRule プロパティ (Access)

リンク先のパターンで以下の様にした場合、空白入力後に空欄に戻すには[Esc]キーで入力をキャンセルしないとエラーが出続けます。

Len([txt_個人番号])=8 0r Is Null

クリアするとエラーがでたため

どのようにクリアされているかによりますけど、少なくとも[Esc]キーで入力をキャンセルすればエラーにはならないと思います。

Comments

[wkou4627]

ご回答ありがとうございます。
私の質問の記載に不足があり申し訳なかったのですが、今回クリアの方法には、クリアボタン（btn_クリア）を設置し、そのボタンを押すとテキストボックス（txt_個人番号）内が空欄になるという方法を用いています。クリアボタンのイベントプロシージャには、以下のコードをかいています。
```VBA
Private Sub btn_クリア_Click()
Me!txt_個人番号 = ""
End Sub
```
このクリアの仕方で、教えていただいた入力文字数制限のコードをためしてみたところ、エラーが出てきてしまいました。（回答いただいているように[Esc]で入力をキャンセルすれば、エラーでませんでした）具体的なエラーは以下の通りです。
８文字以外で入力→エラー→OKで抜ける→クリアボタンを押す→エラーのポップアップ
その後何を押してもエラーのポップアップが出てきてしまいます・・・

[sazi]

「[Esc]による入力のキャンセル」というのは値をNullにするという事です。
ですので、空文字("")ではなくNullを設定して下さい。
txt_個人番号 = Null

[wkou4627]

ご回答ありがとうございます。
クリアボタンのイベントプロシージャを以下に修正しました。
```VBA
Private Sub btn_クリア_Click()
Me!txt_個人番号 = Null
End Sub
```
８文字以上もしくは８文字以下を入力→検索ボタン→文字数えラーのポップアップ→OKで抜けた後８文字で入力→検索もしくはクリアボタンの流れは正しく動かすことができました。
ですが、やはり、８文字以上もしくは８文字以下で入力のまま、クリアボタンを押すとエラーのポップアップが出続けてしまいます。。。

[wkou4627]

テキストボックスに入力制限をかけることによって、検索ボタンにだけではなくクリアボタンにまで文字数制限がきいてしまっているためエラーが表示されてしまうのでしょうか・・・