Access テキストボックスに入力できる数値を範囲指定したい。

Question

##質問内容
管理システムを作成しています。
伝票を入力するときに、テキストボックスで数値を入力するテキストボックスがあるのですが、そこで入力できる桁数、範囲を0 ~ 999,999,999,999　で制限したいです。

ちなみにそのテキストボックスは割引額を入力するもので、入力規制を行っているので数字と"-"の符号以外は入力できないようになっています。(バックキーは使用可)
書式は、標準です。

数値自体を無限に入力できるのを防ぐための処置です。

Answer 1

入力フォームは連結フォームですか、非連結フォームですか。
（レコードソースにテーフルまたはクエリが設定してあれば連結）

連結なら、テーブルのフィールドプロパティで「入力規則」プロパティを設定するのが確実です。

入力規則を使ってデータ入力を制限する - Access

そこで、設定しておけば、フォームからの入力でも、テーブルに直接入力でも、規則に外れたデータは入力できません。

設定例

プロパティ	設定値
入力規則	Between 0 And 999999999999
エラーメッセージ	0以上999,999,999,999以下の数値を入力してください。

複雑な入力チェックなら、テキストボックスの更新後処理ですることになりますが、この程度ならこの方法がシンプルかつ確実です。

非連結フォームなら、テキストボックスの入力規則とエラーメッセージのプロパティで同様に設定することが可能です。

Answer 2

範囲を0 ~ 999,999,999,999　で制限したいです。

マイナス記号を入力させる必要がないと思います。
あるいは、-999,999,999,999までありでしょうか？

桁数以外は設定済みという前提なら、単純に文字数をカウントするのが手っ取り早くないでしょうか。
値が正なら12桁ですが、マイナス入力の場合は最大13桁になりますので、先に正か負かで判定分けしてください。

正規表現を使った方法なら、以下が参考になるでしょうか。
VBAで正規表現や関数を使った入力チェックを行い、Accessに新規レコードを追加、保存するには

もし、TextBox.Changeイベントなどで処理できるようであれば、ユーザーに対して比較的リアルタイムにエラーメッセージを表示できると思います。
TextBox.Changeイベント

Answer 3

更新前処理(BeforeUpdate イベント)で範囲チェックを行って、範囲外ならCancel = Trueとすることで、入力を無効にできます。