Accessの検索フォームで。

質問

Accessを使ってデータベースを作成しています。

「テーブル1」があり、これには
名前ID
名前
入力日
チェック項目1
チェック項目2
　　：
とあります。

これをもとに「検索クエリ」を作成しました。
検索クエリの項目は「テーブル1」とまったく同じですが、
すべてを検索するわけではないので
・名前ID
　「検索項目なし」
・名前
　「Like IIf(IsNull([Forms]![検索条件入力フォーム]![名前]),[氏名],'*' & [Forms]![検索条件入力フォーム]![名前] & '*')
・入力日
　「検索項目なし」
・チェック項目1
　「Like IIf(IsNull([Forms]![検索条件入力フォーム]![チェック項目1]),[チェック項目1],[Forms]![検索条件入力フォーム]![チェック項目1])」
・チェック項目2
　※上記と同じ。
　　：
としてあります。

この「検索クエリ」をもとに「検索条件入力フォーム」を作成してあります。
名前の欄に「田中」と入力すれば、「田中」がつく人がすべて検索されるというようなカンジになっています。

「テーブル1」に空欄があり、その場合に、検索がうまくいきません。
「検索クエリ」のところですべてに条件を入れればいいのですが、フォームに全てが入っていないので。。。
やはりフォームに「テーブル1」の項目すべてを含め、クエリで条件を入れるべきでしょうか？
これが今考えている中では一番手早いようなカンジがするのですが、どうしてもあまりスマートなやり方ではないような気がして。。。
これしかないのであれば、これでやりますが、他にいい方法があれば、教えていただけないでしょうか？

あまり上手な文章ではないので、補足要求があれば補足します。
宜しくお願いします。

Ac2000です。

回答No.8

maruru01 · ベストアンサー

また、間違えました。
なにぶん、実際に書いてないもんで。
チェック欄のところを以下のように修正して下さい。

'[チェック欄]
Select Case Me!fraチェック欄.Value
　　Case 1　　'全て
　　　　'何もしない
　　Case 2　　'チェック欄あり
　　　　condCheck = "(テーブル1.チェック欄 =" & True & ")"
　　　　wherecond = wherecond & "and " & condCheck
　　Case 3　　'チェック欄なし
　　　　condCheck = "(テーブル1.チェック欄=" & False & ")"
　　　　wherecond = wherecond & "and " & condCheck
End Select

元のコードだと、チェック欄[全て]を選択すると、WhereCondの末尾に" AND "が余分についてしまい、構文エラーになってしまいます。
これで大丈夫だと思います。（ちょっと不安）
では。

お礼

できました！！
ありがとうございます！！
これでやっと。。。と思ったのですが、更に更に質問してもよろしいでしょうか？

今まで文字を入れる検索フォームはテキストボックスかチェックボックスかラジオボタンでしたよね。
コンボボックスなんていうのはどのようにやるのでしょうか？
テキストボックスと同じようなカンジではもちろんエラーですよね？

何度もすいませんが、宜しくお願いします。。

補足

すいません、大丈夫じゃなかったです(^^;
名前を入れないでチェックあり（なしも）の場合にエラーが出てしまいます！
名前さえ入れれば3つのどれでも大丈夫なのですが。。。

------------------------
実行時エラー　'3075';

クエリ式'テーブル1.チェック欄=True)'の不要な')'があります。
------------------------
です。

どこを直せばいいのでしょうか？