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