![](http://oshiete.xgoo.jp/images/v2/pc/qa/question_title.png?e8efa67)
画像を表示させた商品管理フォームを作りたいのですが、商品にリンクした画像をどうやって表示していいのかわかりません。
(商品のレコードをクリックする毎にその商品の画像
が表示できるようにしたいです)
下記のテーブルがあります。画像と商品は商品コードでつなぎます。
(1)商品テーブル
商品コード 例)A0001
商品名 例)ER-01
(2)画像テーブル
商品コード 例)A0001
画像ファイル名 例)Photo0001.jpg
パス名 例)C\Photo\Photo0001.jpg
画像はリンクにするのか、埋め込みにするのか
もわからない状態です。
どうぞよろしくおねがいします。
No.1ベストアンサー
- 回答日時:
フォームにイメージコントロールで表示するか非連結オブジェクトで表示するかのどちらかになりますが
画像テーブルに画像のフルパスが入っているのであればリンクで表示する方が簡単です。
イメージを埋め込むとデータベースのサイズが増大して動作が遅くなる事もあります。
フォームのソースに画像テーブルの商品名・パス名もSQLステートメントやクエリで追加しておきます。
フォーム上にパス名のコントロールを配置します。パスを見せたくない場合は可視をいいえにして見えなくします。
イメージコントロールの名前をPhoto1とすると
フォームのプロパティで[レコード移動時]のイベントに
Private Sub Form_Current()
If Me![パス名] <>"" Then
Me![Photo1].Picture=Me![パス名]
Else
Me![Photo1].Picture="" 'パスがない画像がない場合表示しない
End If
End Sub
のように設定しフォーム上のパス名に入った画像のパス\ファイル名をPhoto1のPictureソースに代入させ表示します。
非連結オブジェクトで表示する場合はテーブルのフィールドをOLEオブジェクト型にしてデータベースにオブジェクトの挿入で画像をビットマップイメージで取り込みます。そのフィールドを指定するようにすればそのフィールドに挿入してある画像が表示できます。ビットマップのレコードとなるのでbmpで保存しておかないと出来ません。
画像も小さくてファイル数も少なければ問題ないとは思います。
お探しのQ&Aが見つからない時は、教えて!gooで質問しましょう!
似たような質問が見つかりました
- Excel(エクセル) excelで検索した商品の画像(ネットワーク上の)を表示させたい。 3 2023/06/28 00:32
- Excel(エクセル) ある文字を含む際に、値を返す数式についてです 5 2022/08/28 16:58
- Excel(エクセル) エクセルで複数設定したハイパーリンク先を、どれを選んでも画面の左上に来るようにしたいのですが・・・ 3 2022/04/07 16:15
- Excel(エクセル) エクセル VBA For Next 繰り返しの書き方を教えてください 6 2022/09/01 14:11
- その他(Microsoft Office) Excelで該当しない項目(#N/Aの商品名)を簡単に表示・抽出させる方法についてです 1 2022/08/25 22:12
- その他(買い物・ショッピング) JANコードの登録について 1 2022/07/23 14:19
- ヤフオク! デスクトップPCをヤフオクやメルカリに出品している人 1 2022/12/05 07:22
- Excel(エクセル) 関数で割合を表示する 2 2022/09/27 06:09
- アニメ メルカリ ポケカに関して 1 2022/11/15 17:40
- デジタルカメラ ヨドバシでネット注文した商品は自宅まで届きますか? 7 2022/04/14 19:20
このQ&Aを見た人はこんなQ&Aも見ています
-
「どうして捨てられないの?」前妻の物を捨てられない男性の心理って?
前妻の物を捨てられない理由に加え、捨てるための手段はあるのかを専門家に聞いてみた!
-
ACCESSで複数の写真ファイルを同時表示する方法
その他(Microsoft Office)
-
レコードを保存するコード アクセスvba
その他(Microsoft Office)
-
Accessのフォームにて、詳細行のボタンを行の内容により、表示/非表
その他(Microsoft Office)
-
-
4
ACCESSで空白のデーターをクエリで判定/識別する方法を教えてくださ
Access(アクセス)
-
5
Accessの画像挿入のVBAコード
Visual Basic(VBA)
-
6
Access レポート印刷するときに1ページに収める方法
Access(アクセス)
-
7
アクセスのレポートのヘッダーを2ページ以降にもつけるには?
Access(アクセス)
-
8
ACCESS 「パラメータの入力」を消したい!!
Access(アクセス)
-
9
Access サブフォームでの選択行の取得
その他(データベース)
-
10
(ACCESS)条件に応じて、テキストボックスを表示・非表示設定
その他(データベース)
-
11
前のレコードの値を自動で入れたい
PowerPoint(パワーポイント)
-
12
アクセスでテーブルの変更内容をフォームに反映させるには?
その他(データベース)
-
13
ACCESSでフォームのチェックボックスにチェックを入れて任意の数値を入力したい!!!
Access(アクセス)
-
14
Accessで別途保存の画像ファイルを読み込む方法
Access(アクセス)
-
15
新規レコード行を非表示にしたい
Access(アクセス)
-
16
アクセスでテキストボックスの値が空白だったら
Access(アクセス)
-
17
Accessで、フォームからフォームへ値を引き継ぐやり方
Access(アクセス)
-
18
Access 同じデータをたくさんのレコード(同一列)に一度に入力するには
Access(アクセス)
-
19
ACCESSのフォームからハイパーリンクで開く
Access(アクセス)
-
20
ACCESSのフォームからデータの追加ができない
その他(データベース)
関連するカテゴリからQ&Aを探す
おすすめ情報
このQ&Aを見た人がよく見るQ&A
デイリーランキングこのカテゴリの人気デイリーQ&Aランキング
-
フォトショップ→イラストレータ...
-
Axfcのダウンロードのパスワード
-
MSアクセスのjpgファイル表示
-
ActiveWorkbook.Pathの一つ上
-
Photoshop cc 正円形のパス線が...
-
WindowsとMacではパスが違うの...
-
明日ディズニーシーへ行く予定...
-
cseのociw32.dllロードエラーに...
-
セルにフルパスを入力してPDFフ...
-
よみうりランドの入場料金につ...
-
USJのスタジオパスとエクスプレ...
-
RmDirでフォルダが削除できない...
-
DVDにデータのバックアップ。深...
-
ニュー速VIPで使われるパスワー...
-
フォルダ選択でなくフルパスを...
-
Accessマクロで出てくるコマン...
-
エクセルである行以下全部を削...
-
白飛びした(明るい)写真をiPhon...
-
EXCEL VBAで全選択範囲の解除
-
visual studio でインデントを...
マンスリーランキングこのカテゴリの人気マンスリーQ&Aランキング
-
Accessマクロで出てくるコマン...
-
ExcelVBA ショートカットファイ...
-
ActiveWorkbook.Pathの一つ上
-
フォルダ選択でなくフルパスを...
-
Axfcのダウンロードのパスワード
-
RmDirでフォルダが削除できない...
-
Accessのフォームで商品の画像...
-
USJのスタジオパスとエクスプレ...
-
Photoshop cc 正円形のパス線が...
-
新幹線について
-
ヘルプマークって印刷した物を...
-
ディズニーランドのDPAとPPの取...
-
HEWのワークスペースが開けない
-
オセロ(リバーシ)の棋譜のパ...
-
ケーブルテレビをパソコンで見...
-
ニュー速VIPで使われるパスワー...
-
MSアクセスのjpgファイル表示
-
セルにフルパスを入力してPDFフ...
-
今月はご希望通りのグレードま...
-
EXCELファイルのカレントフォル...
おすすめ情報