同一値集合ソースの複数コンボボックスでプルダウンメニューに既入力値を再表示させない

質問

まだ6ヶ月程度のAccess初心者です。データ入力上の誤入力を避けたいのですが方法がわからず悩んでいます。初心者で、未だ基本的な理解ができていないためだと思いますが、どなたか解決法をご教授いただければありがたく存じます。
　１つのフォーム上に複数のコンボボックスを用意して、同じ値集合ソース（テーブル）を参照して入力をしようとしています。
　このとき、まず、コンボボックス１に、参照しているテーブルから”DATA１”という値を入力したとき、次のコンボボックス２のプルダウンメニューには、先の”DATA１”を表示しないように、SQLステートメント：クエリビルダの抽出条件を設定しようと考えています。
　このフォームにはコンボボックスを全部で４つ用意して、順次入力の都度、入力済みのデータはプルダウンメニューに表示しないようにし、重複を避けたいというのが目的です。

　コンボボックス２の値集合ソースとして設定する際に、SQLステートメント：クエリビルダの抽出条件に記載したものは次のようなものです。

<>[Forms]![フォーム１]![コンボボックス１] 　And　 <>　[Forms]![フォーム１]![コンボボックス３]　 And 　<>[Forms]![フォーム１]![コンボボックス４]

　ほかのコンボボックス３～４にも、自分以外のコンボボックスと重複させないつもりで、それぞれ抽出条件を入力しました。

　さて、実際にこれで動かしてみると、1回目はうまくいって喜んだのですが、入力値をDeleteして再入力を試みたところ、リストボックスが何も表示されない状態になり、悩んでいます。
　何か設定上で不足している、あるいは論理上で考え違いをしているのだと思いますが、何とか解決したいと切に思っています。何卒よろしくお願いします。

回答No.1

bonaron · ベストアンサー

[フィールド名]<>[Forms]![フォーム１]![コンボボックス１]
は、[コンボボックス１] が空白の場合に
True でも False でもなく Null になります。
Null と ある値の And 演算の結果は Null になります。
（VBE のヘルプで「And 演算子」を調べてください。）
よって、１つでも未入力のコンボボックスがあると
抽出条件に 「Null」 と書いたのと同じことになってしまいます。

これを回避するには、空白の場合に Null にならないように
Nz 関数を使います。

<>[Forms]![フォーム１]![コンボボックス１]
を
<>Nz([Forms]![フォーム１]![コンボボックス１] ,"")
のようにしてください。

Nz 関数についてもヘルプで調べてください。

なお、入力するたびに、コンボボックスのリストが変化するように、
下記のような、再クエリの処理が必要なのは、言うまでもありません。
念のため。

Private Sub コンボボックス１_Enter()
　　Me.ActiveControl.Requery
End Sub

お礼

bonaron様
さっそく解決の方法をご教示いただき、大変ありがとうございました。
ご紹介いただいた方法を適用し解決いたしました。レコードを移動しても、途中でdeleteしても問題なく目的としていた形に到達することができました。本当にありがとうございます。
　Nz関数については以前、表の集計を取る際にnullを０（ゼロ）に置き換えてから合計するという内容を学習したことがありましたが、こういう場合も必要だということを改めて理解しました。null値の扱いについては今後も要注意ということで頭に入れておきます。
　再クエリについては、コンボボックスのイベントプロパティ「フォーカス喪失時」に、コンボボックスごとに再クエリマクロを設定してみました（まだ理解が足りないので試行錯誤ですが…）。
　ありがとうございました。またよろしくお願いいたします。