Access サブフォームのコンボボックスに集合体をセットしたい

いつもお世話になります。

サブフォームにあるコンボボックスの値集合体ソースを以下の方法で実現しようとしてます。

VBA
1    テスト用に
2    ConnectSvrDB
3    Sql = "SELECT Value, Neme " _
4            & "FROM table_1 " _
5            & "ORDER BY Order "
6    RS.Open Sql, SvrCn
7    Me.サブフォーム.Controls("コンボボックス1").RowSourceType = "Table/Query"
8    Me.サブフォーム.Controls("コンボボックス1").RowSource = Sql
9    RS.Close
10    Set RS = Nothing
11    DisConnectSvrDB

これでエラーなく表示されるのですが、コンボボックスに値がセットされません。
table_1はサーバーにあって、アクセスからリンクテーブルは設定してません。（※都合上リンクテーブルがNG）

なぜコンボボックスに値がでないのでしょうか？？

これはあくまでクエリをセットしているだけだとうことでしょうか？？

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

回答1件

ベストアンサー

table_1 は外部データベースのテーブルで、リンクテーブルにもしていないということでしょうか。
だとしたら、そのSQLでは参照できません。

RS.Open Sql, SvrCn でレコードセットを開いていますが、RowSource の Sql とは何の関係もない無意味なコードです。

RS.Open Sql, SvrCn で開いたレコードセットをコンボボックスのリストにセットしたいのなら、

vba
1    RS.Open Sql, SvrCn
2    Me.サブフォーム.Controls("コンボボックス1").RowSourceType = "Table/Query"
3    Set Me.サブフォーム.Controls("コンボボックス1").Recordset = rs

RowSourceにSQLを設定したいのなら、IN句で外部接続するようにします。
IN句の記述は下記を参考に。

MDB : IN 句による外部参照

投稿2021/10/22 02:02

hatena19

総合スコア34075

Chandler_Bing

2021/10/22 02:13

なるほど、ありがとうございます。もう少し触ってみて、ダメそうな場合は、また返信させて頂きます。

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

あなたの回答

tips

プレビュー

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

質問の解決につながる回答をしましょう。サンプルコードなど、より具体的な説明があると質問者の理解の助けになります。また、読む側のことを考えた、分かりやすい文章を心がけましょう。

15分調べてもわからないことは
teratailで質問しよう！

ただいまの回答率
85.35%

質問をまとめることで
思考を整理して素早く解決

テンプレート機能で
簡単に質問をまとめる

質問する

質問をすることでしか得られない、回答やアドバイスがある。

15分調べてもわからないことは、質問しよう！

Access サブフォームのコンボボックスに集合体をセットしたい

関連した質問