MSアクセスで絞り込みを繰返すには？

質問

MSアクセスについての質問です。

現在のフォームに表示されているレコードを対象にして、絞り込みをしたいと思っています。
性別で絞り込み→その結果に対して地域で絞り込み→その結果に対して年齢で絞り込み
といったように、絞り込みを柔軟に何度も付け加えるというのが目標です（amazonの絞り込みのイメージです）。

そこで、formのレコードセットを利用してできないかと考え、以下のようなものを書いてみました。

Dim mycriteria As String
mycriteria = "ID = 1"

Me.Recordset.FindFirst mycriteria '動作テスト用
Me.Recordset.Filter = mycriteria　'本題

実行すると、ID1番へのレコードの移動（findfirst）は起きるのですが、
ID1番だけに絞り込み（filter）はなされません。

filterに対する理解が間違っているのでしょうか。
ご指導願えれば幸いです。
また、ほかに定番の手法などがあれば、お教え願えれば幸いです。

回答No.1

山田 太郎（@f_a_007） · ベストアンサー

Filter の実態とは、フォームのレコードソースの Where 節を安直に書き換える機能です。

Me.Recordsource="SELECT * FROM Test;"
↓
Me.Recordsource="SELECT * FROM Test WHERE 性別='F';"

この機能では、次のような構文はサポートされていません。

Me.Recordsource="SELECT * FROM {SELECT * FROM Test WHERE 性別='F'} WHERE XXXX;"

ですから

Me.Recordsource="SELECT * FROM Test;"
↓
Me.Recordsource="SELECT * FROM Test WHERE 性別='F' AND 年齢=20;"

と Where節の条件を多重化するしかありません。

これを Filter で実現すれば

Option Compare Database
Option Explicit

Private Sub コマンド10_Click()
Me.Filter = "性別='F'"
Me.FilterOn = True
End Sub

Private Sub コマンド12_Click()
Me.Filter = "性別='F' AND 年齢=20"
Me.FilterOn = True
End Sub

Private Sub コマンド13_Click()
Me.Filter = "性別='F' AND 年齢=20 AND 地域='A'"
Me.FilterOn = True
End Sub

となります。

【１つのクリックイベントで実現することも可】

その為には、クリックイベントを生成するクラスモジュールを用意します。そうすれば、フィルターのレベルの指示に従って絞り込むことが可能。

Private Sub コマンドXX_Click()
Me.Filter = strFilter
Me.FilterOn = True
End Sub

添付図は、１、２、３と絞り込んだ最後の様子です。

回答No.2

山田 太郎（@f_a_007）

【訂正と補足】

１、クラスモジュールを書く必要はありません。

　条件節を動的にすれば２行だけで実現できます。例えば、条件分を選択するコンボボックスを３つ用意して、それらが選択される都度に非表示の実行条件文を生成するテキストボックスのテキストを完成させる。フィルターの実行においては、それを参照すれば事足ります。ということで、先の回答の後半部分については訂正しておきます。

２、多重フィルターシステムを強いて開発するとすれば・・・

　これは、テストしていませんので、あくまでも可能性として。それは、フォームのクローンを利用するというもの。この場合、第一次フィルターをかけたフォームをクローン化して更に第二次フィルターをかけるというアイデア。これでアマゾン流が実現できそうです。が、注意すべきはクローン化したフォームが第二次フィルターの実行時にデータベースを再参照するのかどうか？仮に、そうであれば多重検索することになります。狙い通りにデータベースの再参照なくフィルターが実行されれば目論見は成功。これは、質問者自身でテストされてください。私見では、そこまでは・・・と考えます。

　以上、訂正と補足しておきます。なんせ、車検に出した車を取りに行く時間がとっくに過ぎているなかでのバタバタ回答で大変失礼しました。お詫びしておきます。

お礼

ありがとうございます！

教えて頂いたことを参考に以下のようなものを試しに作ってみたところ（サブクエリを知りませんでした…）、
なんとかイメージしたことができそうな感じがしています。
ありがとうございます。

それ違う！ということがあればご指摘いただければ幸いです。

Dim mycriteria As String, SQLold As String, SQLnew As String

mycriteria = "ID>100"
SQLold = Me.RecordSource

SQLnew = "select * from (" & SQLold & ")where " & mycriteria & ""

Me.RecordSource = SQLnew

補足

む、これだともしかすると戻すことができませんね。
もう一度よく考えてみます。