Microsoft Access Club >Access裏技Tips >このページ >次頁 < 前項 サイト内検索


顔写真付の社員情報リストを作成する : Access裏技Tips



個人情報のデータベース作成でデジカメで撮った顔写真の管理ができれば便利です。 ここでは、フォルダーに取り込んだ顔写真をレポートで表示する技を紹介します。

顔写真付の社員情報リストを作成

  1. サンプルテーブル(tbl_sample)をもとにして、「社員情報リスト」の 単票レポート(rpt_sample)を作成します。
  2. 次に、詳細セクションにイメージコントロール(ctlイメージ)を貼り付けます。
  3. レポートの詳細セクションの印刷時イベントを利用して、レポート上のテキストボックス(txtPASS)から画像の絶対パスを取得し、イメージコントロールに表示します。
  4. 画像がない場合や絶対パスが誤っている場合は、警告ラベルを表示します。

「社員情報リスト」の レポートを作成

  1. 「社員情報リスト」の レポートを作成します。
  2. サンプルデータを元に、社員情報リストを作成します。
  3. 詳細セクションにイメージコントロールと、イメージコントロールを覆うようにラベルを作成します。
  4. テーブルフィールドデータを受ける3個のテキストボックスを作成します。

詳細セクション印刷時イベントプロシージャの作成

詳細セクション印刷時イベントプロシージャを作成します。

Private Sub 詳細_Print(Cancel As Integer, PrintCount As Integer)

On Error GoTo エラー発生 ' --- A
    
    Me.警告ラベル.Visible = False
    Me.ctlイメージ.Visible = True
    
    If Not IsNull(Me.txtPASS) Then ' --- B
        Me.ctlイメージ.Picture = Me.txtPASS ' --- C
            
    Else ' --- D
        Me.警告ラベル.Visible = True
        Me.ctlイメージ.Visible = False
    End If
        
    Exit Sub ' --- E

エラー発生: ' --- F

    Me.ctlイメージ.Visible = False
    Me.警告ラベル.Visible = True
    Resume Next ' --- G
    
End Sub
解説
  1. On Error ステートメントを記述し、エラー発生に備えます。行ラベルを"エラー発生"と定義しています。
  2. IfステートメントにNot演算子を組み合わせ、もし〜でなければ〜、と条件文を展開します。ここでは、txtPASSテキストボックスがNullでなければ〜、というIF構文を記述しています。
  3. イメージコントロールに付随するPictureプロパティを用いて、txtPASSテキストボックスに表示されている絶対パスを辿り、画像をイメージコントロールで表示します。
  4. その他の値をElseキーワードで受け、警告ラベルを表示しイメージコントロールを非表示にします。
  5. エラー処理を組み込めば、必ず通常の処理ルーチンの最後にExitステートメントを記述します。Subステートメントの場合は Exit Sub を、Functionステートメントの場合は Exit Function を記述します。
  6. txtPASSに誤ったパスが記述されている場合、画像がない場合はエラーが発生しますので、警告ラベルを表示し、ctlイメージを非表示に設定します。
  7. Resumeステートメントを記述し、エラーが発生した次の行からプログラムを再開します。
今回のおすすめポイント

IsNull関数

IsNull(***)と記述し、***がNull値であるか否かを判断します。NullであればTrue、NullでなければFalseを返します。
実際の現場では、Not演算子を組み合わせて If Not IsNull(***) Then という使われ方も行われています。

行ラベル

エラー処理ルーチンの最初には、On Error ステートメントで宣言した行ラベルを最後にコロン(:)を付けて記述します。ここでは、エラー発生が行ラベルです。

動作確認

  1. レポートを印刷プレビューで開きます。

  1. 画像がない場合は、警告メッセージが表示されます。

関連ページ

ページの先頭へ 前ページへ戻る

 


顔写真付の社員情報リストを作成する : Access裏技Tips


 

-Microsoft Access Club-

アメリカ合衆国の大手データセンターのアダルト対応可能なリーズナブル価格設定の専用・共有レンタルサーバーをご提供しています。
アメリカ合衆国の大手データセンターにサーバー機器を設置。
アダルト対応可能な専用・共有レンタルサーバーを提供。