如何獲取超鏈接以顯示在Microsoft Access中的表單中？

Question

這個問題有兩個部分：

第1部分：現在我有一個表格可以上傳，插入和刪除表格。我希望將最後一個文本框鏈接到超鏈接。

使用此代碼可用於超鏈接（請參閱下面的內容並參見：Access - Hyperlinks Aren't Linking），但現在我需要更改文字以表示「打開附件」而不是文件位置。對於按鈕，我知道這是通過使用「.Caption」完成的，但是更改文本框的文本並保持剛剛插入的超鏈接的代碼是什麼？

Dim fd As FileDialog 
Set fd = Application.FileDialog(msoFileDialogOpen) 
    With fd 
    .AllowMultiSelect = False 
    .Title = " Please select file" 
     If .Show = True Then 
      Selectfile = .SelectedItems(1) 
      Me.txtHyperlink = "#" & Selectfile & "#" 
     Else 
      Exit Function 
     End If 
     Set fd = Nothing 
End With 

第2部分：每當我插入文件路徑時，該文件也會在另一個窗口中打開。我希望這樣做可以停止，只需鏈接到文件並將文本框更改爲「附件」，但也要保留鏈接。

Answer 1

第1部分：回顧http://www.allenbrowne.com/casu-09.html
超鏈接條目包含由井號（＃）分隔的三個部分。模板是： 顯示文本＃文件名＃

Me.txtHyperlink = "Open Attachment#" & Selectfile & "#" 

文本框IsHyperlink屬性必須設置爲是文件中的任何引用。

第2部分：不太瞭解這個問題。
你打開了什麼樣的文件？什麼樣的窗口打開？可能需要使用FollowHyperlink - 回顧http://allenbrowne.com/func-GoHyperlink.html
我所遇到的情況FollowHyperlink是行不通的，因此使用殼牌方法：

Dim wsShell As Object 
Set wsShell = CreateObject("WScript.Shell") 
wsShell.Run Chr(34) & Me.tbxLink & Chr(34)