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

Question

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

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

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

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

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

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

Answer 1

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

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

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

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

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

MDB : IN 句による外部参照

Comments

[Chandler_Bing]

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