Access フォームの非連結テキストボックスにクエリの値を表示したいのですが。。。

Question

http://answers.microsoft.com/ja-jp/office/forum/officeversion_other-access/access%E3%81%A7/7a62036b-8f0d-4a60-b784-35d80c9e3f8a

の続きの作業をしております。

フォームでテーブルに入力するようにしており、フィールド名「Author」に

コンピューター名が自動で入力されるようになりました。

クエリを下記のように作成し、フィールド名「Author」に入力されたコンピューター名を

キーに、フォームの非連結テキストボックスにクエリの「担当者名」を表示したいのですが

上手くいきません。

＜クエリ1＞

フィールド名： | Author　　　| 担当者名

---

テーブル名：　| テーブル1   | テーブル2

非連結のテキストボックス名のコントロールソースで

=DLookUp("担当者名","クエリ1")

として、「担当者名」表示はされているのですが、別の担当者が更新しても更新されません。

実際のクエリはちゃんと更新されているのですが、Requeryかと思い

更新後処理イベント プロシージャに

Private Sub テキスト7_AfterUpdate()

  Me.Requery

End Sub

としてみましたが、更新されずにおります。

どなたかご教示頂けますでしょうか。

よろしくお願い致します。

使用環境

Access2003（XP）、Access2010（Win7）

Answer 1

こんにちは。MukkuMukuです。

非連結のコントロールを追加してあって、これにマシン名を判りやすいように氏名に変えて表示。

非連結のコントロールを追加したところ。

質問の中のクエリについては判りませんから

このような変換用テーブルがあったとして、

テキストボックス:ContactPerson のコントロールソースには、

=DLookUp("ContactPerson","table2","Editor = '" & [Editor] & "'")

ワンテンポ遅れる表示になりますけどね

フォーム単体が前提になっているから、製造するAccessアプリケーションで考えた場合、ログインフォームなど用意してアプリケーション起動時にユーザを確定させておくというのがも手段もありかな

Answer 2

hatena19　様

いつもお世話になっております。

ご回答どうもありがとうございました。

＞クエリ1 の内容、等が不明なので、確実な回答は難しいですが、

返信を考えている間に、クエリの作成方法事態が

間違っている事に気がつきました。

まずは、やり直してみます。

Answer 3

MukkuMuku　様

いつもどうもありがとうございます。

クエリの作成方法が間違っている事に気がつきました

クエリを作成しなおして

テキストボックスのコントロールソースには、

=DLookUp("担当者","クエリ2","Editor = '" & [Editor] & "'")

でちゃんと動作致しました！

Accessって奥が深いですね。。。頑張って勉強したいと思います。

いつも教えて頂いてどうもありがとうございます。

＞フォーム単体が前提になっているから、製造するAccessアプリケーションで考えた場合、ログイン＞フォームなど用意してアプリケーション起動時にユーザを確定させておくというのがも手段もありかな

そうですね。情報漏えい防止策としても必要だと考えますので

チャレンジしてみようと思います。

どうもありがとうございました。

Answer 4

フォームのレコードソース、クエリ1 の内容、等が不明なので、確実な回答は難しいですが、

とりあえず、

Private Sub テキスト7_AfterUpdate()

　　Me.担当者名のテキストボックス名.Requery

End Sub

としてみてください。もちろん「担当者名のテキストボックス名」は実際の名前に変更してくださいね。

それでうまく表示されない場合は、

フォームのレコードソースのテーブル名、フィールド名、

また、クエリ1 のSQL文をご提示ください。