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