Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちら をご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


8300 / 9994 ←次へ | 前へ→

【4872】Re:コンボボックスについて
質問  木村義春  - 05/4/11(月) 20:05 -

引用なし
パスワード
   ▼小僧 さん:

ご返信頂きまして、感謝しております!
お忙しいところ、本当に申し訳なく思っております。
フォーム上でもやりたいと思ったんで助かりました。

下記のやり方は、フォーム上でコンボボックスとテキストボックスが
存在して、コンボボックスをT_所属の[所属]を元に選択したら、自動的に
番号が入力される考えですよね。

>フォームのコントロールソースが「T_アドレス」で
>
>コンボボックス  「所属コンボ」 
>テキストボックス 「番号テキスト」
>が存在すると仮定します。
>
>所属コンボ:
>コントロールソース:所属
>値集合ソース   :SELECT T_所属.所属 FROM T_所属;
>
>番号テキスト:
>コントロールソース:番号
>
>として、
>
>Private Sub 所属コンボ_AfterUpdate()
>  Me.番号テキスト.Value = DLookup("番号", "T_所属", _
>              "[所属] = '" & 所属コンボ.Value & "'")
>End Sub

私がやりたいのはその逆でテーブルです。
つまり、小僧さんがフォーム上で実施した場合のやり方と同じですが、
T_アドレスの[所属]をコンボボックスで選択する。
テーブルをデザインビューで開いて、ルックアップのところに
表示コントロールがあるので、それをテキストからコンボに変更したんです。

そのコンボボックスは、T_所属の[所属]から選択するものとして、
選択したら、選択した内容にあわせて、番号を自動入力したいのです。

T_アドレス
ID 性 名 番号 所属 会社名 住所
1    100 A  ・・・・
2    100 A
3    200 B
4    200 B
5    300 C
       ↑コンボボックスで選択(T_所属の[所属]から)
     ↑T_所属で定義された番号が自動入力

並び替えの時に役立つんで。

T_所属

番号 所属
100 A
200 B
300 C
400 D
500 E

テーブルのルックアップに
値集合タイプ:テーブル/クエリ
値集合ソース:SELECT [T_所属].[所属] FROM T_所属;
としたんですが、単純に所属だけ表示され、選択するだけになります。
番号は自動入力されません。それを実現したいのです。

小僧さんが記述して頂いたプログラムを、
SQL文で表現するとどのように記述するんでしょうか?

教えてください。宜しくおねがいしますー。

429 hits

【4862】コンボボックスについて 木村義春 05/4/10(日) 23:06 質問
【4863】Re:コンボボックスについて 木村義春 05/4/10(日) 23:08 質問
【4868】Re:コンボボックスについて 小僧 05/4/11(月) 13:09 回答
【4872】Re:コンボボックスについて 木村義春 05/4/11(月) 20:05 質問
【4874】Re:コンボボックスについて クマゴロー 05/4/11(月) 23:01 回答
【4876】Re:コンボボックスについて 木村義春 05/4/12(火) 5:37 発言
【4879】Re:コンボボックスについて 小僧 05/4/12(火) 10:45 発言
【4882】Re:コンボボックスについて 木村義春 05/4/12(火) 19:51 発言
【4894】Re:コンボボックスについて 木村義春 05/4/13(水) 21:05 発言
【4895】Re:コンボボックスについて 木村義春 05/4/13(水) 22:14 発言
【4896】Re:コンボボックスについて 小僧 05/4/14(木) 10:50 発言
【4897】Re:コンボボックスについて 木村義春 05/4/14(木) 20:01 発言
【4898】Re:コンボボックスについて 小僧 05/4/15(金) 11:17 回答
【4908】Re:コンボボックスについて 木村義春 05/4/15(金) 20:51 発言

8300 / 9994 ←次へ | 前へ→
ページ:  ┃  記事番号:
1078230
(SS)C-BOARD v3.8 is Free