関連テーブルのテキストボックスのデフォルト値を設定する

Question

私はアクセスVBAで自分自身を教えています。私はこれを今の年齢で把握しようとしていますが、動作させることはできません。どんなアドバイスも本当に感謝しています。

私はstaffテーブルとこのテーブルにバインドされているフォームfrmStaffのデータベースを持っています。 tblStagesと呼ばれる第2のテーブルもあり、そこには各職員の指導段階が記録されています。これらのテーブルはstaffIDフィールドに関連しています。

現在のレコードのスタッフメンバーの現在のコーチングステージを表示するフォームにテキストボックスを追加しようとしています（サブフォームの使用を避けようとしています）。私は以下のように、このテキストボックスのデフォルト値を設定している：

DLookup("[stage]", "[tblStages]", "[staffID] = '" & [Forms]![frmStaff]![txtStaffID] & "' AND isnull([endDate])") 

しか段階endDateがnullで、各スタッフのための1つのレコードがあります。このDlookupはvbaエディタで完全に機能しますが、テキストボックスのデフォルト値として設定すると機能しません。これは、フォームが開く前にデフォルト値を見つけようとしているため、txtStaffIDコントロールが空であるためです。

この問題を正しく説明していただければ幸いです。誰かが正しい方向に私を指すことができれば、私は信じられないほど感謝しています。ありがとう

Answer 1

がqrfrmStaffという名前のクエリを作成します。

SELECT staff.*, tblStages.stage AS Stage 
FROM tblStages INNER JOIN staff on tblStages.staffID = staff.staffID 
WHERE tblStages.endDate Is Null 

はqrfrmStafffrmStaffとしてレコードソース、およびstageてtextBoxのコントロールソースを持っています。

query is not read only！