フォーム名は製品一覧で、製品一覧がレコードソースのテーブルです。
メインフォームの中に製品一覧のサブフォームがあり、サブフォームはデータシートビューです。
フィールドには管理Noがあり、オートNoで1~5000までレコードがあります。
ここから、例えば管理No10の製品をレポートで印刷したい場合は、管理No10の印刷フィールドにpと入力すれば管理No10のレコードのみがレポートで印刷される仕組みになっています。
この時に、印刷フィールドにpと入力されたレコードの管理Noを使って画像をレポートに挿入し印刷できるコードはありますか?
感じ的には、管理Noが10なので、画像ファイル名も10.jpgにしておき同じ番号をLookupしてくる、みたいな感じです。
他の方法でもいいので、画像を抽出しレポートで印刷できるようにしたいのですが可能でしょうか?
データが5000もあるので、画素ファイルはマイピクチャなどの外部に保存しておきたいです。
よろしくお願いします。
No.3ベストアンサー
- 回答日時:
No.1
- 回答日時:
ですかね。
で、レポートのフォーマット時に
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me!画像パス, "") = "" Then
Me!画像ActiveXコントロール名.Visible = False
Else
Me!画像ActiveXコントロール名.Visible = True
Me!画像ActiveXコントロール名.Picture = Application.LoadPicture(Me!画像パス)
End If
End Sub
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- その他(データベース) Accessフォームからパラメーターで表示したレコードを指定のExcelのセルへ転送する方法について 2 2022/08/22 18:04
- Visual Basic(VBA) Accessフォームで全レコードを指定のExcelのセルへ転送し印刷する方法について 2 2022/09/08 18:23
- Excel(エクセル) 請求書と領収書の作成 4 2022/11/10 16:13
- Access(アクセス) アクセスの更新クエリでカレントレコードのみ更新したい 1 2022/06/02 23:32
- プリンタ・スキャナー 電化製品が一度もまともに稼働しない場合、返品・返金してもらえないものなの? 3 2023/01/19 23:37
- プリンタ・スキャナー もともとWi-Fi仕様ではないプリンタの背面USB端子に挿すとWi-Fi経由で印刷できるドングル 6 2022/07/01 21:51
- PDF 画像調整してスクショし保存した画像を印刷する方法 1 2022/03/31 18:42
- Excel(エクセル) エクセルでキーリストからデータを取り出して1枚1枚印刷するには? 11 2022/06/27 09:52
- PDF 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 1 2022/03/31 19:09
- その他(IT・Webサービス) 画像調整してスクショし保存した画像をPC画面と同画質で印刷する方法 3 2022/03/31 19:11
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
Accessの入力フォームから、テーブルの添付ファイル型にファイルを入力する方法について
Access(アクセス)
-
Accessで別途保存の画像ファイルを読み込む方法
Access(アクセス)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
-
4
Accessのフォームで商品の画像を表示したい
Excel(エクセル)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
アクセスVBAでの添付ファイルの取り込みについて
Access(アクセス)
-
7
新規レコード行を非表示にしたい
Access(アクセス)
-
8
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
9
アクセスVBAのMe!と[ ]
Access(アクセス)
-
10
ACCESSのラベル内データに下線を引く
その他(プログラミング・Web制作)
-
11
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
12
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
13
access マクロでのフィルタの解除の方法
Access(アクセス)
-
14
【ACCESS】レポートに添付ファイルを表示したい
Access(アクセス)
-
15
SQL文で パラメータが少なすぎます エラー
Access(アクセス)
-
16
ACCESSでタイトルバーを非表示にする方法
Access(アクセス)
-
17
Accessのマクロでモジュールを実行させたい。
Access(アクセス)
-
18
ACCESSでコントロールソースの変更
Access(アクセス)
-
19
Accessでの画像ファイルの取り込み
Access(アクセス)
-
20
アクセスで追加した項目に全て同じ値を一発で入れたい
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
INT64対応のprintf系関数はあり...
-
DataTableに特定のフィールドが...
-
Accessのフィールド名に半角括...
-
2つ目のレコードの値を取得す...
-
テーブルのデータ型の変更がで...
-
Access 2010で実行時エラー3061
-
accessでフィールド追加のあと...
-
オートナンバー型を抽出条件に...
-
Access クエリで変数を参照する...
-
ACCESSで日別集計をする場合
-
AccessのDAOでフィールド名を配...
-
ACCESS VBA Parametersで or演...
-
ノーツ:ユーザ名から別名を取...
-
DataTableのselectメソッド
-
日付と文字列を条件としてDLook...
-
NULLを含む文字列の結合で...
-
ADOでNullフィールドの抽出
-
FlexGridでのおかしな不具合・・。
-
クリスタルレポートで文字列の...
-
ADOをし使用して、Accessのテー...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
accessでフィールド追加のあと...
-
Accessのフィールド名に半角括...
-
INT64対応のprintf系関数はあり...
-
テキストファイルのフィールド...
-
2つ目のレコードの値を取得す...
-
DataTableに特定のフィールドが...
-
Access 2010で実行時エラー3061
-
Access VBA 添付型フィールド
-
日付と文字列を条件としてDLook...
-
AccessのDAOでフィールド名を配...
-
ACCESSで日別集計をする場合
-
Accessの画像挿入のVBAコード
-
アクセスでADO 並べ替えが適用...
-
クリスタルレポートで文字列の...
-
オートナンバー型を抽出条件に...
-
ACCESSデータベースにV...
-
テーブルのデータ型の変更がで...
-
ADOでNullフィールドの抽出
-
Access クエリで変数を参照する...
-
AccessVBAで他テーブルのデータ...
おすすめ情報
回答ありがとうございます。
Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
If Nz(Me!管理No, "") = "" Then
Me!画像ActiveXコントロール名.Visible = False
Else
Me!画像ActiveXコントロール名.Visible = True
Me!画像ActiveXコントロール名.Picture = Application.LoadPicture(Me!管理No)
End If
End Sub
としたのですが、コントロール名というのが分かりません。
レポートのコントロールでイメージを選び貼り付けましたが、プロパティのその他の名前で「画像」と
付けました。コントロールソースはどうすればいいのでしょうか?
よろしくお願いします。
読んでみたのですが、Accessについて無知なのでなかなか理解できず困っています。
画像パスというのは、C:¥Mypicture¥画像フォルダ、などでしょうか?