Access VBA質問箱 IV

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

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

  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2233 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
▼ 【3286】レポートに画像を出力する方法 morik 04/8/20(金) 13:34 質問[未読]
【3293】Re:レポートに画像を出力する方法 こもれび 04/8/22(日) 7:49 回答[未読]
【3299】Re:レポートに画像を出力する方法 morik 04/8/23(月) 8:56 質問[未読]
【3300】Re:レポートに画像を出力する方法 こもれび 04/8/23(月) 9:54 回答[未読]
【3303】Re:レポートに画像を出力する方法 morik 04/8/23(月) 16:02 質問[未読]
【3304】Re:レポートに画像を出力する方法 こもれび 04/8/23(月) 17:24 発言[未読]
【3334】Re:レポートに画像を出力する方法 morik 04/8/26(木) 10:58 お礼[未読]
【3286】レポートに画像を出力する方法
質問  morik  - 04/8/20(金) 13:34 -
引用なし
パスワード
   いつもお世話になっております。

レポート機能についてご質問があるのですが。

現在CSVデータを元にレポートに出力しているのですが、
CSVデータに画像名（bmp,gif,jpg,tif）が入ってきた場合にレポートにその画像を出力することは可能でしょうか？

どなたか対処法をご存知の方よろしくお願い致します。
【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
【3299】Re:レポートに画像を出力する方法
質問  morik  - 04/8/23(月) 8:56 -
引用なし
パスワード
   ▼こもれび さん：
回答ありがとうございます。
引き続きご質問があるのですが。

前回教えていただいたソースを実行してみましたらImage01フィールドが見つかりませんと怒られてしまいました。

Picture→テーブル名
picture→CSV名
でよろしいでしょうか？

あと追加でご質問なのですが、今回のCSVに入るデータはIDごとに表示させるレポートの背景と画像（2種類）を変えたいのですが可能でしょうか？

初歩的な質問ばかりですみません。

以上、よろしくお願い致します。
【3300】Re:レポートに画像を出力する方法
回答  こもれび  - 04/8/23(月) 9:54 -
引用なし
パスワード
   こもれび　です

>前回教えていただいたソースを実行してみましたらImage01フィールドが見つかりませんと怒られてしまいました。

レポートのデザインでツールボックスから「イメージ」を選び貼り付けたかと思うのですが、貼り付けた後にオブジェクトの名前をデフォルトの名前「イメージx」（xは数字）を
Image01に変更されましたでしょうか?
これが変更されていないとエラーになります。
　その前に･･･レポートのデザインでイメージオブジェクトを貼り付けますと、ファイル
選択を聞いてきますので、レポートデザインの所定の大きさよりも小さい画像を適当に
選びイメージ枠を修正しておきます。（デザインの時に選ぶ画像はダミーということです）
ここで画像を選んでおかないとイメージ枠そのものがキャンセルとなってしまいます。

私が考えるところ、今回のエラーは上の２つのうちのどちらかではないかなと思います。

>Picture→テーブル名
>picture→CSV名
>でよろしいでしょうか？

picture.csvファイルのリンクで、リンクテーブル名はpictureになっています。
SQL文のpictureが該当します
sql01 = "SELECT * FROM picture ;"

次のソースコードのPictureはイメージオブジェクトのPictureという名前の
プロパティです。
Me!Image01.Picture = rs!Data

>あと追加でご質問なのですが、今回のCSVに入るデータはIDごとに表示させるレポートの背景と画像（2種類）を変えたいのですが可能でしょうか？

「画像選択設定」のフォームを用意しておいて、そのフォームに配したコントロール
の操作によって印刷データを変更するということが考えられます。
【3303】Re:レポートに画像を出力する方法
質問  morik  - 04/8/23(月) 16:02 -
引用なし
パスワード
   こもれびさん度々すみません。

前回教えていただいた方法でレポートを表示することは出来ました。
しかしCSVデータが複数ある場合でもレポートは1ページしか表示できません。
CSVデータには画像＆背景のアドレスと処理（印字）データが乗っかってきます。
レポートを複数ページ表示（プレビュー・印刷）する方法がありましたら教えていただけませんでしょうか？

初歩的な質問ばかりで申し訳ございません。

よろしくお願い致します。
【3304】Re:レポートに画像を出力する方法
発言  こもれび  - 04/8/23(月) 17:24 -
引用なし
パスワード
   こもれびです

先の回答ではCSVデータ入力と画像ファイル呼び出し印刷の技術的な要素
を回答しました。
morik さんのお考えになっているアプリケーションの全体像のお話が
ありませんでしたので･･･

>しかしCSVデータが複数ある場合でもレポートは1ページしか表示できません。
>CSVデータには画像＆背景のアドレスと処理（印字）データが乗っかってきます。
>レポートを複数ページ表示（プレビュー・印刷）する方法がありましたら教えていただけませんでしょうか？
>

具体的なCSVファイルの例を示してくださらないでしょうか?
先の回答でお伝えしましたが、フォームコントロールを使用して
いか様にも出来るとおもいます。

CSVファイルの例の中身は、判別ができればよいです。
【3334】Re:レポートに画像を出力する方法
お礼  morik  - 04/8/26(木) 10:58 -
引用なし
パスワード
   ▼こもれび さん：
いつも回答ありがとうございます。

画像を出力する件ですが、先にこもれびさんから頂いたプログラムで実現することができました。

親切に教えていただきありがとうございました。

今後も質問することがあるかもしれませんがよろしくお願い致します。
  新規投稿 ┃ツリー表示 ┃一覧表示 ┃トピック表示 ┃検索 ┃設定 ┃過去ログ ┃ホーム  
2233 / 2272 ﾂﾘｰ ←次へ　｜　前へ→
ページ：  ┃  記事番号：
1078325
(SS)C-BOARD v3.8 is Free