サインイン

Select the product you need help with

[ACC97] イメージをテーブルに保存せずフォームに表示する方法

文書番号: 148463 - 対象製品

サポート期間が終了した「サポート技術情報」資料に関する免責事項

この記事は、以前は次の ID で公開されていました: JP148463

すべて展開する | すべて折りたたむ

概要

この資料は、Access のテーブルにパスとファイル名のみを保存して、フォームにビットマップイメージを表示する方法について説明したものです。

先頭へ戻る | フィードバック

詳細

Access のテーブルにイメージデータを保存することが現実的に難しい場合があります。それは、イメージの数が多い場合、またはイメージファイルが大きい場合には、Access データベースファイルのサイズが急激に増加してしまうからです。

Access のテーブルにイメージデータを保存しないで、Access フォームに Windows ビットマップイメージを表示する方法を説明します。

Access 97 および Access 95 の場合

サンプルデータベース Northwind.mdb を開きます。
ImageTable という名前で新規テーブルを作成し、ImagePath というテキストフィールドを追加します。
ImageTable テーブルをデータシートビューで開き、各レコードのビットマップファイルのパスと名前を追加します。レコードは、次のようになります。
```
      c:\windows\トライアングル.bmp
      c:\windows\ブルー ウェーブ.bmp
      c:\windows\レッド タイル.bmp
      c:\windows\しゃぼん玉.bmp
```
オートフォーム : 単票形式ウィザードを使用して、ImageTable テーブルに基づく新規フォームを作成します。
Imageform フォームをデザインビューで開き、ツールボックスのイメージツールを使用して、フォームにイメージコントロールを追加します。このとき、挿入するイメージを選択するよう求められます。使用しているコンピュータで使用できる任意のイメージを選択してください。追加したコントロールに ImageFrame という名前を付けます。

Imageform フォームのレコード移動時プロパティに、次のイベントプロシージャを設定します。

      Private Sub Form_Current()
         On Error Resume Next
         Me![ImageFrame].Picture = Me![ImagePath]
      End Sub

ImagePath テキストボックスの更新後処理プロパティに、次のイベントプロシージャを設定します。

      Private Sub Form_AfterUpdate()
         On Error Resume Next
         Me![ImageFrame].Picture = Me![ImagePath]
      End Sub

Imageform フォームをフォームビューで開きます。
フォームに、各レコードに対応するビットマップが表示されることに注意してください。

Access 2.0 の場合

注意 : Visual Basic for Applications (以下 VBA) は、Access 2.0 では Access Basic と呼ばれています。Access Basic の詳細については、『Building Applications』マニュアルを参照してください。

サンプルデータベース NWIND.MDB を開きます。
ImageTable という名前で新規テーブルを作成し、ImagePath というテキストフィールドを追加します。
ImageTable テーブルをデータシートビューで開き、各レコードのビットマップファイルのパスと名前を追加します。レコードは、次のようになります。
```
      c:\windows\花見.bmp
      c:\windows\雲.bmp
      c:\windows\砂漠.bmp
      c:\windows\森.bmp
```
オートフォームウィザードで、ImageTable テーブルに基づく新規フォームを作成します。作成したフォームに Imageform という名前を付けます。
Imageform フォームをデザインビューで開き、ツールボックスの非連結オブジェクトフレームツールを使用して非連結オブジェクトフレームを追加します。追加したコントロールに ImageFrame という名前を付けます。

Imageform フォームのレコード移動時プロパティに、次のイベントプロシージャを設定します。

      Private Sub Form_Current()
         On Error Resume Next
         If Not IsNull(Me![ImagePath]) Then
         Me![ImageFrame].OLETypeAllowed = 1
         Me![ImageFrame].SourceDoc = Me![ImagePath]
         Me![ImageFrame].Action = 0
         End If
      End Sub

ImagePath テキストボックスの更新後処理プロパティに、次のイベントプロシージャを設定します。

      Sub ImagePath_AfterUpdate ()
         On Error Resume Next
         Me![ImageFrame].OLETypeAllowed = 1
         Me![ImageFrame].SourceDoc = Me![ImagePath]
         Me![ImageFrame].Action = 0
      End Sub

非連結オブジェクトフレーム ImageFrame に、以下のプロパティを設定します。
使用可能 : はい
編集ロック : いいえ
Imageform フォームをフォームビューで開きます。
フォームに、各レコードに対応するビットマップが表示されることに注意してください。

注意 : Access 97 および Access 95 では、ImageTable テーブルに無効なパスまたはファイル名を追加すると、フォームにイメージが表示されません。ただし、有効なパスおよびファイル名が入力されたかどうかを確認するための、エラートラッピングを実装することができます。
Access 2.0 では、エラーは無視され、そのフォームで最後に表示されたビットマップが表示されます。

先頭へ戻る | フィードバック

プロパティ

文書番号: 148463 - 最終更新日: 2004年1月23日 - リビジョン: 3.0

この資料は以下の製品について記述したものです。

Microsoft Access 2.0 Standard Edition
Microsoft Access 95 Standard Edition
Microsoft Access 97 Standard Edition

kbhowto kbinterop kbofficeprog vba イメージ KB148463

"Microsoft Knowledge Baseに含まれている情報は、いかなる保証もない現状ベースで提供されるものです。Microsoft Corporation及びその関連会社は、市場性および特定の目的への適合性を含めて、明示的にも黙示的にも、一切の保証をいたしません。さらに、Microsoft Corporation及びその関連会社は、本文書に含まれている情報の使用及び使用結果につき、正確性、真実性等、いかなる表明・保証も行ないません。Microsoft Corporation、その関連会社及びこれらの権限ある代理人による口頭または書面による一切の情報提供またはアドバイスは、保証を意味するものではなく、かつ上記免責条項の範囲を狭めるものではありません。Microsoft Corporation、その関連会社及びこれらの者の供給者は、直接的、間接的、偶発的、結果的損害、逸失利益、懲罰的損害、または特別損害を含む全ての損害に対して、状況のいかんを問わず一切責任を負いません。（Microsoft Corporation、その関連会社またはこれらの者の供給者がかかる損害の発生可能性を了知している場合を含みます。) 結果的損害または偶発的損害に対する責任の免除または制限を認めていない地域においては、上記制限が適用されない場合があります。なお、本文書においては、文書の体裁上の都合により製品名の表記において商標登録表示、その他の商標表示を省略している場合がありますので、予めご了解ください。"

サポート期間が終了した「サポート技術情報」資料に関する免責事項

この資料は、マイクロソフトでサポートされていない製品について記述したものです。そのため、この資料は現状ベースで提供されており、今後更新されることはありません。

先頭へ戻る | フィードバック