ACCESSのCurrentDBにOLEオブジェクトで登録した画像をformにvbaで表示させる方法

Question

前提・実現したいこと

Win10＋access2019で在庫管理システムを開発しています。
実現させたいことは、accessのcurrentDBにOLEオブジェクト型で登録したjpeg画像を
任意のフォームで画像として表示させたいと考えています。
VBAでformOpenを利用して、条件によって、登録したOLEオブジェクト型画像を
選択する仕組みを実現したいです。

SQLで画像を取得して、つぎのように記述しているのですが、
実行時エラー'2220’：
ファイル？？を開くことができません。
となってしまいます。

記述VBA一部
set rs = new adodb.recordset
sql = "select * from 画像テーブル where id = 0 "
rs.Open sql, cn, adOpenKeyset,adLockOptimistic

do until rs.eof
me.Picture = loadPicture(rs!画像)
rs.movenext
loop

発生している問題・エラーメッセージ

実行時エラー'2220’：
ファイル？？を開くことができません。

該当のソースコード

set rs = new adodb.recordset
sql = "select * from 画像テーブル where id = 0 "
rs.Open sql, cn, adOpenKeyset,adLockOptimistic

do until rs.eof
me.Picture = loadPicture(rs!画像) ←　エラーメッセージはここで発生します。
rs.movenext
loop

Answer 1

「画像テーブル」テーブルにOLEオブジェクト型フィールド「画像」があり、そこに画像が格納されているということですね。

loadPictureは画像ファイルをActiveX コントロールに読み込むものですので今回の用途とは別のものです。
LoadPicture メソッド (Access) | Microsoft Docs

フォーム上に表示したいなら、フォームのレコードソースに「画像テーブル」と設定して、
フォーム上に連結オプジェクトフレームとして配置してください。

OLEオブジェクト型フィールドは、重い、ファイルサイズが大きくなる、表示されない場合があるなど、いろいろ問題が多いので、
access2019なら、OLEオブジェクト型フィールドではなく添付ファイル型フィールドに画像を格納した方がいいでしょう。

AC2007以降の帳票フォームで画像表示 - hatena chips

Comments

[mujinjapan]

hatena19さん

回答ありがとうございました。
いただいた情報を元にACCESSのテーブルに添付ファイル式の項目を追加して
VBAでコントールして希望の動作でつぎつぎにフォーム上の画像が差し変わる仕様を実現できました。
当初、フォーム上に作成した連結オブジェクトフレームにフィールドリストから
添付ファイル式のデータを結び付ける方法がわからなかったのですが、
「既存のフィールドの追加」リボンから簡単にドラッグドロップで実現できました。

ちなみに、画像の差し替えは、visibleのtrue、falseの組み合わせで実現できました。
とても助かりました。
改めて、お礼致します。ありがとうございました。