フォーム画面にフィルター詳細設定のボタンの作成

Question

Access初心者です。

フォーム画面にフィルター詳細設定のホームフィルターのボタンを作りたいのですが、

その方法が分かりません。

簡単なことで申し訳ないのですが

ご回答をお待ちしております。

Answer 1

オートフィルター画面ではコマンドボタンは使用不可になるのは仕様ですので、無理ですね。

対策としては下記の２つが考えられます。

１．リボンの「フィルターの実行」コマンドをクリックしする。

２．別にフォームを作成して、「ポップアップ」を「はい」にしておく。

そこにコマンドボタンを配置して、そのクリック時に下記のコードを記述する。

    DoCmd.SelectObject acForm, "フォーム名"

    DoCmd.RunCommand acCmdApplyFilterSort

あるいは、オートフィルターは諦めて、自前でフィルター機能を実装する。

例えば、下記にサンプルがあります。

複数条件の抽出フォームの設計 その1 - hatena chips

Answer 2

またまたご回答ありがとうございました。

別のフォームを作るのも

自前のフィルター機能の実装も私には到底無理なので

コマンドをクリックする方法でいきたいと思います。

ありがとうございました。

Answer 3

出来ました！

ありがとうございます。

もう一つ教えていただきたいのですが、

教えていただいたＶＢＡを使ってボタンを作り、検索条件を入力しました。

そしてフィルターの実行のボタンも　ボタン作成のウィザードを使って作成したのですが、

押下しても何も起こりません。

フィルターの実行のボタンの作り方を教えていただけませんか？

Answer 4

下記のVBAです。

Docmd.RunCommand acCmdFilterByForm