Kod:
Private Sub LinkButon_Click()
On Error GoTo Hata
Me.txtLink.SetFocus
DoCmd.RunCommand acCmdOpenHyperlink
Exit Sub
Hata:
Select Case Err
Case 2046
MsgBox "Link Bulunamadı"
Case Else
MsgBox Err & vbCrLf & vbCrLf & Err.Description, vbCritical, "Hata Oluştu!"
Resume
End Select
End Sub