Edit Exisiting Hyperlink

Use this example to display the Hyperlink Dialog. It needs a text box named txtHyperlink with the code behind a command button called cmdEditHyper.

'***************** Code Start *******************
'Code by Terry Wickenden


Private Sub cmdEditHyper_Click()
  'Opens hyperlink dialog
  On Error GoTo ErrEditHyper
  Me.txtHyperlink.SetFocus
  DoCmd.RunCommand acCmdEditHyperlink
  Exit Sub
ErrEditHyper:
  Select Case Err
    Case 2501
      'Cancel button selected do nothing
    Case Else
      MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message"
      Resume
  End Select

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

Return to Example List