【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も見ています
-
新NISA制度は今までと何が変わる?非課税枠の拡大や投資対象の変更などを解説!
少額から投資を行う人のための非課税制度であるNISAが、2024年に改正される。おすすめの銘柄や投資額の目安について教えてもらった。
-
Accessコンボボックスにレコードセット代入について質問です。
その他(プログラミング・Web制作)
-
Excel VBA ユーザーフォームのリストボックスにRecordSetの値を入れた際のラベル行
Visual Basic(VBA)
-
Access サブフォームでの選択行の取得
その他(データベース)
-
-
4
フォームを開くときに、コンボボックスの値を選択(アクセスVBA)
Visual Basic(VBA)
-
5
Access VBA SQL文で教えてください
PowerPoint(パワーポイント)
-
6
ACCESSでコンボボックスにSQLで抽出した値を表示したい
その他(データベース)
-
7
【ACCESS】フォーム名/コントロール名を文字列型変数で指定するには
Access(アクセス)
-
8
Accessのテーブルデータを一気にVBAで追加したい・・
その他(データベース)
-
9
日付型のフィールドに空白を入れる方法を教えてください
その他(データベース)
-
10
VBとアクセスでSQL文に変数を使いたいのですが
Visual Basic(VBA)
-
11
2つ目のレコードの値を取得するには?
Access(アクセス)
-
12
Accessでのレコード存在チェック
その他(データベース)
-
13
テキストボックスにクエリ結果を表示させたい
その他(データベース)
-
14
AccessのFormの設定で、開いた時に必ず最大化で表示する方法が分からず困っています
Access(アクセス)
-
15
Accessでリストの並び順を変更したい
Excel(エクセル)
-
16
Accessフォームで詳細内の任意の行へSetFocus
Excel(エクセル)
-
17
select文の戻り値を変数に格納したい。
Visual Basic(VBA)
-
18
Accessのコンボボックスでリストが選択できない
Word(ワード)
-
19
アクセスVBAで既に開いているエクセルを閉じたい
Yahoo!ショッピング
-
20
vba listviewにおけるtextのAlingmentを中央にしたい
Excel(エクセル)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
お金持ちのテーブル
-
会社の飲み会の幹事になり、座...
-
「テーブルに座って……」という...
-
外部キーだけのテーブル(主キ...
-
テーブルリンク リンク元を知...
-
複数テーブルにわたるCOUNT
-
L2SWはARPテーブルを持っている?
-
MySQLで複数テーブルを作成する
-
テーブル所有者、スキーマ所有...
-
SQL 外部結合
-
包丁が危険
-
アクセスのリンクテーブル一覧...
-
MACアドレス見えない
-
論理名とコメント構文(?)について
-
【PHP】SQL文のSUM関数で出力し...
-
【SQL】グループ化した際の最頻...
-
テーブルの白く剥がれてるところに
-
ダイニングテーブルの真上に来...
-
まるいテーブル 円い 丸い 漢字...
-
リレーションシップが出来ません。
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
会社の飲み会の幹事になり、座...
-
テーブルリンク リンク元を知...
-
L2SWはARPテーブルを持っている?
-
テーブルの白く剥がれてるところに
-
飲み会で、座敷orテーブルどち...
-
まるいテーブル 円い 丸い 漢字...
-
1つのテーブルに同じデータを参...
-
このテーブルで
-
置き配された食べ物を袋からど...
-
外部キーだけのテーブル(主キ...
-
【PHP】SQL文のSUM関数で出力し...
-
「テーブルに座って……」という...
-
男性と2人で飲食店に行きテーブ...
-
アクセスのリンクテーブル一覧...
-
一致するデータのみ削除したい
-
論理名とコメント構文(?)について
-
ACCESSで3ファイルを結合して、...
-
MySQLで複数テーブルを作成する
-
複数テーブルにわたるCOUNT
-
SQL 外部結合
おすすめ情報