اسمحوا لي باضافه هذا الكود الى الحل
في حدث عند النقر لزر الامر الرابط
Private Sub cmdHyperlink_Click()
On Error GoTo Errhandler
Me.link.SetFocus
RunCommand acCmdEditHyperlink
Exit Sub
Errhandler:
If Err = 2501 Then
Else
MsgBox Err.Description, vbExclamation
End If
End Sub