Hello,

I use the following VBA code to pick up PDF's from a folder and show it in an Access form.

code:
--------
Code:
Option Compare Database
Public strImageFile As String

Private Function GetImageFolder() As String
Dim DBFullPath As String
Dim I As Integer

DBFullPath = CurrentDb().Name

' Strip the filename from the full path
For I = 1
...