Warning: file_get_contents(/data/phpspider/zhask/data//catemap/1/database/8.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
Sql 如何使超链接显示在microsoft access中的表单中?_Sql_Database_Ms Access_Hyperlink_Vba - Fatal编程技术网

Sql 如何使超链接显示在microsoft access中的表单中?

Sql 如何使超链接显示在microsoft access中的表单中?,sql,database,ms-access,hyperlink,vba,Sql,Database,Ms Access,Hyperlink,Vba,这个问题分为两个部分: 第1部分:现在我有一个表单,可以从表中上传、插入和删除。我想要最后一个文本框链接到超链接 使用此代码可用于超链接,请参见下面的内容,请参见以下内容:,但现在我需要将文本改为类似“打开附件”的内容,而不是文件位置。对于按钮,我知道这是通过使用.Caption来完成的,但是更改文本框的文本并保留我刚才插入的超链接的代码是什么 Dim fd As FileDialog Set fd = Application.FileDialog(msoFileDialogOpen)

这个问题分为两个部分:

第1部分:现在我有一个表单,可以从表中上传、插入和删除。我想要最后一个文本框链接到超链接

使用此代码可用于超链接,请参见下面的内容,请参见以下内容:,但现在我需要将文本改为类似“打开附件”的内容,而不是文件位置。对于按钮,我知道这是通过使用.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部分:每当我插入文件路径时,文件也会在另一个窗口中打开。我希望停止此操作,只链接到文件,并将文本框更改为“附件”,但同时保留链接。

第1部分:回顾 超链接条目包含三个由磅符号分隔的部分。模板为: 显示文件中任何引用的文本文件名

Me.txtHyperlink = "Open Attachment#" & Selectfile & "#"  
Textbox IsHyperlink属性必须设置为“是”

第二部分:不太理解这个问题。 你要打开什么样的文件?什么样的窗户开着?可能需要使用以下超链接-查看 我遇到过以下情况:超链接不起作用,因此使用了Shell方法:

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

好了!!我不确定显示文本在引号中的格式!