- ベストアンサー
アクセス非連結フォームのテキストボックスの制御
- Access2007、win7で前任者が作ったものを元に類似のシステムを作ることとなりました。
- その中にあるフォームで条件を設定するテキストボックスのコントロールソースプロパティが空白であるにも関わらず、数字以外の値を入力すると正しくない値のメッセージが表示され、誤った入力を受け付けないという現象が発生しています。
- 前任者に直接聞くことができないため、この謎を解明する方法を知りたいです。
- meglin888
- お礼率85% (69/81)
- その他(データベース)
- 回答数3
- ありがとう数3
- みんなの回答 （3）
- 専門家の回答
質問者が選んだベストアンサー
「書式」プロパティに 数値を表す書式 （例えば 「#,##0」 など） が 設定されているのでは？
その他の回答 (2)
- DexMachina
- ベストアンサー率73% (1287/1744)
No.2です。 m3_makiさんのご回答で解決されたとのことなので、今後のご参考に、ということで。 > チェックのロジックを共通化できるのがメリットということですか。 はい、前任者の方にそういう意図があった可能性を推測しての回答でした。 例えば、テーブルの各フィールドに入力するデータを非連結フォームで 一旦受けた上で、コマンドボタンのクリックなどでテーブルに反映、という 形を採る場合、フォームモジュールで対応すると、テーブル/フォームが 異なる場合は、また同様のコードを記述することになると思います。 ここで、例えば a)記録先の各フィールドに一対一で対応するクラス →DataAccessObject(DAO)のFieldオブジェクトを経由して 『データ型』や『入力規則』『値要求』などを取得するとともに、 当該フィールドに対応するコントロールの更新時(→WithEvents 使用)に、それに相当するチェックを実行 b)記録先となるテーブル/クエリに対応するクラス →上記「a」のクラスを格納するコレクションを定義しておき、記録先 のフィールドに対応する上記「a」のクラス群を保持 (フィールド名とコントロール名を引数とするメソッドを用意しておき、 同メソッドで「a」クラスのインスタンスを生成し、コレクションに追加) という2つのクラスを定義しておけば、当該フォームのOpenイベント等で ・上記「b」クラスのインスタンスを格納する変数の定義 ・上記「b」クラスのインスタンスの生成 ・上記「a」クラスのインスタンスを生成し、コレクションに追加するメソッド の呼出(Split関数と「For Next」ステートメントを使用) というコードを記述するだけで、「テーブルのフィールドに定義された各種 プロパティへのチェック」を、フォーム毎に個別にコーディングする手間が 省ける、ということです。 (更にクラスの定義に凝れば、テーブルの『入力規則』では対応できない 「ユーザー定義関数による入力規則の定義」なども行えるかと 思います： 但し、この部分は各フォームのOpenイベント等での個別コーディングが 発生することになります) ・・・と、長々と書きましたが、私自身ではまだこれに相当するクラスを 作成したことはありませんので(汗)、細部に間違いがありましたら ご容赦願います。 あくまで、イメージということで・・・(汗)
お礼
DexMachinaさん 詳しい説明をありがとうございます。 オブジェクト指向の技法を本格的には使用したことがないのですが、 イメージ的にはなんとなくわかります。 コントロールの多い複雑なフォームを作るときにきっと役に立ちそうです。 教えていただいたリンク先も参考にもっと勉強してみたいと思います。
- DexMachina
- ベストアンサー率73% (1287/1744)
m3_makiさんが提示されている設定以外での可能性として、 a)フォームの『開くとき』(Open)イベントで、フォームの『レコードソース』プロパティや コントロールの『コントロールソース』プロパティを設定している (レコードソースにはテーブル/クエリの他、SQL文も指定できるため、例えば 抽出条件に併せて適切なSQL文を動的に生成したり、データ保護のために テーブルを別のMDBファイルに保存した上で(リンクテーブルではなく)SQL文で 接続をしたり、といった場合、上記のようなことをします) b)データ型のチェックを行うクラスを『クラスモジュール』に定義し、各コントロールの データ編集時にはそちらでチェックを行わせている (クラスモジュール上で「Private WithEvents objTB As TextBox」という記述と 「Private Sub objTB_AfterUpdate ～ End Sub」という記述をしておいた上で、 「Set objTB = Forms("フォーム1").テキスト0」とすることで、「フォーム1」の 「テキスト0」が更新された場合、クラスモジュール側で記述した処理を行う ことができます) イメージとしての参考： http://www.excellenceweb.net/vba/class/userform_hook.html も、参考として挙げておきます。 (ただ、メッセージの内容がAccessの組み込みのままっぽいので、「b」の可能性は 低いかとは思いますが(汗))
お礼
DexMachinaさん、回答ありがとうございます。 結果から言うと今回はm3_makiさんのおっしゃるとおり書式プロパティの設定でした。 まさか[標準]が数値しか受け付けないということだとは思わなかったので、何かよほど高度なテクニックかと勘違いしてしまいました。 いろいろ詳しく説明してくださってありがとうございます。 ひとつ教えていただきたいのですが、「データ型のチェックを行うクラスを『クラスモジュール』に定義し、各コントロールのデータ編集時にはそちらでチェックを行わせている」といった方法は、各コントロールの[更新前]でチェックするのとどう違うのでしょう。 チェックのロジックを共通化できるのがメリットということですか。
お礼
m3_makiさん、さっそく回答いただいたのに金曜の夕方から調子を崩し、週末は風邪で寝込んでいました。 申し訳ありません。 書式プロパティの設定を見たところ、[標準]になっていました。 別のフォームを作ってテキストボックスを二つ貼り付けました。 ひとつは書式プロパティがなしのまま、もう一つは[標準]にしてみましたが、 後者は数値しか受け付けないことがわかりました。 おっしゃる通り書式プロパティが効いていたようです。