Code Examples

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
  DoCmd.RunCommand acCmdOpenHyperlink
  Exit Sub
  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"
  End Select

End Sub

'****************** Code End ********************

© 1998 - 2011 Terry Wickenden TKW Design Site developed, maintained and hosted by TKW Design. This site is best viewed at 1024 x 768. Optimised for Firefox.