وجدت هذا الكود لفتح الارتباط بأي ملف
Private Sub cmdOpenHyper_Click()
On Error GoTo ErrOpenHyper
Me.txtHyperlink.SetFocus
DoCmd.RunCommand acCmdOpenHyperlink
Exit Sub
ErrOpenHyper:
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