勝手に、画像ファイルを選べ、、と出てくるので、 適当に選択します。
画像が、挿入されます。 プロパティを変更します。
なんか、リンクに変更時、削除するか、聞いてくるので、 そのままはいを押します。
途中ですが、フォームを保存します。
次に、画像ファイル名入力用のテキストボックスを作成します。
名前を、画像ファイル名とします。
イベントの更新後処理にモジュールを書きます（まぁ、テストなので）
右ボタンのビルドって便利ですよ モジュールの入力中に右クリック・ビルドを選択します。
オブジェクトの構造が、階層で表示されます、、 なれないうちは、便利ですよ（だんだん、入力したほうがよくなるけど、、）
me![図].Picture = me![画像ファイル名] として、 入力されたファイル名の画像をリンク表示するように指定します。
さて、テスト実行だ、、、あれ、、エラー、、、だ、、 いつもの勢いで、ｔｅｓｔ．ｂｍｐなんて、いれたら、 ファイル名が無かった、、 押したくないけど、デバックを押す。。
変数名にマウスカーソルをあわせると、値が表示される、、、便利ですね。 ＊デバックモード嫌いなので（Ｋｅｎ３は、変り者だから、、あまり活用していない、、）
下記のファイル存在チェックをモジュールに入れました。 If Len(Dir(Me![画像ファイル名])) = 0 Then MsgBox Me![画像ファイル名] & "ファイルが見つかりません、確認してください" Exit Sub '途中で抜けます End If まったく、手抜きするからテメエは、、、テストだから、いいジャンね。。
実行結果、、、面倒ですが、フルパスでファイル名を入れてください。 例）c:\windows\セットアップ.bmp , d:\001.gif など、、
＜Access97 画像リンク処理(埋め込みでMDB肥大を防止？)＞ 目次 1.はじめの挨拶 2.読者よりヒントメール来ました 3.単体テスト用に作成してみますか、、、 4.モジュールの解説、、とイベントって？ 5.積み残し、、、あったらいいな、、、 6.おわりの挨拶 ---------------------------------------------------------------------------- /* * １.こんにちは */ こんにちは。 今回は、前回読者からいただいた、 ヒントを利用して、 Access97 画像リンク処理(埋め込みでMDB肥大を防止？) をやってみたいと思います。 ＊なんか、サンプル、、そのまんまじゃん、、、 読者数も、解除・新規登録を繰り返して？1000人突破しました。 ＊まぐまぐの読者数1000人って、まだまだ、少ないみたいです。 （すごく、下のほう） 喜んで、ランキングのページ見に行った、自分がはずかしい。。。 マニアックな読者を減らさないように、がんばります。 おまえだけが、変り者だって、、、あっ、そうですね。。。 /* * ２．読者よりヒントメール来ました */ 読者さんより、Access画像管理のヒントメールいただきました。 >フォーム,レポートで・・・ >---------引用--------------------- >実行時にイメージコントロールの Pictureプロパティにファイル名を >セットするという方法を使っています。 > >具体的には >画像を任意のフォルダに入れておいて > >イメージ.Picture = strPath & 部品名 & ".jpg" > >を実行します >strPath は任意のフォルダです。 > >この場合画像のファイルの名前を特定できるように"部品名.jpg"等にする工夫は >必要です。 > >テーブルに画像を入れるとMDBが巨大になるのであまりお勧めできません >---------引用終わり------------- サンプル作成して、試してみたいと思います。 /* * ３．単体テスト用に作成してみますか、、、 */ さて、ヒントをもらったので、 単体テスト用に作成してみますか、、、 目的 大きなプログラムや処理を作る前に、 イメージ.Picture の使用方法を見てみたいので、 簡単なテストプログラムを作成してみる。。。 （同時に、ヘルプなどを見て、自分なりに確認してください。） 内容 簡単に（手抜きで）、 フォームを１つ作成 ファイル名入力用のテキストボックス作成 画像表示用のイメージコントロール作成 で、いいかな。。 作業開始と試行錯誤、、、（こんな簡単なので、試行錯誤してしまった、、、） まず、適当な名前で、Ｍｄｂファイルを作成します。 ここの名前のつけ方で、センスや想像力、、語学力（単語知ってるか）、 わかっちゃうんだよなぁ、、、 テメエのセンスは？最低ランクだなぁ、、、 ほっといてくださいね。 次に、フォームを新規作成します。 まぁ、ここまでは、順調です。 次に、イメージコントロールをフォームに貼ります。 貼りつけ時、勝手に、画像ファイルを選べ、、と出てくるので、 適当に選択します。（もしかして、キャンセルでもいいかも） 画像が、挿入されます。 プロパティを変更します。 ・コントロールの名前を付けます。ここでは、日本語で図としました ・ピクチャータイプを埋め込み-->リンクに変更します ・あとは、サイズなどを適当に、、 ＊いろいろ、プロパティを変えて、違いをテストしてみてください。 配置・全体表示など、、、イロイロ面白いですよ。 次に、画像ファイル名入力用のテキストボックスを作成します。 プロパティ 名前を、画像ファイル名とします。 イベントの更新後処理にモジュールを書きます（まぁ、テストなので） me![図].Picture = me![画像ファイル名] として、 入力されたファイル名の画像をリンク表示するように指定します。 右ボタンのビルドって便利です? モジュールの入力中に右クリック・ビルドを選択します。 オブジェクトの構造が、階層で表示されます、、 なれないうちは、便利ですよ（だんだん、入力したほうがよくなるけど、、） さて、テスト実行だ、、、あれ、、エラー、、、だ、、 いつもの勢いで、ｔｅｓｔ．ｂｍｐなんて、いれたら、 ファイル名が無かった、、 押したくないけど、デバックを押す。。 変数名にマウスカーソルをあわせると、値が表示される、、、便利ですね。 ＊デバックモード嫌いなので（Ｋｅｎ３は、変り者だから、、あまり活用していない、、） 下記のファイル存在チェックをモジュールに入れました。 If Len(Dir(Me![画像ファイル名])) = 0 Then MsgBox Me![画像ファイル名] & "ファイルが見つかりません、確認してください" Exit Sub '途中で抜けます End If まったく、手抜きするからテメエは、、、テストだから、いいジャンね。。 気楽にいこうよ、、、デバックモード便利とかわかったジャン。。 テスト実行、面倒ですが、フルパスでファイル名を入れてください。 例）c:\windows\セットアップ.bmp , d:\001.gif など、、 何回、実行しても、ＭＤＢのサイズが変わらないことを確認して、 テストＯＫ。。。 読者のヒントメールに感謝です。