まだ6ヶ月程度のAccess初心者です。データ入力上の誤入力を避けたいのですが方法がわからず悩んでいます。初心者で、未だ基本的な理解ができていないためだと思いますが、どなたか解決法をご教授いただければありがたく存じます。
1つのフォーム上に複数のコンボボックスを用意して、同じ値集合ソース(テーブル)を参照して入力をしようとしています。
このとき、まず、コンボボックス1に、参照しているテーブルから”DATA1”という値を入力したとき、次のコンボボックス2のプルダウンメニューには、先の”DATA1”を表示しないように、SQLステートメント:クエリビルダの抽出条件を設定しようと考えています。
このフォームにはコンボボックスを全部で4つ用意して、順次入力の都度、入力済みのデータはプルダウンメニューに表示しないようにし、重複を避けたいというのが目的です。
コンボボックス2の値集合ソースとして設定する際に、SQLステートメント:クエリビルダの抽出条件に記載したものは次のようなものです。
<>[Forms]![フォーム1]![コンボボックス1] And <> [Forms]![フォーム1]![コンボボックス3] And <>[Forms]![フォーム1]![コンボボックス4]
ほかのコンボボックス3~4にも、自分以外のコンボボックスと重複させないつもりで、それぞれ抽出条件を入力しました。
さて、実際にこれで動かしてみると、1回目はうまくいって喜んだのですが、入力値をDeleteして再入力を試みたところ、リストボックスが何も表示されない状態になり、悩んでいます。
何か設定上で不足している、あるいは論理上で考え違いをしているのだと思いますが、何とか解決したいと切に思っています。何卒よろしくお願いします。
No.1ベストアンサー
- 回答日時:
[フィールド名]<>[Forms]![フォーム1]![コンボボックス1]
は、[コンボボックス1] が空白の場合に
True でも False でもなく Null になります。
Null と ある値の And 演算の結果は Null になります。
(VBE のヘルプで「And 演算子」を調べてください。)
よって、1つでも未入力のコンボボックスがあると
抽出条件に 「Null」 と書いたのと同じことになってしまいます。
これを回避するには、空白の場合に Null にならないように
Nz 関数を使います。
<>[Forms]![フォーム1]![コンボボックス1]
を
<>Nz([Forms]![フォーム1]![コンボボックス1] ,"")
のようにしてください。
Nz 関数についてもヘルプで調べてください。
なお、入力するたびに、コンボボックスのリストが変化するように、
下記のような、再クエリの処理が必要なのは、言うまでもありません。
念のため。
Private Sub コンボボックス1_Enter()
Me.ActiveControl.Requery
End Sub
bonaron様
さっそく解決の方法をご教示いただき、大変ありがとうございました。
ご紹介いただいた方法を適用し解決いたしました。レコードを移動しても、途中でdeleteしても問題なく目的としていた形に到達することができました。本当にありがとうございます。
Nz関数については以前、表の集計を取る際にnullを0(ゼロ)に置き換えてから合計するという内容を学習したことがありましたが、こういう場合も必要だということを改めて理解しました。null値の扱いについては今後も要注意ということで頭に入れておきます。
再クエリについては、コンボボックスのイベントプロパティ「フォーカス喪失時」に、コンボボックスごとに再クエリマクロを設定してみました(まだ理解が足りないので試行錯誤ですが…)。
ありがとうございました。またよろしくお願いいたします。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Access(アクセス) Accessの参照フィールドの列がずれてしまいます 1 2023/07/19 15:00
- Access(アクセス) Accessにインポートした複数のテーブルを表示させる方法が分かりません。 1 2023/01/30 20:22
- Access(アクセス) Accessフォーム 一部のレコードだけを抽出する方法について 1 2022/06/28 18:45
- Access(アクセス) Access 登録ボタンからサブフォームの更新 1 2022/07/22 10:23
- Visual Basic(VBA) Excel VBA ユーザーフォーム1のコンボボックスに別ブックの値を反映させたいです。 6 2023/03/21 16:12
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- Visual Basic(VBA) ユーザーフォームに2つのコンボボックス銀行名「ConboBox1」支店名を「ConboBox2」とし 4 2022/08/03 17:34
- Access(アクセス) Accessテーブルの結合で別々のテーブルのフィールドを組み合わせて値を出す方法について 2 2022/07/20 19:43
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Access(アクセス) Accessフォームで複数条件でフィールドの値を表示する方法 4 2022/07/21 10:47
関連するカテゴリからQ&Aを探す
おすすめ情報
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
帳票フォームでのあるコンボボ...
-
ACCESSのリストボックス抽出に...
-
Accessのコンボボックスでリス...
-
accessでオートコンプリート機...
-
ACCESS リストボックスの字の色...
-
ACCESSでコンボボックスにSQLで...
-
Access 帳票フォームのコンボボ...
-
.flex-direction プロパティは...
-
ACCESSクエリ抽出条件について
-
同一値集合ソースの複数コンボ...
-
コンボボックスのボタンの大き...
-
Oracleで文字列型の時間を引き...
-
ACCESSでコンボボックスをプル...
-
Accessのコンボボックスの値が...
-
Accessのコンボボックスのデフ...
-
(ACCESS)フォームデータシート...
-
accessでのリストボックス選択...
-
エクセルで、抽出したデータだ...
-
ACCESSでVBAから選択クエリの抽...
-
Access サブフォームでの選択行...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのコンボボックスでリス...
-
Accessのコンボボックスの値が...
-
ACCESSでコンボボックスにSQLで...
-
Oracleで文字列型の時間を引き...
-
ACCESS リストボックスの字の色...
-
ACCESSクエリ抽出条件について
-
帳票フォームでのあるコンボボ...
-
accessでオートコンプリート機...
-
accessでのリストボックス選択...
-
Accessのコンボボックスの”すべ...
-
パススルークエリのデータ件数...
-
リストボックスの時はリンク先...
-
コンボボックスのボタンの大き...
-
Accessのフォーム(コンボボッ...
-
.flex-direction プロパティは...
-
更新クエリで変数は使えない?
-
アクセス:フォーム入力:【大...
-
Accessフォーム 大分類→小分類...
-
自動入力
-
Accessのコンボボックスのデフ...
おすすめ情報