![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?c9bd177)
【Access2013/VBA】
■テーブル構成
【分析テーブル】
・分析ID(主キー)
・依頼ID(外部キー)
・会社ID
【会社管理テーブル】
・会社ID(主キー)
・会社名
■コード
Dim Rst As DAO.Recordset
Dim Db As DAO.Database
Dim SQL As String
Dim lngID As Long
Dim FlgWinLoad As Boolean
Me.FlgWinLoad = modPub.FlgWindowLoading
lngID = modPub.Selected依頼ID
'コンボボックスの設定
SQL = "SELECT DISTINCT [分析テーブル].[会社ID] as [会社ID1], "
SQL = SQL & " [分析テーブル].[依頼ID], "
SQL = SQL & " [会社管理テーブル].[会社ID] AS [会社ID2], "
SQL = SQL & " [分析テーブル].[会社ID] AS [会社ID3], "
SQL = SQL & " [会社管理テーブル].[会社名] "
SQL = SQL & "FROM [分析テーブル] LEFT JOIN [会社管理テーブル] ON "
SQL = SQL & " [分析テーブル].[会社ID] = [会社管理テーブル].[会社ID] "
SQL = SQL & "where [依頼ID]=" & lngID & " "
SQL = SQL & "ORDER BY [分析テーブル].[依頼ID] "
Set Db = CurrentDb
Set Rst = Db.OpenRecordset(SQL, dbOpenDynaset)
If Rst.EOF = True And Rst.EOF = True Then
GoTo errH
End If
Me.cmbo会社ID.ColumnCount = 5
Me.cmbo会社ID.ColumnWidth = "1cm;1cm;1cm;3cm;3cm"
Me.cmbo会社ID.RowSource = "会社ID1;依頼ID;会社ID2;会社ID3;会社名"
Me.cmbo施工会社ID.RowSourceType = "テーブル/クエリ"
Set Me.cmbo施工会社ID.Recordset = Rst.Clone
■コード の終わり
エラーになりませんが、画面でコンボボックスのリストが空になります。
解決方法を教えて頂きたいと思います。
よろしくお願いします。
No.1ベストアンサー
- 回答日時:
Me.cmbo会社ID.RowSource = "会社ID1;依頼ID;会社ID2;会社ID3;会社名"
Me.cmbo施工会社ID.RowSourceType = "テーブル/クエリ"
"会社ID1;依頼ID;会社ID2;会社ID3;会社名"
↑
少なくとも、これはテーブルでもクエリでもない。
次のサイトが参考になるかもです。
http://www.moug.net/tech/acvba/0060002.html
ご回答ありがとうございました。
実は、この質問を上げた後に、自分で解決出来ました。
やり方は、凄く簡単で何だ、こんなことか・・・と思いましたが
Me.cmbo会社ID.RowSource = SQL
これだけでした。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Oracle sqlで質問です。 aテーブルとbテーブルがあり、下記のsqlで取得したidとnameに一致しないレ 1 2022/04/20 20:34
- SQL Server ACCESSで表が作りたく、そのためのSQL文や設定方法を教えてください。 1 2022/08/15 12:28
- Oracle sqlで質問です。 Aテーブルの情報をBテーブルに更新かけたいです。 やりたいことは、Bテーブルの受 1 2023/05/17 11:17
- SQL Server [SQLServer] テーブル名からカラム名を取得する 1 2022/08/23 21:20
- Oracle sqlで質問です。 idを元にidに紐付くデータで住所コードがjpのみのデータ以外のidを取得したい 4 2023/03/20 17:41
- Access(アクセス) アクセス テーブルの空白を変数に置換するボタンが作りたい 4 2022/07/08 11:19
- PostgreSQL 画像とカテゴリーを出力したいのですが、取得の条件を付ける方法がわかりません。 2 2022/05/01 18:03
- SQL Server ACCESSで3ファイルを結合して、表を作成するやり方を教えて下さい。 17 2022/08/15 20:34
- Access(アクセス) アクセス 削除するレコードを含んだテーブルを指定してくださいのエラー対処方法 1 2022/11/24 15:01
- SQL Server ACCESSで複数テーブルを結合して、リストを作る方法を教えてください。 2 2022/08/12 19:32
このQ&Aを見た人はこんなQ&Aも見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
Accessコンボボックスにレコードセット代入について質問です。
その他(プログラミング・Web制作)
-
Excel VBA ユーザーフォームのリストボックスにRecordSetの値を入れた際のラベル行
Visual Basic(VBA)
-
-
4
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
5
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
6
ADOでRecordsetオブジェクトをレコードソースに設定したい
その他(データベース)
-
7
AccessのFormの設定で、開いた時に必ず最大化で表示する方法が分からず困っています
Access(アクセス)
-
8
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
9
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
10
Access コンボボックスの値をクリアしたい。
PowerPoint(パワーポイント)
-
11
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
12
ADOのCursorLocationプロパティ
Visual Basic(VBA)
-
13
Access VBA SQL文で教えてください
PowerPoint(パワーポイント)
-
14
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
15
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
16
Access サブフォームでの選択行の取得
その他(データベース)
-
17
Accessフォームで詳細内の任意の行へSetFocus
Excel(エクセル)
-
18
レコードセットで得た結果をサブフォームに出力したい
その他(データベース)
-
19
ACCESSでfilterとorderbyについて
その他(データベース)
-
20
どこにもフォーカスを当てたくない
Access(アクセス)
関連するカテゴリからQ&Aを探す
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
外部キーだけのテーブル(主キ...
-
L2SWはARPテーブルを持っている?
-
テーブルリンク リンク元を知...
-
「テーブルに座って……」という...
-
会社の飲み会の幹事になり、座...
-
男性と2人で飲食店に行きテーブ...
-
件数の多い順にselect
-
まるいテーブル 円い 丸い 漢字...
-
SQLです!!教えてください。あ...
-
確率の問題について 12人の生徒...
-
コンボボックスにレコードセッ...
-
データベースの接続に失敗して...
-
テーブル(構造)のコピー
-
Excelのテーブルでmatch関数の...
-
データ型の変更
-
AccessVBA でテーブルをインポ...
-
MySQLで複数テーブルを作成する
-
論理名とコメント構文(?)について
-
複数のCSVファイルの一括インポ...
-
SQL 現在のレコードより古い番...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
L2SWはARPテーブルを持っている?
-
外部キーだけのテーブル(主キ...
-
fetch_arrayでのエラー
-
テーブルリンク リンク元を知...
-
男性と2人で飲食店に行きテーブ...
-
会社の飲み会の幹事になり、座...
-
SQLです!!教えてください。
-
面接のときテーブルが正面に。...
-
飲み会で、座敷orテーブルどち...
-
「テーブルに座って……」という...
-
複雑なSQL文について
-
このテーブルで
-
MySQLで複数テーブルを作成する
-
アクセスのリンクテーブル一覧...
-
ちょっとぐらいの時間なら里山...
-
SQLでテーブルの値を集計して、...
-
件数の多い順にselect
-
論理名とコメント構文(?)について
-
【PHP】SQL文のSUM関数で出力し...
-
オーダーの覚え方について
おすすめ情報