前提・実現したいこと
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
回答1件
あなたの回答
tips
プレビュー
バッドをするには、ログインかつ
こちらの条件を満たす必要があります。
2020/07/28 09:29