Code Examples

Edit Exisiting Hyperlink

acCmdEditHyperlink

Use this example to display the Hyperlink Dialog. It needs a text box named txtHyperlink with the code behind a command button called cmdEditHyper. txtHyperlink should be bound to a Hyperlink field in a table.

'***************** 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 2046
      'Edit Hyperlink not available
      MsgBox "You must be in a hyperlink field.", vbCritical, "Error Message"
      Resume Next
    Case 2501
      'Cancel button selected do nothing
      Resume Next
    Case Else
      MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message"
      Resume Next
  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.