Application.HyperlinkPart 方法 (Access)

HyperlinkPart 方法返回有关存储为超链接数据类型的数据的信息。

语法

表达式。超链接第 (部分 超链接，第) 部分

expression：表示 Application 对象的变量。

参数

名称 必需/可选 数据类型 说明
Hyperlink 必需 Variant 存储在 “超链接 ”字段中的数据。
部分 可选 AcHyperlinkPart 一个 AcHyperlinkPart 常量，表示要由 HyperlinkPart 方法返回的信息。

返回值

String

备注

使用 HyperlinkPart 方法可从 超链接 字段或显示值返回三个值之一。 返回的值取决于 part参数的设置。

part参数是可选的。 如果不使用它，则该函数将返回 Microsoft Access 会显示超链接 (这相当于 acDisplayedValue 参数设置为 part ) 的值。 返回的值可以是 超链接 字段的四个部分之一， (显示 文本、 地址、 子地址或 屏幕提示) 、完整地址、 地址# 子地址或 Access 为超链接Microsoft显示的值。

注意

如果在查询中使用 HyperlinkPart 方法，则 part 参数是必需的，不能使用上面列出的常量，而必须使用实际值。

在超链接字段的 displaytext 部分提供值时，Microsoft Access 显示的值将与 displaytext 设置相同。 当超链接字段的 displaytext 部分没有值时，显示的值将是超链接字段的地址或子地址部分，具体取决于字段中首先出现的值。

下表显示了 HyperlinkPart 方法为存储在 超链接 字段中的数据返回的值。

“超链接”字段数据 HyperlinkPart 方法返回值
#https://www.microsoft.com# acDisplayedValue： https://www.microsoft.com

acDisplayText： acAddress： https://www.microsoft.com

acSubAddress： acScreenTip： acFullAddress： https://www.microsoft.com
Microsoft#https://www.microsoft.com# acDisplayedValue： Microsoft

acDisplayText： Microsoft

acAddress： https://www.microsoft.com

acSubAddress： acScreenTip： acFullAddress： https://www.microsoft.com
Customers#https://www.microsoft.com#Form Customers acDisplayedValue： Customers

acDisplayText： Customers

acAddress： https://www.microsoft.com

acSubAddress： Form Customers

acScreenTip： acFullAddress： https://www.microsoft.com#Form Customer
##Form Customers#Enter Information acDisplayedValue： Form Customers

acDisplayText： acAddress： acSubAddress： Form Customers

acScreenTip： Enter Information

acFullAddress： #FormCustomer

使用“插入超链接”对话框将地址部分添加到超链接字段时， (在“插入”菜单) 上选择“超链接”或直接在超链接字段中键入地址部分，Access 会添加两个 # 符号来分隔超链接数据的各个部分。

可添加或编辑超链接字段的 displaytext 部分，方法是右键单击表、窗体或报表中的超链接，指向快捷菜单上的“ 超链接 ”，然后在 “要显示的文本” 框中键入显示文本。

当您直接将数据添加到 超链接 字段时，必须包含两个 # 符号来分隔超链接数据的各个部分。

示例

以下示例使用所有四个 part 参数常量来显示 HyperlinkPart 方法为包含 Hyperlink 字段的表中的每条记录返回的信息。 要试验此示例，请将 DisplayHyperlinkParts 过程粘贴模块的声明部分。 从调试窗口中，可以调用 DisplayHyperlinkParts 过程并向它传递一个包含超链接，并包含超链接数据的字段的名称的表的名称。 例如:

DisplayHyperlinkParts "MyHyperlinkTableName", "MyHyperlinkFieldName" 
 
Public Sub DisplayHyperlinkParts(ByVal strTable As String, _ 
 ByVal strField As String) 
 
 Dim rst As New ADODB.Recordset 
 Dim strMsg As String 
 
 
 rst.Open strTable, CurrentProject.Connection, _ 
 adOpenForwardOnly, adLockReadOnly 
 
 ' For each record in table. 
 Do Until rst.EOF 
 strMsg = "DisplayValue = " _ 
 & HyperlinkPart(rst(strField), acDisplayedValue) _ 
 & vbCrLf & "DisplayText = " _ 
 & HyperlinkPart(rst(strField), acDisplayText) _ 
 & vbCrLf & "Address = " _ 
 & HyperlinkPart(rst(strField), acAddress) _ 
 & vbCrLf & "SubAddress = " _ 
 & HyperlinkPart(rst(strField), acSubAddress) _ 
 & vbCrLf & "ScreenTip = " _ 
 & HyperlinkPart(rst(strField), acScreenTip) _ 
 & vbCrLf & "Full Address = " _ 
 & HyperlinkPart(rst(strField), acFullAddress) 
 
 ' Show parts returned by HyperlinkPart function. 
 MsgBox strMsg 
 rst.MoveNext 
 Loop 
 
End Sub

在查询中使用 HyperlinkPart 方法时， part参数是必需的。 例如，以下 SQL 语句使用 HyperlinkPart 方法返回有关在“链接”表的 URL 字段中作为超链接数据类型存储的数据的信息：

SELECT Links.URL, HyperlinkPart([URL],0) 
 AS Display, HyperlinkPart([URL],1) 
 AS Name, HyperlinkPart([URL],2) 
 AS Addr, HyperlinkPart([URL],3) 
 AS SubAddr, HyperlinkPart([URL],4) 
 AS ScreenTip 
 FROM Links

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。

  • Last updated on