Open Hyperlink
acCmdOpenHyperlink
Use this example to open a hyperlink. The example assumes that you have a text field called txtHyperlink and that the code is behind a command button called cmdOpenHyper.
'***************** Code Start *******************
'Code by Terry Wickenden
Private Sub cmdOpenHyper_Click()
On Error GoTo ErrOpenHyper
Me.txtHyperlink.SetFocus
DoCmd.RunCommand acCmdOpenHyperlink
Exit Sub
ErrOpenHyper:
Select Case Err
Case 2046
'Menu option not available
'Normally because there is nothing to link to
MsgBox "There is no hyperlink"
Case Else
MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message"
Resume
End Select
End Sub
'****************** Code End ********************
