Open Photographs in an Access Form

Scott, I am really confused being less than a beginner with code. I'm not sure which "three lines" are the ones you suggested.

Could you please show me how the code should look?

You still have to use the rest of the code in the IF statement.

The three lines I suggested were to replace the just the three lines in the rest of your code.

I use this and there is still something wrong. Help!

Private Sub OpenImageBtn_DblClick(Cancel As Integer)

StrFile1 = "D:\Documents\Family Tree Maker\Wright-Jagoe Media\" & Me.DigitalFileName1 

strFile2 = "D:\Documents\Family Tree Maker\Laidlaw-Fowler Media\" & Me.DigitalFileName2 

If Dir(StrFile1) = "" Or Dir(strFile2) = "" Then 

End Sub

Walt

I think I got it. Take out line 2 from both strFile1 and strFile2.

You might like to take a look at Images.zip in my public databases folder at:

https://onedrive.live.com/?cid=44CC60D7FEA42912&id=44CC60D7FEA42912!169

If you have trouble downloading a specific file, clicking on the 'Download' button at the top of the page while no files are selected should download a zip file of all files in the folder, from which you should then be able to unpack the relevant file.

In the zip archive the basic Images.accdb file allows images to be associated with each main record and stores each in a text column as the full path to the image in an Images table.  An Addresses_Images table models the many-to-many relationship type between the main Addresses table and the Images table.

The main data entry form includes an unbound combo box of all image titles (which default to the file name if not amended by the user at the time of input).  This filters the form as follows:

Private Sub cboFindImage_AfterUpdate()

    If Me.cboFindImage = "<All Images>" Then

        Me.FilterOn = False

    Else

        Me.Filter = "EXISTS (SELECT * FROM Addresses_Images INNER JOIN Images " & _

            "ON Addresses_Images.ImageID = Images.ImageID " & _

            "WHERE Addresses_Images.AddressID = Addresses.AddressID  AND ImageTitle = """ & Me.cboFindImage & """)"

        Me.FilterOn = True

    End If

End Sub

The combo box's RowSource property is the following UNION operation, which adds an <All Images> row at the start of the list:

SELECT "<All Images>"AS ImageTitle, 0 AS SortColumn

FROM Images

UNION

SELECT ImageTitle, 1

FROM Images

ORDER BY SortColumn, ImageTitle;

The images for each address are displayed in small controls in a continuous subform, which also includes a command button in its detail section to open the currently selected image in its associated application with:

Private Sub cmdOpenImage_Click()

    Application.FollowHyperlink Me.ImagePath

End Sub