Access2002 SP2を利用しています。

質問

Access2002 SP2を利用しています。
マスタを２つ作成いたしました。
所属マスタ(支社CD、課CD、課名)、職員マスタ(支社CD、課CD、職員CD、職員名)
あるフォームでコンボボックスより選択できるように作成。
２つのマスタをクエリで、支社CDと課CDを結合。
フォームで所属マスタのある課をコンボボックスより選択したら、職員マスタのコンボボックスを開いた際に所属マスタで選択した課に所属している職員が表示されるようにしました。
しかし、所属マスタで課を変更しても、職員マスタのコンボボックスで開いた職員が最初に所属マスタで選択した課の職員が表示されてしまいます。
所属マスタの課を変更した際に職員マスタのコンボボックスを開いた際にそれに対応した職員が表示されるようにするには、どうしたら良いのでしょうか？

回答No.5

sykt1217 · ベストアンサー

＃2です。

＞SELECT DISTINCTROW 職員マスタ.職員CD, 職員マスタ.職員名 FROM 職員マスタ INNER JOIN 所属マスタ ON (職員マスタ.支社CD = 所属マスタ.支社CD) AND (職員マスタ.課CD = 所属マスタ.課CD) WHERE (((所属マスタ.課CD)=[Forms]![F_メニュー]![受付課CD])) ORDER BY 職員マスタ.職員CD;Forms!職員マスタ!Requery
としてみましたが、「SQL ステートメントの後に文字が見つかりました」とメッセージが返ってきてしまいました。
＞書き方がまずいのでしょうか・・・

すみません。私の書き方が悪かったです。

SELECT～はSQL文と言い、テーブルのデータを持ってくる際に使います。

私が＃2で言った
＞所属マスタの登録・変更処理を行った最後に
の「最後に」というのは質問文の
＞所属マスタで課を変更しても
の「変更の処理の後（最後）に」ということです。

「フォームモジュール（VBA）に書いてみてください」ということです。

お礼

遅くなってしまい、申し訳ございません。
ご親切にありがとうございました。
時間がなく、まだ試しておりませんが、ご指導いただいた方法を試してみます。
本当にありがとうございます。

回答No.6

kmetu

> としてみましたが、「SQL ステートメントの後に文字が見つかりました」とメッセージが返ってきてしま> いました。
> 書き方がまずいのでしょうか・・・

SQLに書くのではなくて
所属マスタで課の更新後処理のVBAコードに
Forms!職員マスタ!コンボボックス.Requery
を記載してください。

お礼

遅くなってしまい、申し訳ございません。
ご親切にありがとうございました。
時間がなく、まだ試しておりませんが、ご指導いただいた方法を試してみます。
本当にありがとうございます。

回答No.4

kmetu

> 初心者なもので。おっしゃっている「所属マスタで課を変更後に職員マスタのコンボボックスを
> Requeryしてみてください。」とは、どのようにすればよろしいのでしょうか。

具体的なコントロールの名前が分かりませんので

Forms!職員マスタ!コンボボックス.Requery

こんな感じです。

お礼

回答ありがとうございます。
SELECT DISTINCTROW 職員マスタ.職員CD, 職員マスタ.職員名 FROM 職員マスタ INNER JOIN 所属マスタ ON (職員マスタ.支社CD = 所属マスタ.支社CD) AND (職員マスタ.課CD = 所属マスタ.課CD) WHERE (((所属マスタ.課CD)=[Forms]![F_メニュー]![受付課CD])) ORDER BY 職員マスタ.職員CD;Forms!職員マスタ!Requery
としてみましたが、「SQL ステートメントの後に文字が見つかりました」とメッセージが返ってきてしまいました。
書き方がまずいのでしょうか・・・

回答No.3

sykt1217

#2です。

＞所属マスタで課を変更しても、職員マスタのコンボボックスで開いた職員が

っとありますが、この二つはフォームですか？
フォームであった場合、それは同時期に開いているのですか？

もし同時期に開いている場合、所属マスタの登録・変更処理を行った最後に
#1様の仰るように
＞Requery
を
Forms!職員マスタ!Requery
として一文を書いてやるか、もしくは
Forms!職員マスタ!Refresh
の一文を加えて下さい。

お礼

回答ありがとうございます。
SELECT DISTINCTROW 職員マスタ.職員CD, 職員マスタ.職員名 FROM 職員マスタ INNER JOIN 所属マスタ ON (職員マスタ.支社CD = 所属マスタ.支社CD) AND (職員マスタ.課CD = 所属マスタ.課CD) WHERE (((所属マスタ.課CD)=[Forms]![F_メニュー]![受付課CD])) ORDER BY 職員マスタ.職員CD;Forms!職員マスタ!Requery
としてみましたが、「SQL ステートメントの後に文字が見つかりました」とメッセージが返ってきてしまいました。
書き方がまずいのでしょうか・・・

回答No.2

sykt1217

コンボボックスのコントロールソースに引っ張ってきた一覧を挿入してるんですよね？
それはどのタイミングですか？

ちょっとソースがないとわかりにくいです。

ちなみに、フォームモジュールで
Me.Refresh
この一文をコントロールソースに値を挿入した後に入れてやっても変わりませんか？

お礼

早速の回答ありがとうございました。
初心者というか、素人なもので、質問の仕方が不十分で申し訳ございません。

因みに職員マスタのコンボボックスのプロパティで、値集合ソースに下記を書き込んでおります。

SELECT DISTINCTROW 職員マスタ.職員CD, 職員マスタ.職員名 FROM 職員マスタ INNER JOIN 所属マスタ ON (職員マスタ.支社CD = 所属マスタ.支社CD) AND (職員マスタ.課CD = 所属マスタ.課CD) WHERE (((所属マスタ.課CD)=[Forms]![F_メニュー]![受付課CD])) ORDER BY 職員マスタ.職員CD;

回答No.1

kmetu

所属マスタで課を変更後に職員マスタのコンボボックスをRequeryしてみてください。

お礼

早速の回答ありがとうございました。

初心者なもので。おっしゃっている「所属マスタで課を変更後に職員マスタのコンボボックスをRequeryしてみてください。」とは、どのようにすればよろしいのでしょうか。
ご教授いただければ幸いです。