G
Guest
I have a sub report that contains a list of pdf file names. Next to each the
file name I have a text box “txtViewPDFâ€. I want to set
txtViewPDF.HyperlinkAddress so that when the user clicks on it the Pdf file
opens.
I’ve encountered a few problems trying to implement this:
First: I can’t click on the hyperlink because the mouse cursor is always a
magnifying glass. Is there a setting I need to change to make the mouse
cursor change from a magnifying glass to an arrow?
Hyperlinks work when I export the report to Word.
Second: I am trying to set the HyperlinkAddress with the following sub but
all the hyperlinks in the sub report open the last pdf file in the sub report
(when exported to word).
The full pdf file path = strDefultPath & strFileName
Private Sub Report_Page()
Dim strDefultPath As String
Dim strFileName As String
Dim strFullPath As String
strDefultPath = Dlookup( )
strFileName = txtFileName
strFullPath = strDefultPath & strFileName
Me!txtViewPDF.HyperlinkAddress = strFullPath
End Sub
Cheers,
Seth
file name I have a text box “txtViewPDFâ€. I want to set
txtViewPDF.HyperlinkAddress so that when the user clicks on it the Pdf file
opens.
I’ve encountered a few problems trying to implement this:
First: I can’t click on the hyperlink because the mouse cursor is always a
magnifying glass. Is there a setting I need to change to make the mouse
cursor change from a magnifying glass to an arrow?
Hyperlinks work when I export the report to Word.
Second: I am trying to set the HyperlinkAddress with the following sub but
all the hyperlinks in the sub report open the last pdf file in the sub report
(when exported to word).
The full pdf file path = strDefultPath & strFileName
Private Sub Report_Page()
Dim strDefultPath As String
Dim strFileName As String
Dim strFullPath As String
strDefultPath = Dlookup( )
strFileName = txtFileName
strFullPath = strDefultPath & strFileName
Me!txtViewPDF.HyperlinkAddress = strFullPath
End Sub
Cheers,
Seth