Access VBA質問箱 IV

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

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


9259 / 9994 ←次へ | 前へ→

【3876】Re:コンボボックスの連携がうまくいきません
質問  なべなべ  - 04/11/19(金) 21:58 -

引用なし
パスワード
   返信ありがとうございます。しかしながら今一歩のところでうまく行き
ませんでした。

テーブル:部署マスタ
 部署ID:数値型 (主キー)←オートナンバーにしました
 部署名:テキスト型

テーブル:社員マスタ
 社員ID:数値型(主キー)←オートナンバーにしました
 社員名:テキスト型
 部署ID:数値型 ←ルックアップウィザードで作成しました。

部署選択用コンボボックスはご指示通り作成しました。
担当者選択用コンボボックスはご指示通り作成しましたが、担当者名
が空白になったので次のように修正したところ、表示されるようには
なりました。

SELECT [社員マスタ].[社員ID], [社員マスタ].[社員名] FROM 部署マスタ INNER JOIN 社員マスタ ON [部署マスタ].[部署ID]=[社員マスタ].[部署ID] WHERE ((([部署マスタ].[部署ID])=[Forms]![フォームA]![cmb部署]));

更新後処理もご指示通り作成しました。

これで部署名を選択すると担当者名がプルダウンで表示されるようには
なったのですが、選択することができません。

あと一歩だと思うのですが、よい解決策はないものでしょうか?

あと、部署名をプルダウンした場合、オートナンバーと部署名の両方が見える
ようになり、選択するとオートナンバーが表示されます。これを部署名のみに
したいのですが、良い方法はないものでしょうか?

以上、いろいろとありますが、ご協力をよろしくお願い申し上げます。


>2つのコンボボックスが同フォーム(仮にフォームAとします)上に
>あると仮定します。
>
>テーブル:部署マスタ
> 部署ID:数値型 (主キー)
> 部署名:テキスト型
> ※予めレコードを入れておくこと
>
>テーブル:社員マスタ(担当者マスタでも可)
> 社員ID:数値型(主キー)
> 社員名:テキスト型
> 部署ID:数値型
> ※予めレコードを入れておくこと
>
>部署選択用コンボボックスをウィザードで作成してください。
>作成後、プロパティの「名前」を「cmb部署」としてください。
>同プロパティで以下を確認してください。
>値集合タイプ:テーブル/クエリ
>値集合ソース:部署マスタ…テーブル名です。
>列数:2
>連結列:1
>
>担当者選択用コンボボックスを作成します。
>ウィザードで初めに開くダイアログでキャンセルを押してください。
>コンボボックスがフォーム上にできので、プロパティに...
>名前:cmb担当者
>値集合タイプ:テーブル/クエリ
>値集合ソース:SELCT 社員ID, 社員名 FROM 社員マスタ WHERE 部署ID = Forms!フォームA!部署ID
>列数:2
>連結列:1
>とします。
>※このときフォーム上に社員名を表示したいなら非連結テキストボックスを作成し
> コントロールソースを「=cmb担当者.Column(1)」としてください。
>
>最後に部署選択用コンボボックスのプロパティ/イベント/「更新後処理」に
>Me.cmb担当者.Requery
>とすればできあがりです。
1,123 hits

【3872】コンボボックスの連携がうまくいきません なべなべ 04/11/18(木) 21:37 質問
【3874】Re:コンボボックスの連携がうまくいきません クロ 04/11/19(金) 9:21 回答
【3876】Re:コンボボックスの連携がうまくいきません なべなべ 04/11/19(金) 21:58 質問
【3877】Re:コンボボックスの連携がうまくいきません クロ 04/11/19(金) 23:26 回答
【3879】Re:コンボボックスの連携がうまくいきません なべなべ 04/11/21(日) 21:13 質問
【3880】Re:コンボボックスの連携がうまくいきません クロ 04/11/22(月) 10:50 回答
【3883】Re:コンボボックスの連携がうまくいきません なべなべ 04/11/23(火) 5:43 お礼

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