Display Pictures in Access Report through VBA code

[smorrison64]

I have a form that is coded to open a File Dialog boc to pick a picture to display on that particular item on a subform. My form is not based on query, but rather two separate tables (one primary, one sub). That code is working properly. How do I get that to translate to my report? I use VBA code because I use formats other than BMP for the pictures. Would basing the form on the qury that the report is based on solve the issue without further coding? Below is the code from the form.

Option Compare Database
Option Explicit
Dim path As String
 
Private Sub AddPicture_Click()
    ' Use the Office File Open dialog to get a file name to use
    ' as an employee picture.
    getFileName
End Sub
 
Private Sub Form_RecordExit(Cancel As Integer)
    ' Hide the errormsg label to reduce flashing when navigating
    ' between records.
    errormsg.Visible = False
End Sub
 
Private Sub RemovePicture_Click()
    ' Clear the file name for the employee record and display the
    ' errormsg label.
    Me![ImagePath] = ""
    hideImageFrame
    errormsg.Visible = True
End Sub
Private Sub ImagePath_AfterUpdate()
    ' After selecting an image for the employee, display it.
    On Error Resume Next
        'showErrorMessage
        showImageFrame
        If (IsRelative(Me!ImagePath) = True) Then
            Me![ImageFrame].Picture = path & Me![ImagePath]
        Else
            Me![ImageFrame].Picture = Me![ImagePath]
        End If
End Sub
Private Sub Form_Current()
    ' Display the picture for the current employee record if the image
    ' exists.  If the file name no longer exists or the file name was blank
    ' for the current employee, set the errormsg label caption to the
    ' appropriate message.
    Dim res As Boolean
    Dim fName As String
 
    path = CurrentProject.path
    On Error Resume Next
        errormsg.Visible = False
        If Not IsNull(Me!Photo) Then
            res = IsRelative(Me!Photo)
            fName = Me![ImagePath]
            If (res = True) Then
                fName = path & "\" & fName
            End If
 
            Me![ImageFrame].Picture = fName
            showImageFrame
            Me.PaintPalette = Me![ImageFrame].ObjectPalette
            If (Me![ImageFrame].Picture <> fName) Then
                hideImageFrame
                errormsg.Caption = "Picture not found"
                errormsg.Visible = True
            End If
        Else
            hideImageFrame
            errormsg.Caption = "Click Add/Change to add picture"
            errormsg.Visible = True
        End If
 
End Sub
 
Sub getFileName()
    ' Displays the Office File Open dialog to choose a file name
    ' for the current employee record.  If the user selects a file
    ' display it in the image control.
    Dim fileName As String
    Dim result As Integer
    Dim fd As FileDialog
    Set fd = Application.FileDialog(msoFileDialogFilePicker)
    With fd
        .Title = "Select Screenshot"
        .Filters.Add "All Files", "*.*"
        .Filters.Add "JPEGs", "*.jpg"
        .Filters.Add "Bitmaps", "*.bmp"
        .Filters.Add "Portable Network Graphics", "*.png"
        .FilterIndex = 4
        .AllowMultiSelect = False
        .InitialFileName = CurrentProject.path
        result = .Show
        If (result <> 0) Then
            fileName = Trim(.SelectedItems.Item(1))
            Me![ImagePath].Visible = True
            Me![ImagePath].SetFocus
            Me![ImagePath].Text = fileName
            Me![Issue Reference].SetFocus
            Me![ImagePath].Visible = False
        End If
    End With
End Sub
 
'Sub showErrorMessage()
    ' Display the errormsg label if the image file is not available.
    'If Not IsNull(Me!Photo) Then
     '   errormsg.Visible = False
    'Else
     '   errormsg.Visible = True
    'End If
'End Sub
 
Function IsRelative(fName As String) As Boolean
    ' Return false if the file name contains a drive or UNC path
    IsRelative = (InStr(1, fName, ":") = 0) And (InStr(1, fName, "\\") = 0)
End Function
 
Sub hideImageFrame()
    ' Hide the image control
    Me![ImageFrame].Visible = False
End Sub
 
Sub showImageFrame()
    ' Display the image control
    Me![ImageFrame].Visible = True
End Sub
 
Private Sub CloseForm_Click()
On Error GoTo Err_CloseForm_Click
 
 
    DoCmd.Close
 
Exit_CloseForm_Click:
    Exit Sub
 
Err_CloseForm_Click:
    MsgBox Err.Description
    Resume Exit_CloseForm_Click
 
End Sub
Private Sub Rpt_Click()
On Error GoTo Err_Rpt_Click
 
    Dim stDocName As String
 
    stDocName = "Print Test Report"
    DoCmd.OpenReport stDocName, acPreview
 
Exit_Rpt_Click:
    Exit Sub
 
Err_Rpt_Click:
    MsgBox Err.Description
    Resume Exit_Rpt_Click
 
End Sub

[Denburt]

What kind of control is Me![ImagePath] and is it bound to a field in the table? If it is bound to a field in the table you should be able to include that in your query that is behind the report then bind it to your control in the report.

What kind of control are you trying to bind to in the report and what have you tried so far in that respect?

[smorrison64]

What kind of control is Me![ImagePath] and is it bound to a field in the table? If it is bound to a field in the table you should be able to include that in your query that is behind the report then bind it to your control in the report.

What kind of control are you trying to bind to in the report and what have you tried so far in that respect?

I am not binding it because as I understand it bound can only support .bmp files and I'm using multiple formats.

The file name is being stored in the Steps table which is part of the query on which the report is based. I just want to display in an image control the picture associated with the step, if there is one, for that particular step in a process.

I've tried using pieces of the code from above and adapting it to the report but I'm not having any luck.