Microsoft AccessのサブフォームでSELECT文で指定した項目のみを出力したい

実現したいこと

Access VBAで記述したSQLのSELECT文で指定した項目のみ、サブフォームへ検索結果を出力したいです。

ちなみに、フォームヘッダーに配置した検索ボタンを押すと最終的に「該当のソースコード」が走るようにしております。

発生している問題・分からないこと

現状、検索結果はサブフォームのソースオブジェクト（クエリを指定してます）で「表示」と設定した項目が固定となってしまいます。

例えば、クエリで「表示」としているのがA, B, C項目　VBAで作成したSQLが SELECT A, B　FROM ~
とすると、検索結果の項目名はA, B, Cで固定され、SELECT文で指定していない項目Cは
すべて空欄で表示されます。

実現したいことは、検索結果の項目名をA, Bのみにすることです。

※チェックボックスA, Bを選択したら、SELECT A, B　~ の文字列を生成するように実装済みです。
同様にA, Cを選択したら、検索結果に項目A, Cだけを表示するようにしたいです。

該当のソースコード

SQL
1strSQL = 【生成したSQL文】
2Me.サブフォーム名.Form.RecordSource = strSQL

試したこと・調べたこと

teratailやGoogle等で検索した
ソースコードを自分なりに変更した
知人に聞いた
その他

上記の詳細・結果

ChatGPTに聞くと、sql文が間違っていると指摘されましたが、違いそうです。

補足

クエリをソースオブジェクトに指定している理由は、リレーションされた別テーブルのデータを検索結果に表示したいからです。

行動規範の内容に同意します

回答1件

ベストアンサー

うまくいかない原因

セブフォームコントロールのソースオプジェクトにクエリを設定すると、フォームを開くときにクエリから自動でフォームを生成してそれをサブフォームに設定していると思われます。
Me.サブフォームコントロール名.Form が参照できることからFormオブジェクトが生成されていると推測できます。

そのFormオブジェクトの RecordSource を変更しても、Formオブジェクトが再生成されるわけではないので、最初に読み込んだときのデザインのままだと思われます。

※(動作から見ての推測ですので実際はどうかはMSのAccessの開発者にしか分かりませんが)

対処法

ソースオプジェクトに設定しているクエリのSQLを書き換えて、ソースオプジェクトを再設定することで、Formオブジェクトが再生成されて、SQLで指定した表示になる。

コード例

vba
1    Dim qd As DAO.QueryDef
2    Dim orgSQL As String
3    Set qd = CurrentDb.QueryDefs("クエリ1")
4    orgSQL = qd.SQL '元のSQLを保存しておく
5    
6    qd.SQL = "【生成したSQL文】"
7    
8    'SourceObjectの再設定
9    Me.埋め込み0.SourceObject = ""
10    Me.埋め込み0.SourceObject = "クエリ.クエリ1"
11    
12    '元のSQLに戻しておく
13    qd.SQL = orgSQL
14