Hyperlink Run-Time Error

[trock12]

I'm using a button to open a network link to a corresponding record (each record has it's own unique hyperlink)

I'm using the following coding:

Private Sub BUTTON_Click()
If Me.[Link] = "" Then
MsgBox "Error: Reference path is blank", vbCritical
Else
FollowHyperlink Me.[Link]
End If
End Sub

[Link] being the name of the table column that contains the links.

The button is opening the file path with no problem, but it is also opening up an error message:
Run-time error 7971:
Microsoft Access cannot follow the hyperlink to: file path# file path#1

The error message is repeating the file path and adding a # and #1 on-these are not in the original link

So all I need to do, is get rid of the error message and it should be good.

Thank you!

 

[xenou]

I don't have much experience with hyperlinks in Access. The error doesn't make a lot of sense - I'd try to explore all the properties of the hyperlinks and check for anything unusual.

A possible workaround is:

Private Sub BUTTON_Click()

If Me.[Link] = "" Then
	MsgBox "Error: Reference path is blank", vbCritical
Else
	DoCmd.SetWarnings False
	FollowHyperlink Me.[Link]
	DoCmd.SetWarnings True
End If

End Sub

Note you could also use the code from below to see if it works better for you (a "new and improved" follow hyperlink method):
http://allenbrowne.com/func-GoHyperlink.html