Hyperlink to pdf on local drive

Patrick O'Dea
Patrick O'Dea used Ask the Experts™
on
Hi,

(I raised this last week and never fully resolved it).

1. I have a form with a hyperlink in it.

2. I then use the form to enter a link to a local pdf file.

3. After this I click on the link and the pdf should open.

In the database attached.
Please use the form to insert a PDF file from your local drive onto the hyperlink.

Then save the record, and then see if you can click on the hyperlink.
Can you get the pdf to open. (Same applies with other formats)

Why can't I open my pdf when I click on the link?


PS: The VBA was supplied by an expert and ALMOST does exactly what I want.
dbselectfile.accdb
Comment
Watch Question

Do more with

Expert Office
EXPERT OFFICE® is a registered trademark of EXPERTS EXCHANGE®
Distinguished Expert 2017

Commented:
I can't download the file where I am.

I never use the hyperlink data type since it isn't supported by SQL Server.  I use a standard text column.  In code, I use the FollowHyperlink method which will use Windows to determine which application to launch based on registry settings and open the correct application.  So if the file extension is .xls, Excel will open, if it is .txt, notepad will open, if it is .doc, Word will open.  If it is a web address, a web page will open up.  To make it look like a hyperlink, set the Display as Hyperlink property to Always on the property sheet.

Author

Commented:
Thanks Pat,

I am looking at FollowHyperLink .. it's new to me!

Is it possible to set a textbox = Application.FollowHyperlink strInputByUser??

... I am little beyond my comfort zone.

Ideally, if someone could download my database and tweak it!
Distinguished Expert 2017

Commented:
No, you would reference another text box if you wanted the user to specify.

Application.FollowHyperlink Me.InputByUser

Here is a code sample taken from an application where I use it.  The form is bound so I save the current record first if it is dirty.  These are links I stored internally and I do not store the path with the file name for this application because I want to make it easy for the client to move the directories to a different location.  So, the code concatenates the path with the document name from the text box.

Private Sub cmdOpenDoc_Click()
    Dim strInput As String
    
On Error GoTo Err_cmdOpenDoc_Click
    If Me.Dirty Then
        DoCmd.RunCommand acCmdSaveRecord
    End If

    If Right(Me.ScannedDocPath, 1) = "\" Then
        strInput = Me.ScannedDocPath & Me.txtFullDocName
    Else
        strInput = Me.ScannedDocPath & "\" & Me.txtFullDocName
    End If
    
    Application.FollowHyperlink strInput, , True

Exit_cmdOpenDoc_Click:
    Exit Sub

Err_cmdOpenDoc_Click:
    Select Case Err.Description
        Case 2501
            Resume Next
        Case 490    '   cannot open file
            MsgBox "This file cannot be found.  Please check its name and path.", vbOKOnly + vbInformation
            Exit Sub
        
        Case Else
            MsgBox  Err.Number & "--" &  Err.Description
            Resume Exit_cmdOpenDoc_Click
    End Select
    
End Sub

Open in new window

Should you be charging more for IT Services?

Do you wonder if your IT business is truly profitable or if you should raise your prices? Learn how to calculate your overhead burden using our free interactive tool and use it to determine the right price for your IT services. Start calculating Now!

Author

Commented:
Thanks for advice ..

I have tried the VBA provided and some other stuff too.
I am coming across a number of problems ...
A whole variety of issues arising and I am losing my enthusiasm!


Would it be possible to send me a very simple db with a hyperlink facility.
Distinguished Expert 2017
Commented:
Use the ... button to select any registered file type.  Then click the Open button to open it.   It will even work to open web pages if you use the full name ---

http://www.fmsinc.com/
HyperLinkSample140306.zip

Author

Commented:
Pat,

Thanks for that.
It works very well.

(Now, I have to make sure that I don't break the golden rule! - I must try to understand the VBA - or at least most of it).

Do more with

Expert Office
Submit tech questions to Ask the Experts™ at any time to receive solutions, advice, and new ideas from leading industry professionals.

Start 7-Day Free Trial