Code Examples

Insert Hyperlink

acCmdInsertHyperlink

This code opens the Insert Hyperlink dialog for the field txtHyperlink. It is placed behind a button called cmdInsertHyper.

'***************** Code Start *******************
'This code was originally written by Terry Wickenden.
'It is not to be altered or distributed,
'except as part of an application.
'You are free to use it in any application,
'provided the copyright notice is left unchanged.


Private Sub cmdInsertHyper_Click()
  On Error GoTo Errhandler

  txtHyperlink.SetFocus
  DoCmd.RunCommand acCmdInsertHyperlink
  Exit Sub

Errhandler:

  Select Case Err
    Case 2046
      'Command not available
      MsgBox "You must select an OLE field before running this procedure.", vbCritical, "Not Available"
    Case 2501
      'Cancel selected in dialog box - do nothing
    Case Else
      MsgBox Err.Number & ":-" & vbCrLf & Err.Description
  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.