Creating a hyperlink to open a pdf file

[Jrw76]

I have a form, and on that form I have a textbox called RefDwgNo (user not allowed to make changes...just for viewing). Displayed in this textbox is the name of a file (without the .pdf extension). I changed the textbox to 'is hyperlink' and added to OnClick- this code:

Private Sub RefDwgNo_Click()
FollowHyperlink "\\***private***\engineering_data\***Private***\Des ign\Fitout\Label Plate\_LATEST REV"
End Sub

The user needs to actually open the .pdf file, not the folder its located in. How do I add the file name from this textbox to the code above?

[pbaldy]

I would not bother with the is hyperlink part. If the text box has the file name try:

Application.FollowHyperlink "\\***private***\engineering_data\***Private***\Design\Fitout\Label Plate\_LATEST REV" & Me.TextboxName & ".pdf"

though the spaces in the path might screw it up.

[ItsMe]

Maybe

FollowHyperlink "\\***private***\engineering_data\***Private***\Des ign\Fitout\Label Plate\_LATEST REV" & Me.RefDwgNo.value & ".pdf"

[Jrw76]

I tried it with the .value and without. Neither worked. The spaces don't make a difference, I take out- & Me.refdwgno
& ".pdf" and it worked, it just got me to the file holding the .pdfs

Maybe

FollowHyperlink "\\***private***\engineering_data\***Private***\Des ign\Fitout\Label Plate\_LATEST REV" & Me.RefDwgNo.value & ".pdf"

[Jrw76]

Anyone still paying attention to this thread.

I tried it with the .value and without. Neither worked. The spaces don't make a difference, I take out- & Me.refdwgno
& ".pdf" and it worked, it just got me to the file holding the .pdfs

[ItsMe]

I just posted some examples here
https://www.accessforums.net/access/...tml#post209029

Let us know if you are still having trouble.

[Jrw76]

still having trouble. I don't see anything wrong with the code, but for some reason adding: & Me.RefDwgNo & ".pdf" isn't being recognized.

[pbaldy]

Try hard coding the entire path and see if it opens the file. Make sure you've turned off the is hyperlink as it may be adding something extra.

[ItsMe]

Try this.. create a string variable. This way you can trouble shoot the variable before assigning it to the hyperlink.

Dim strPath as string
strPath = "\\***private***\engineering_data\***Private***\Design\Fitout\Label Plate\_LATEST REV" & Me.TextboxName & ".pdf"
debug.print strPath

The debug line will print your string variable in the Immediate Window. You can view the immediate window using Ctrl+G on your keyboard. There you can study the hyperlink and see where there may need to be an adjustment. You can try pasting it in Windows Explorer. You could also paste it here and maybe we can see something.

[Jrw76]

got it...didn't have a backslash after the last folder on the path....thanks for the help. It was when hard coding it that I noticed it.

[ItsMe]

We have all been there before. It is not a bad idea to break procedures out into sections so they can be isolated and scrutinized. Glad you got it working!