Displaying images from folder - Same Image on all records

[mcracknell]

I am a novice at code and have used the MS guidance notes for displaying images (pictures) on a form from a folder outside of access. Having input the code its works, but I have a sub-form with mutiple records am trying to show multiple records with the relevant picture. Currently I get the same image (picture) on all the forms governed by whichever record im in within the subform. Is there a way of showing individual images?

Option Compare Database

Option Explicit
Public Function DisplayImage(ctlImageControl As Control, strImagePath As Variant) As String
On Error GoTo Err_DisplayImage
Dim strResult As String
Dim strDatabasePath As String
Dim intSlashLocation As Integer
With ctlImageControl
    If IsNull(strImagePath) Then
        .Visible = False
        strResult = "No image name specified."
    Else
        If InStr(1, strImagePath, "\") = 0 Then
            ' Path is relative
            strDatabasePath = CurrentProject.FullName
            intSlashLocation = InStrRev(strDatabasePath, "\", Len(strDatabasePath))
            strDatabasePath = Left(strDatabasePath, intSlashLocation)
            strImagePath = strDatabasePath & strImagePath
        End If
        .Visible = True
        .Picture = strImagePath
        strResult = "Image found and displayed."
    End If
End With
    
Exit_DisplayImage:
    DisplayImage = strResult
    Exit Function
Err_DisplayImage:
    Select Case Err.Number
        Case 2220       ' Can't find the picture.
            ctlImageControl.Visible = False
            strResult = "Can't find image in the specified name."
            Resume Exit_DisplayImage:
        Case Else       ' Some other error.
            MsgBox Err.Number & " " & Err.Description
            strResult = "An error occurred displaying image."
            Resume Exit_DisplayImage:
    End Select
End Function

Option Compare Database

Option Explicit
Private Sub Form_AfterUpdate()
    CallDisplayImage
End Sub
Private Sub Form_Current()
    CallDisplayImage
End Sub
Private Sub txtImageName_AfterUpdate()
    CallDisplayImage
End Sub
Private Sub CallDisplayImage()
    Me!txtImageNote = DisplayImage(Me!ImageFrame, Me!txtImageName)
End Sub

[June7]

Is the image path/name saved in field of table? Use an Image control and set the ControlSource property. Virtually no code required. The ControlSource property was added to Image control with Access 2007.

[mcracknell]

Excellent - Many thanks - That miakes things a lot easier