アクセスでイメージの挿入

質問

今社員情報のデータベースを作成しています。
フォーム表示の時に各個人情報とあわせて顔写真もつけて、履歴書のように表示したいのですが、そのようなことは可能なのでしょうか？

可能でしたら、その方法をご存知の方がいらっしゃいましたらお教えいただけないでしょうか？

なお、Access2000です。

よろしくお願いいたします。

回答No.2

cinnamon114 · ベストアンサー

初心者向けです。

　1.社員データのテーブルの項目に「顔写真」の項目を設定します
　2.「顔写真」のデータ型を「OLEオブジェクト型」にします
　3.フォームを作成するときに「顔写真」の項目も入力できるようにします

写真を挿入するときは「挿入」→「オブジェクト」
「ファイルから」にチェックを入れて「参照」ボタンをクリックして該当のフォルダを指定して、ファイルを選択すれば大丈夫です。

お試しください

回答No.1

laputart

可能です。
イベントプロシジャを使うと便利です。

社員テーブルにイメージファイルの名前フィールドを
追加します。例フィールド名　PicText テキスト型

前もって　jpgやgif の写真を用意しておきます。
ファイル名は　例 shain01.gif ...として
そしてPicTextに各レコードのファイル名を入力
しておきます。入力の際には　.gifは不要です。
shain01 shain02 などでいいです。

フォームのデザインでツールボックスからイメージを
埋込みます。名前をIMGとします。

下の例では社員データ閲覧のフォームでレコードが変る度にイメージのファイル名が
書換えれ可顔写真が表示されるという訳です。

Private Sub Form_Current()
Dim PicPath As String
Dim PicFile As String
Dim FileName As String

PicPath = "C:\写真ファイルのあるフォルダー\"
PicFile = Me.Pictext & ".gif"

FileName = PicPath & PicFile
IMG.Picture = FileName

End Sub

ちょっと乱暴な回折ですが上記の例でパスが正しければ
レコードセレクターが変るたびに画像が変ります。
VBの場合は　Set IMG.Picture=Load(...)としなければ
ならなかったのにVBAの場合は上記のように簡単でした。

使い方について、遠慮なく問い合せしてください。