Accessの1つのサブフォームで複数のクエリを発行して描画したい

Question

前提・実現したいこと

Accessのサブフォームを使って、テーブルの検索を行いたい

発生している問題・エラーメッセージ

現在サブフォームを開いた時に
"SELECT ID, 名前, 性別, 年齢, 住所 FROM 従業員TBL"

というクエリを発行してサブフォームに表示しています。
フォーム内にあるボタンを押すと列数を変えて条件抽出する事をやりたいです。

該当のソースコード

Private Sub コマンド0_Click()

    Me.サブフォーム.Form.RecordSource = "SELECT 名前, 年齢, 住所 FROM 従業員TBL"
End Sub

こちらのようなコードをいれるとこのような状態になってしまいます。

空欄の列を除外してサブフォームに描画し直すにはボタンにはどのようなコードを書けば良いでしょうか？

詳しい方いらっしゃいましたらご教授願います。
よろしくお願いいたいます。

試したこと

ReQueryメソッドや、Reflashメソッドを使ってみるもよく分からず。

補足情報（FW/ツールのバージョンなど）

ここにより詳細な情報を記載してください。

Comments

[hatena19]

FROM句のテーブル名が変わってますが、列の表示/非表示だけでいいのですか。
それとも列名(フィールド)自体も変わるのですか。

Answer 1

列の表示/非表示だけなら ColumnHiddenプロパティを使えばいいでしょう。

TextBox.ColumnHidden プロパティ (Access) | Microsoft Docs

追記

コメントで、列名(フィールド名)もその都度変わるとのことでしたので、
フォームを使っていてはコントロールソースを変更したりなど、いろいろと面倒です。

データシートビューでいいのなら、サブフォームのソースオプジェクトに直接クエリを設定することが可能ですので、仮のクエリを作っておいて、そのクエリのSQLを変更して、ソースオプジェクトに設定すればいいでしょう。

事前に適当なテーブルからクエリを作成しておきます。（SQLを書き換えるのでなんでもOKです。）
名前は Q_FSrc とします。

Private Sub コマンド0_Click()
    Dim qd As QueryDef
    Set qd = CurrentDb.QueryDefs("Q_FSrc")
    qd.sql = "SELECT 名前, 年齢, 住所 FROM 従業員TBL;"
    Me.サブフォーム.SourceObject = ""
    Me.サブフォーム.SourceObject = "クエリ.Q_FSrc"
End Sub

Comments

[ataru2222]

hatena19さん
いつもありがとうございます。

ちなみに業務で行っているので、今回はサンプルコードで質問させていただいたのですが、実勢のコードを見てきたところGROUPBYで集約してAS句で列名変更しておりました。

同じテーブル、同じ列名だとColumnHiddenプロパティでいけると思うのですが、もし同じテーブル、違う列名のクエリをサブフォームで発行する場合どのようにしたらよいでしょうか？

お分かりになりましたらよろしくお願いいたします。

[hatena19]

追記しましたので、参照ください。

[ataru2222]

解答していただきありがとうございました。
まだまだサブフォームの使いかたに慣れておりませんが
今後も勉強していきます。

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