Access VBA質問箱 IV

当質問箱は、有志のボランティア精神のおかげで成り立っています。
問題が解決したら、必ずお礼をしましょうね。
本サイトの基本方針をまとめました。こちらをご一読ください。

投稿種別の選択が必要です。ご注意ください。
迷惑投稿防止のため、URLの入力を制限しています。ご了承ください。


	新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム

9837 / 9994

←次へ　｜　前へ→


	【3293】Re:レポートに画像を出力する方法

こもれび - 04/8/22(日) 7:49 -


	引用なし

	パスワード

こもれびです

CSVのデータが次の場合を例に回答します。
ポイントのみを記述しますので、不明点がありましたら
引き続きご質問願います。

○　CSVファイル（picture.csv）の中身

id,data
1,F:\でんこ.jpg

（　回答とは関係ありませんが、「でんこ」とは東京電力のでんこちゃんです　）

このCSVファイルをテーブルリンク若しくはインポートします。

今回の例ではリンクとしました。

○　Reportのソースコード

Private Sub Report_Open(Cancel As Integer)

　　Dim sql01 As String
　　Dim cn As New ADODB.Connection
　　Dim rs As New ADODB.Recordset
　　
　　Set cn = CurrentProject.Connection

　　sql01 = "SELECT * FROM picture ;"
　　
　　rs.Open sql01, cn, adOpenKeyset, adLockReadOnly
　　
　　Me!Image01.Picture = rs!Data
　　
　　rs.Close: Set rs = Nothing
　　cn.Close: Set cn = Nothing

End Sub

496 hits

▼

【3286】レポートに画像を出力する方法 morik 04/8/20(金) 13:34