There is a better way. What you need to do is to use the on click or on
doubleclick event to take you to the address. Here is the text you would use
on the event
Dim strDocPath As String
strDocPath = Me.txtLink
subHyperlinkFollow (strDocPath)
You can then create a generic sub routine to open the hyperlink and store it
in your modules.
Public Sub subHyperlinkFollow(strLinkName As String)
' Open a hyperlink
On Error GoTo Error_subHyperlinkFollow
Application.FollowHyperlink strLinkName, , True
Exit_subHyperlinkFollow:
Exit Sub
Error_subHyperlinkFollow:
MsgBox "Error in subHyperlinkFollow " & Err.Number & " - " &
Err.Description
Resume Exit_subHyperlinkFollow
End Sub
You can change the visible property of your hyperlink to false and you
should be fine.
Neville Turbit
www.projectperfect.com.au
