Hello,
I use the following VBA code to pick up PDF’s from a folder and show it in an Access form.
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 To Len(DBFullPath)
If Mid(DBFullPath, I, 1) = “\” Then
GetImageFolder = Left(DBFullPath, I) & “Images\SIDA0001\” ‘Name and relative place of subfolder where I keep pdf’s
End If
Next
End Function
Private Sub Form_Current()
‘ retrieve the path where images are stored – in this case the it’s the path of the .mdb file itself
Dim Path As String
Path = GetImageFolder
If IsEmpty(Me!Enk?tID) Or IsNull(Me!Enk?tID) Then ‘Picking up the name for the PDF-file from an ID field in access table.
AcroPDF1.LoadFile (Path & Me!Enk?tID & “.pdf”)
AcroPDF1.setView (“Fit”)
AcroPDF1.setShowScrollbars (False)
Me!Enk?tID.Requery
Else
AcroPDF1.LoadFile (Path & Me!Enk?tID & “.pdf”)
AcroPDF1.setView (“Fit”)
AcroPDF1.setShowScrollbars (False)
End If
End Sub
————-
This works fine! However when trying to scroll through these PDF’s in the form it will lose focus from the Enk?tID field in the form so that I can’t scroll. I need point my mouse to the data field and select it again in order to scroll 1 more PDF.
I want to regain focus automatically to the Enk?tID data field on the form.
How to do this?
Thanks!
Best,
Niclas.
