Private Sub cmdEditLink_Click()
'Opens hyperlink dialog
On Error GoTo ErrEditHyper
Me.ViewDoc.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