帳票フォームで製品写真を表示するには?
帳票フォームで製品写真を表示しようとしています。
写真はmdbと同じフォルダ内に作ったphotoという名前のフォルダに
入っています。
写真を読み込むとこまではできたのですが、
全てのレコードの写真が
アクティブになったレコードの製品の写真になってしまいます。
写真を読み込むイベントプロシージャを「レコード移動時」に
設置しているます。単票フォームのときにはレコードを移動するときに
製品のデータも写真も入れ替わるので問題なかったのですが、
帳票フォームにすると製品データが一覧表示されているのに
まず1レコード目の製品の写真が全てのレコードに表示され、
レコードを移動するとどの製品の写真も一斉にアクティブに
なっているレコードの製品の写真になってしまいます。
これでは使えません。
イベントプロシージャを設置する場所が悪いのでは
ないかと思いますがどこに置いたらいいのか分かりません。
ご指導ください。
現在の状況
帳票型の製品一覧フォームの詳細に[写真]というイメージコントロールを置き、
写真の名前は[写真パス]テーブルの[パス]フィールドに入っています。
写真はmdbと同じフォルダ内に作ったphotoという名前のフォルダに
入っています。
製品一覧フォームのレコード移動時に下のイベントプロシージャを
設置しています。
写真の読み込みはうまくいっています。
If IsNull(Me![パス]) = False Then
Me![写真].Visible = True
Forms!製品一覧!写真.Picture = Left(CurrentDb.Name, InStrRev(CurrentDb.Name, "\", , vbTextCompare)) & "photo\" & Forms!製品一覧!パス
Else
Me![写真].Visible = False
End If
お礼
ありがとうございました。おかげさまで解決いたしました。 何日間か見ていたのですが、もうご回答はいただけないものと思って諦めていたので、こちらを見るのが遅くなり、お礼を申し上げるのが今になってしまいました。 ご親切を感謝いたします。