アクセスでの詳細表示のしかた

質問

新規採用の応募者のＤＢ作成しました。

学校の種別（大学院、大学、高校）や学校名で検索（クエリ）のフォーム（Ａ）に、応募者テーブルを基にしたデータシート型のサブフォーム（Ｂ）を埋め込みました。

ここまでは、学校名の一覧表示のフォーム（Ｏ）に詳細表示用のボタンを配し、マクロで上記のサブフォームを含む、学校情報フォーム（Ａ）を開くのはできました。

次に、このサブフォーム（Ｂ）中の応募者のＩＤ（氏名でも）をダブルクリックすると、応募者の詳細表示フォーム（Ｃ）を表示できるようにしたくて、応募者ＩＤのコントロールのプロパティでイヴェントのダブルクリックにマクロを設定しました。
（Ｃ）フォームを開く　where条件として　［フォーム（B)］！［応募者ＩＤ］＝［フォーム（Ｃ）］！［応募者ＩＤ］としても、左項の値が右項へ代入されず、うまく行きません。

どうしたら、サブフォーム（データシート）の帯び
データから特定のレコードを指定して、更に別のフォーム（特定レコード）の表示が可能なのでしょうか？

不慣れで、説明もままならないこんな私にどなたかＨＥＬＰ！

回答No.1

lively-gon · ベストアンサー

こんにちは

whereの指定の方法に問題があるように思います．
［フォーム（B)］！［応募者ＩＤ］＝［フォーム（Ｃ）］！［応募者ＩＤ］
フォームＣからしてみれば，フォームＢの内容は一切関知しないので，具体的な値を指定
してあげる必要があります．

　DoCmd.OpenForm "フォーム（Ｃ）", , , "[フォーム（Ｃ）]![応募者ＩＤ]=" & フォームＢの応募者ID

という感じにすればできると思います．
仮に，フォームＢの応募者IDが10だったら，[フォーム（Ｃ）]![応募者ＩＤ]=10
という文字列がwhereで渡されることになります．

回答No.5

Gin_F

あ。。失礼しました。

> このサブフォーム（Ｂ）中の応募者のＩＤ（氏名でも）をダブルクリックすると、

サブフォーム内のコントロールのイベントで実行するんですね。
なら、サブフォームを参照させる必要はないです。

他の方の回答でよろしいかと。

回答No.4

Gin_F

サブフォームを使っているのなら、

（応募者IDが数値型の場合）
"応募者ID=" & Me!サブフォームコントロール名.Form!応募者ID

（応募者IDがテキスト型の場合）
"応募者ID='" & Me!サブフォームコントロール名.Form!応募者ID & "'"

かな？

回答No.3

O_cyan

サブフォーム（Ｂ）の応募者ＩＤのフィールドのダブルクリックのイベントに

Private Sub 応募者ＩＤ_DblClick(Cancel As Integer)

Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "フォーム（Ｃ)"

stLinkCriteria = "[応募者ＩＤ]=" & Me![応募者ＩＤ]
DoCmd.OpenForm stDocName, , , stLinkCriteria

End Sub

と記述してみてください。
フォームに抽出条件がなくてもこれで行けるはずです。

回答No.2

snoopy64

ぱっと見ですけど・・・
フォームＣのレコードソースに指定してあるクエリ内で、応募者IDの条件に
=[フォームB]![応募者ID]
でどうですか？
頑張ってくださいヽ(^。^)ノ