フォーム名は製品一覧で、製品一覧がレコードソースのテーブルです。
メインフォームの中に製品一覧のサブフォームがあり、サブフォームはデータシートビューです。
フィールドには管理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も見ています
-
プロが教える店舗&オフィスのセキュリティ対策術
中・小規模の店舗やオフィスのセキュリティセキュリティ対策について、プロにどう対策すべきか 何を注意すべきかを教えていただきました!
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessで別途保存の画像ファイルを読み込む方法
Access(アクセス)
-
Accessの入力フォームから、テーブルの添付ファイル型にファイルを入力する方法について
Access(アクセス)
-
-
4
Accessのフォームで商品の画像を表示したい
Excel(エクセル)
-
5
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
6
ACCESSでコントロールソースの変更
Access(アクセス)
-
7
アクセスVBAのMe!と[ ]
Access(アクセス)
-
8
Access サブフォームでの選択行の取得
その他(データベース)
-
9
AccessのOLEオブジェクトについて
Access(アクセス)
-
10
【ACCESS】レポートに添付ファイルを表示したい
Access(アクセス)
-
11
アクセスのfilter、複数条件の記述方法を教えてください。
Access(アクセス)
-
12
Accessでテーブルの値をテキストボックスに代入するには?
Access(アクセス)
-
13
コンボボックスにキー入力をさせない方法(ACCESS VBA)
その他(プログラミング・Web制作)
-
14
falseとtrue 0,1,-1 の意味が知りたいです
PowerPoint(パワーポイント)
-
15
アクセスで数値型のフィールドにNullをいれたい
その他(データベース)
-
16
Access2007、フォームのテキストボックスのサイズ調整に関して
その他(データベース)
-
17
アクセスのフォームで、文字を中央揃えにしたい
Access(アクセス)
-
18
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
19
入力途中の入力した値をすべて削除する方法
その他(データベース)
-
20
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
DataTableに特定のフィールドが...
-
日付と文字列を条件としてDLook...
-
Accessのフィールド名に半角括...
-
Access 2010で実行時エラー3061
-
2つ目のレコードの値を取得す...
-
accessでフィールド追加のあと...
-
NULLを含む文字列の結合で...
-
テーブルのデータ型の変更がで...
-
Access Dcount関数で引数が指定...
-
ADOをし使用して、Accessのテー...
-
クリスタルレポートで0件時の表示
-
クリスタルレポートの式フィー...
-
クリスタルレポート(8.5)の書式...
-
ADOでNullフィールドの抽出
-
FTPサーバーから受信したファイ...
-
2次元のdictionary
-
ACCESSのエラー
-
ACCESSで日別集計をする場合
-
INT64対応のprintf系関数はあり...
-
AccessのDAOでフィールド名を配...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessのフィールド名に半角括...
-
DataTableに特定のフィールドが...
-
accessでフィールド追加のあと...
-
INT64対応のprintf系関数はあり...
-
2つ目のレコードの値を取得す...
-
Access 2010で実行時エラー3061
-
日付と文字列を条件としてDLook...
-
AccessのDAOでフィールド名を配...
-
SQLで複数のテーブルと結合した...
-
テーブルのデータ型の変更がで...
-
フィールド名をループの添え字...
-
クリスタルレポート(8.5)の書式...
-
AccessVBAで他テーブルのデータ...
-
アクセスでADO 並べ替えが適用...
-
Accessの画像挿入のVBAコード
-
NULLを含む文字列の結合で...
-
クリスタルレポートで文字列の...
-
ACCESSデータベースにV...
-
ノーツ:ユーザ名から別名を取...
-
Access クエリで変数を参照する...
おすすめ情報
回答ありがとうございます。
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¥画像フォルダ、などでしょうか?