ACCESSの抽出条件更新方法について

質問

いつもお世話になります。

複数のクエリで抽出条件を設定しているのですが、この条件設定をまとめて変更することはできないでしょうか？

例えば、抽出条件を"2007/1/1"を複数のクエリに設定したいとします。
この値を変更しようとすると更新が設定した分だけ大変になります。
できれば、一箇所で条件を設定すればすべてのクエリの抽出条件に反映できれば良いのですが...
文章が拙くて申し訳ありません。
お返事お待ちしております。

回答No.2

guruguru2 · ベストアンサー

こんばんわ。

モジュールで関数を作ってみてはいかがでしょうか？
クエリの方では条件に、

=GetWhere()

とでもしておいて、
モジュールのほうで、

Public Function GetWhere() As String
Dim strWhere As String

strWhere = "#2007/1/1#" '日付型だと#で囲むんだったような…？

GetWhere = strWhere
End Function

としておけば関数の条件だけ変更すればすべてのクエリに反映されます。

お礼

お返事ありがとうございます。
独自の関数を作ってやるやり方があるんですね。
ちょうどVBAは勉強をしてるのでトライしてみます。

回答No.3

imogasi

もう既にクエリを作成後で、それをそのままにして、質問の趣旨を実現するのは難しいともいます。
そういう仕組みを組み込んだ、ものにあらかじめ作っておくか、改造するか。
次ぎに近いのは
（１）パラメータクエリにする
しかしクエリごとに聞いてくるわずらしさはある。
（２）仕組みそのものをVBAなどで組む。
多分SQLを問題にすると思うが、SQL文は文字列で、そののWHERE句の
部分を変数化して、可変化することになるのでしょう。
このことそのものは、プロなどでは、多用されることだと思う。
条件をパブリック変数化などはできないかと思うが、自信なし。

回答No.1

CHRONOS_0

全体像が分からないので回答しにくいですが
たとえば抽出条件入力用の非連結フォームを用意し
そこに置いたテキストボックスに条件を入力し
各クエリの抽出条件欄には

Forms!条件入力フォーム!条件テキストボックス

のように書きます

この方法はクエリを開くときに必ずフォームが開いていないとだめですよ

どこかに条件を保存しておいて異なるタイミングでクエリを開きたいときには
1行1列の条件入力用のテーブルを用意するという手もありますね

この場合の抽出条件は

DLookup("条件フィールド","条件テーブル")

となります

お礼

お返事ありがとうございます。
テーブルにデータを置いてやる方法は想像できたのですが(やり方は分かりませんでしたが...)、フォームに入力する方法もあるんですね。