Follow along with the video below to see how to install our site as a web app on your home screen.
Note: This feature may not be available in some browsers.
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