Open Hyperlink

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 ********************

Return to Example List