回答受付が終了しました

nor********

2022/1/18 23:40

33回答

こんにちは。 ACCESS VBA でシステムを作成しております。 フォームのテキストボックスの入力規則についてご相談です。

こんにちは。 ACCESS VBA でシステムを作成しております。 フォームのテキストボックスの入力規則についてご相談です。 フォームに200個ほどテキストがあり、こちらのついてすべて入力規則 （整数のみ入力）を設定する必要があります。 プロパティの入力規則に Not Like "*[!0-9]*" And Len([テキスト0])>0を セットしていけばいいのかなと思いますが、200個それぞれ設定するのはとても大変です。 コードで書く場合もBeforeUpdateを200回というのはとても気が遠くなってしまいます。 関数を作成するにしてもBeforeUpdateから呼び出す方法しか思い当たりません。 効率よく200個のテキストに入力規則を設定する方法がありましたらご教示ください。 どうぞよろしくお願いいたします。

Microsoft Access | Visual Basic・124閲覧

回答（3件）

0
ShiroOni

2022/1/22 19:52

フォームオブジェクト 全て とかで、検索すると出てきますが、 フォーム内のテキストボックスとかに、For each で、ループ設定できますよ。 ただ、入力書式って開いてて設定できるんですかね？ 以前にそう言うのは、別のフォームで、該当フォームをインスタンス化して、デザインモードでvisible=falseで開いてやったりしました。 ただ、一発ものなら、２時間くらい泣きながら設定した方が早い。

0
m3_maki0

2022/1/22 14:47

全てのテキストボックスを選択しておいて（もちろん一部でもOK） プロパティの入力規則に Not Like "*[!0-9]*" And Len([ActiveControl])>0 で、できるのですが、 一旦入力してそれを取り消そうとしても空欄にできなくて そのテキストボックスから身動きできなくなります。 とても使い勝手が悪いものとなります。

0
ggrks

カテゴリマスター

2022/1/19 1:22

フォームをロードしたときに200個分ループして設定すればいいんじゃないですか。

nor********

質問者2022/1/19 1:51

ご回答ありがとうございます。 ValidationRule と ValidationTextを使用すればできそうなのですが 実際どの様に使用すればよいのか検索しても見つかりませんでした。 触りだけで構いませんのコーディングのヒントをいただけないでしょうか。よろしくお願いいたします。