Accessのリストボックスを使って抽出

質問

抽出用のフォームを作成しているのですが、その中にリストボックスがあり、何も選択しなかった場合は、すべての項目が表示される様にしたいと思っております。自分なりに色々と調べたのですが、どうしても希望の動作になりません。どの様にすれば良いのか教えて頂けないでしょうか？
Access2003を使用しております。

Form-A（メインフォーム名）←テーブルＡを元に作成（項目名同じ）
番号（主キー）、氏名、性別、Ａ１、Ａ２・・・
Ａ１、Ａ２は、する・しないのどちらかを入力。

Form-B（サブフォーム名）←テーブルＢを元に作成（項目名同じ）
ID（主キー）、番号、担当、訪問日、次回訪問日、期間
担当は、値集合タイプ：テーブル/クエリ、値集合ソース：テーブルあ（フィールドは担当のみ）5名程の名前を登録しし、リストボックスにて選択できる様にしています。

現在、下記の様な抽出用のフォームがあります。
Form-抽出（抽出用フォーム名）
Ａ１（チェックボックス）
Ａ２（チェックボックス）
担当（リストボックス：値集合タイプ：テーブル/クエリ、値集合ソース：テーブルあを設定）
[ＯＫ]ボタンを押すと抽出（クエリＱにて条件を設定）する様にしています。

クエリＱ（テーブルＡ、テーブルＢを元に作成）
番号（主キー）、氏名、性別、Ａ１、Ａ２、ID（主キー）、番号、担当、訪問日、次回訪問日、期間

現在設定しているのは、
Ａ１の抽出条件：IIf([forms]![Form-抽出]![Ａ１]=True,True,False)
Ａ２の抽出条件：IIf([forms]![Form-抽出]![Ａ２]=True,True,False)
担当の抽出条件：[Forms]![Form-抽出]![担当リストボックス]
訪問日の抽出条件（複数情報がある為、最近の訪問日のデータのみ対象となる様にしています。）：DMax("訪問日","テーブルＢ","[テーブルＢ]![番号] ='" & [テーブルＢ]![番号] & "' And 訪問日 <Date()")

今の設定ですと、担当を選択しなかった場合、何も抽出されてきません。
これを、すべて表示出来る様にしたいのが希望です。
Access初心者の為、説明がわかりづらかったり情報が足りないかもしれませんが、すぐに補足致しますので、どうぞよろしくお願い致します。

回答No.1

30246kiku · ベストアンサー

現クエリをSQLビューで見た時、担当の抽出条件部分は

担当 = [Forms]![Form-抽出]![担当リストボックス]

となっていると思いますが、以下の様に書き換えてどうなりますか。

IIF(IsNull([Forms]![Form-抽出]![担当リストボックス]),TRUE,担当 = [Forms]![Form-抽出]![担当リストボックス])

補足

30246kiku様、早速の回答ありがとうございます。
クエリで確認をしてみましたが、「実行時エラー'2001'　直前の操作はキャンセルされました。」と表示されました。

IIF(([Forms]![Form-抽出]![担当リストボックス])=NULL,TRUE,担当 = [Forms]![Form-抽出]![担当リストボックス])

として確認してみましたが、何も抽出されてきませんでした。
よろしくお願い致します。

回答No.3

30246kiku

＃２です

> Ａ１の抽出条件：IIf([forms]![Form-抽出]![Ａ１]=True,True,False)

この部分をSQLビューで見ると

Ａ１ = IIf([forms]![Form-抽出]![Ａ１]=True,True,False)

となっていると思いますが、担当　と同様な書き方にしてみます。

IIf([forms]![Form-抽出]![Ａ１]=True,Ａ１=True,True)

チェックボックスが True なら、Ａ１=True の条件とします。
False なら 無条件で True とします。

Ａ２　も同様に書き換えてみます。

お礼

30246kiku様
色々とありがとうございました。

IIf([forms]![Form-抽出]![Ａ１]=True,True,Ａ１=True)

上記の設定をＡ１、Ａ２に行ったところ、無事希望の動作を確認する事が出来ました。
初心者の私にでもわかる様に教えて頂き、大変感謝しております。
本当にありがとうございました。

回答No.2

30246kiku

([Forms]![Form-抽出]![担当リストボックス])=NULL

の記述では判定できなかったと思います。

IsNull([Forms]![Form-抽出]![担当リストボックス])
とか
IsNull([Forms]![Form-抽出]![担当リストボックス]) = TRUE
とか
([Forms]![Form-抽出]![担当リストボックス]) Is Null
とか
になったと思います。

担当を選択して出来ていた時のクエリのSQLビューでの　担当記述の前後を含めて
提示してもらえませんか。

また、[担当リストボックス]の初期値は何になっていますか。

補足

30246kiku様
お世話になっています。詳しい説明ありがとうございました。
教えて頂いた設定を行い、色々とテストしてみた結果、下記の事がわかりました。

Form-抽出で抽出した結果です。
(1)Ａ１のみチェックした場合→正常な結果が出ました。
(2)Ａ２のみチェックした場合→正常な結果が出ました。
(3)Ａ１とＡ２をチェックした場合→正常な結果が出ました。
(4)Ａ１とＡ２にチェック、担当も設定した場合→正常な結果が出ました。
(5)Ａ１、Ａ２、担当に何も設定しない場合→何も抽出されません。

そこで、テーブルＡを使ってＡ１、Ａ２のチェックボックスだけの動作確認をしました。
(6)Ａ１のみチェックした場合→正常な結果が出ました。
(7)Ａ２のみチェックした場合→正常な結果が出ました。
(8)Ａ１とＡ２をチェックした場合→正常な結果が出ました。
(9)Ａ１、Ａ２のチェックをしなかった場合→何も抽出されません。

次に、テーブルＢを使って担当リストボックスだけの動作確認をしました。
(10)リストボックスから何か選択した場合→正常な結果が出ました。
(11)何も選択しない場合→すべて表示（希望の結果が出ました。）

リストボックスの方の問題だと思っていたのですが、チェックボックスの方の設定にも問題があった様です。
大変申し訳ありませんでした。

チェックボックスは下記の設定をしております。
Ａ１の抽出条件：IIf([forms]![Form-抽出]![Ａ１]=True,True,False)
Ａ２の抽出条件：IIf([forms]![Form-抽出]![Ａ２]=True,True,False)
Ａ１、Ａ２のチェックをしなかった場合にすべて表示される様にする方法を教えて頂ければ幸いです。
どうぞよろしくお願い致します。