Microsoft Access 掲示板

詳細セクションにイメージコントロールを配置して、VBAでイメージコントロールのPictureプロパティに画像のパスを設定します。レコード毎に変更したいので、フォーマット時のイベントプロシージャに記述します。

下記のような感じのコードになります。（フィールド名などは適当ですので適宜変更してください。）

Private Sub 詳細_Format(Cancel As Integer, FormatCount As Integer)
    Dim ImgPath As String
    Select Case Me.資格コード
    Case 1
        ImgPath = "C:\test\image\pic1.bmp"
    Case 2
        ImgPath = "C:\test\image\pic2.bmp"
    Case 3
        ImgPath = "C:\test\image\pic3.bmp"
    End Select
    Me.イメージコントロール.Picture = ImgPath
End Sub