コマンドボタンでレコードソースを変更する方法

質問

• 簡単な方法で、一覧フォームにコマンドボタンを配して「昇順、降順、未設定」の３通りの表示を実現させたい。
• 予め３つのクエリを作成しておき、フォームのコマンドボタンでクエリを切り替えできれば「簡単に実現」できるかもしれない。
• コマンドボタンをクリックした時点でフォームの並び替えに即反映の有無。他の手段についてもアドバイスを受けたい。

回答No.3

chayamati

＞「他の手段について」
　一般的なやり方など、アドバイスがありましたらお願いします。
★あなたの考え方に間違いないので、これを実現するには
　どのようにするかで進めてきましたが、完了まで時間がかかりそうなので
　「自分ならこうする」ということで説明します。
　ゴメンなさい、今までのことは忘れて下さい
＞--------------------------------------------------------------------
・クエリは出来上がっている
・一覧フォームにコマンドボタンを配して「昇順、降順、未設定」の３通りの表示を実現させたい。
・対象ＤＢの数「数十個」が多くできるだけ作業の負担を軽減させたい。
・コマンドボタンをクリックした時点でフォームの並び替えに即反映の有無。
1.出来上がっているクエリにオートナンバー型のフィールドが有ればこれは除去して下さい。
2.テーブルもクエリも全てのフィールドに並び替え(昇順、降順)とフィルタの機能が備わっています
3.たいていのフォームはクエリが内包していますし、
　今あるクエリをフォームのレコードソースにすることも出来ます
4.これが、本番の「自分ならこうする」です
4-1.クエリ名を保存するテーブル「TBLクエリ名」を作成（フィールドは重複なしのクエリ名一つのみ）
　主キーに設定するとユニークなフィールドになりますが、フィールド名の訂正が出来ないので
　フィールドのプロパティーのインデックスで重複なしと定義します。
4-2.空白のフォーム「メニュー」を作成し、ここへ「TBLクエリ名」を
　レコードソースとするコンボボックスを配置しこのボックスのChainge(変更時）
　イベントで該当クエり）を開くVBAを起動する
　作成の流れ（殆どがクリックで進みます
　[作成リボン]→[空白フォーム]→[コンボボックス]→[空白ホームのどこか]
　→[次へ]→[TBLクエリ]→[選択したフィールドへ移動]→[次へ]→[次へ]→[完了]
　→[ボックス外]→[右側のボックス]
　→[その他タグ]→[名前欄のコンボ1をクエリ名と変更]→[左側のボックス]
　→[書式タグの標題をクエリ名と変更]→[右側のボックス]
　→[イベントタグの変更時の右端の…]
　ここでVBAの基本形
　Private Sub()

　End Sub
　が表示されます
　→[Private Sub()の次の行に半角モードで docmd.と入力すると命令文の
　続きがリストされます]→[Openquer]→[クエリ名と入力]
　→[デザインビューを右上隅で閉じる]→[ファイル名をメニューと入力]
以上でメニューフォームの完成です。
5.ファイルを開いたときこのメニューフォームを開くように設定します
　[ファイルリボン]→[オプション]→[現在のデータベース]
　→[フォーム表示でメニューを選ぶ]→[OK]
--------------------------------------------------------------------------
これでクエリが増えても直ぐ対応できますが、DBの数が多いような気がします。
種別等のフィールドを追加することでDBを統合できませんか

補足

アドバイスを頂きまして有難うございます。ご指示の通り作業を進めましたが、異なる所「コマンド表示」がございました。以下のレベルで止まっていますので、ご理解を頂いてのアドバイス「この後の作業手順などですが・・・。」をお願いします。

［オブジェクト（新規作成）］
テーブル名：ＴＬＢクエリ　
フィールド名：クエリ名「オートナンバーフィールドなし」
フォーム名：メニュー「コンボボックス１個 ＝ 名前：クエリ名」

［コンボボックス設定］
コンボボックス「名前：クエリ名」→ イベント「変更時」→ コードビルダ　

（アドバイスの記述では）
Private Sub

End Sub

（実際に表示される記述では）
Private Sub クエリ名_Change()

End Sub

以上ですが、宜しくお願いします。