質問: accessで複数条件でデータ抽出するフォームの作成 access2000で複数の条件を入力し、該当するデータを抽出するフォームを作成しています。どんな方法がありますか?簡単に出来る方法をお教えください。 具体的には、売上明細データを検索します。あらかじめ テーブル:売上明細データ をいろいろなマスタを参照している クエリ:売上明細クエリ を元に抽出します 条件は売上日付の日付1と日付2の項目と、伝票区分の項目です。 フォームの頭にテキストボックスを3つ作成し、日付1~日付2までの売上日付で 入力された伝票区分のもののみを表示させたいのです。 検索というコンボボタンを配置し、クリック時にその下にクエリからの必要な表示項目を売上明細クエリから配置しています。 抽出する方法(条件の与え方)を教えてください。よろしくお願いいたします。
回答: 売上明細: id___売上日付______明細区分___伝票番号 1____2007/10/25_____________0___2007100001 2____2007/10/26_____________0___2007100002 3____2007/10/27_____________1___2007100003 売上明細 クエリ: select month([売上日付]) as 月次, * from 売上明細 where (((month([売上日付]))=10)); private sub コマンド_抽出実行_click() dim dteshiduke as date dim dteehiduke as date dim intkubun as integer dim strwhere as string dteshiduke = nz(me.抽出開始日, "1999/12/31") dteehiduke = nz(me.抽出終了日, "1999/01/01") intkubun = nz(me.抽出区分, 0) if dteshiduke <= dteehiduke then strwhere = "明細区分=" & intkubun & _ " and 売上日付>=#" & dteshiduke & "# and 売上日付<=#" & dteehiduke & "#" me.recordsource = "select * from [売上明細 クエリ] where " & strwhere me.requery else msgbox "抽出する日付が定かではありませんので中止します!" end if end sub ・・・・・ if dteshiduke <= dteehiduke then me.filteron = false me.filter = "明細区分=" & intkubun & _ " and 売上日付 between #" & dteshiduke & "# and #" & dteehiduke & "#" me.filteron = true else ・・・・・ どっちでもokです。 ただし、もしかしたら、ネットワークが混雑しないのは後者かもです。