通过

Application.HyperlinkPart 方法 (Access)

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

语法

表达式。HyperlinkPart (Hyperlink、 Part)

expression：表示 Application 对象的变量。

参数

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

返回值

String

备注

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

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

注意

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

在超链接字段的显示文本部分提供值时，Microsoft Access 显示的值将与显示文本设置相同。 如果 Hyperlink 字段的显示文本部分没有值，则显示的值将是“超链接”字段的地址或子地址部分，具体取决于字段中首先存在的值。

下表显示了 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 将添加分隔超链接数据部分的两个 # 符号。

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

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

示例

以下示例使用所有四个 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 方法返回有关在 Links 表的 URL 字段中存储为 Hyperlink 数据类型的数据的信息：

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 支持和反馈，获取有关如何接收支持和提供反馈的指南。