如何获取超链接以显示在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)