＜Access97 Pictureプロパティ＞

内容
--------------------------------
過去の質問整理の中にもあった、
Ａｃｃｅｓｓで画像関係の処理です。

＊Ａｃｃｅｓｓでの画像関係、、みんな興味あるみたいですね。。
------------------------------------------------------
 >お知恵を借りたいのですが、ＡＣ
 >ＣＥＳＳで画像付き社員リストを
 >作りたいのですが、
 >サンプルファイル（Ｉｍａｇｅ．
 >ｊｐｇ）のような帳票を作るには
 >どうすれば良いでしょうか？
 >このイメージにこだわることはな
 >いのですが、
------------------------------------------------------

＊実行サンプルをダウンロードして、見てください。

作成の方向は、
Pictureプロパティを使用して、画像を埋め込まないで処理します。

テキストボックス、画像ファイル名
が変更されたら、
Me![図].Picture プロパティに図のファイル名をセットします。

'-------------------------
Private Sub 画像ファイル名_AfterUpdate()
    
    '入力データ無しのときは、処理しない
    If Len(Me![画像ファイル名] & "") = 0 Then
        Me![図].Picture = ""
        Exit Sub
    End If

    'ファイル存在チェック
    If Len(Dir(GetDBPath() & Me![画像ファイル名])) = 0 Then
        MsgBox GetDBPath() & Me![画像ファイル名] & "ファイルが見つかりません、
確認してください"
        Exit Sub  '途中で抜けます
    End If
    
    '画像のセット
    Me![図].Picture = GetDBPath() & Me![画像ファイル名]

End Sub
'--------------------------------

ポイントは、Me![図].Picture = ファイル名で、画像が表示できます。

エラーチェックとしては、
dir関数を使用し、ファイルの存在だけ軽くチェックしています。

また、今は、カレントデータベースと同じ位置の画像を読み込むようにしています。
（ＣＤ−Ｒに焼いた画像などには、まだ、対応してません、、
　　ドライブを＋するなど、工夫をして下さい。）

下記、起動ｍｄｂの場所を知る関数です。
'-------------------------------------
'
'カレントＭＤＢの起動場所を返す
Public Function GetDBPath()

    Dim strName As String
    Dim strPath As String

    ' このシステムの名前を取得 (c:\aaa\bbb\ccc\ddd.mdb)
    strName = CurrentDb.Name
    ' パスを取得 (後ろのXXX.MDBを取り除く)
    strPath = Left(strName, InStrRev(strName, "\"))

    'リターン値をセット
    GetDBPath = strPath

End Function

'
' 文字列str1から文字列str2を文字列の後ろから探す。
Public Function InStrRev(str1 As String, str2 As String) As Integer
    
    Dim nPos As Integer
    
    nPos = Len(str2) - 1

    Do While Len(str1) > nPos
        If str2 = Mid(str1, Len(str1) - nPos, Len(str2)) Then
            Exit Do
        End If
        nPos = nPos + 1
    Loop
    InStrRev = Len(str1) - nPos

End Function
'-------------------------------------





今回も、役立つ回答になってませんが、
がんばってください。
＊いつものことだが、わかりにくい、、、、

自分へ一言、、
　プロらしいテクニックないの？、、、（ないんですよ、、）

やっぱ、三流だなぁ、、と声が聞こえてきたところで、このへんで、、
今日も途中で逃げ出す、、、悪人 Ｋｅｎ３ でした。。。

VBA系の無料メルマガ書いてます
メルマガ『ＶＢＡで楽しくプログラミング』(無料) を購読しませんか？
	E-mail

ＶＢＡで楽しくプログラミング	最新情報	掲示板	バックナンバー	メルマガ登録と解除
コンビニのオモテとウラ話	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ＡＳＰで遊ぶ、失敗する	最新情報	掲示板	バックナンバー	メルマガ登録と解除
AB型三流ＰＧ 業務のグチ	最新情報	掲示板	バックナンバー	メルマガ登録と解除
初心者にやさしいプログラム	最新情報	掲示板	バックナンバー	メルマガ登録と解除
ネットで稼ぐ本音と失敗談	最新情報	掲示板	バックナンバー
www.ken3.org(サイト内)から を利用して、 を