Use this example to open the hyperlink in a new window. This example assumes that you have a text field called txtHyperlink and that the code is behind a command button called cmdOpenNewHyper.
'***************** Code Start ******************* 'Code by Terry Wickenden Private Sub cmdOpenNewHyper_Click() On Error Goto ErrOpenNewHyper Me.txtHyperlink.SetFocus DoCmd.RunCommand acCmdOpenNewHyperlink Exit Sub ErrOpenNewHyper: Select Case Err Case 2046 'Menu option not available 'Normally because there is nothing to link to MsgBox "There is no hyperlink" Case Else MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Error Message" Resume End Select End Sub '****************** Code End ********************
Return to Example List