HyperlinkPart 方法
內(nèi)容
HyperlinkPart 方法返回存儲(chǔ)為“超鏈接”數(shù)據(jù)類型的數(shù)據(jù)的信息。String 型。
expression.HyperlinkPart(Hyperlink, Part)
expression 必需。返回“應(yīng)用于”列表中的一個(gè)對(duì)象的表達(dá)式。
Hyperlink 必需 Variant 型。其值為存儲(chǔ)在“超鏈接”字段中的數(shù)據(jù)的 Variant 變量。
Part 可選 AcHyperlinkPart。part 參數(shù)的值是一個(gè)固有常量，表示希望由 HyperlinkPart 方法返回的信息。
AcHyperlinkPart 可以是下列 AcHyperlinkPart 常量之一： |
acAddress。“超鏈接”字段的 address 部分。 |
acDisplayedValue 默認(rèn)。顯示在超鏈接中的帶下劃線的文本。 |
acDisplayText。“超鏈接”字段的 displaytext 部分。 |
acFullAddress?！俺溄印弊侄沃杏伞?”字符分隔的 address 和 subaddress 部分。 |
acScreenTip?！俺溄印弊侄蔚?/span>工具提示部分。 |
acSubAddress?！俺溄印弊侄蔚?subaddress 部分。 |
說明
使用 HyperlinkPart 方法可以返回“超鏈接”字段的三個(gè)值中的一個(gè)或返回顯示的值。返回值取決于 part 參數(shù)的設(shè)置。part 參數(shù)是可選的。如果沒有指定，則函數(shù)返回 Microsoft Access 所顯示的超鏈接的值（對(duì)應(yīng)于 part 參數(shù)的 acDisplayedValue 設(shè)置）。返回的值可以是“超鏈接”字段的四個(gè)部分（displaytext、address、subaddress 或 screentip）中的一個(gè)部分、完整的地址、 address#subaddress 或 Microsoft Access 所顯示的超鏈接的值。
注釋 如果要在查詢中使用 HyperlinkPart 方法，則 part 參數(shù)是必需的，并且不能使用上面列出的常量值而必須用實(shí)際數(shù)值。
當(dāng)“超鏈接”字段的 displaytext 部分有一個(gè)值時(shí)，Microsoft Access 顯示的值將與 displaytext 的設(shè)置相同。如果“超鏈接”字段的 displaytext 部分沒有值，則所顯示的值為“超鏈接”字段的 address 或 subaddress 部分（這取決于哪個(gè)值首先出現(xiàn)在字段中）。
下表列出了 HyperlinkPart 方法返回的、存儲(chǔ)在“超鏈接”字段中的數(shù)據(jù)的值。
超鏈接字段數(shù)據(jù) |
HyperlinkPart 方法返回值 |
#http://www.microsoft.com# |
acDisplayedValue：http://www.microsoft.com acDisplayText： acAddress：http://www.microsoft.com acSubAddress： acScreenTip： acFullAddress：http://www.microsoft.com |
Microsoft#http://www.microsoft.com# |
acDisplayedValue：Microsoft acDisplayText：Microsoft acAddress: http://www.microsoft.com acSubAddress： acScreenTip： acFullAddress：http://www.microsoft.com |
客戶#http://www.microsoft.com#窗體客戶 |
acDisplayedValue：客戶 acDisplayText：客戶 acAddress：http://www.microsoft.com acSubAddress：窗體客戶 acScreenTip： acFullAddress：http://www.microsoft.com#窗體客戶 |
##窗體客戶#輸入信息 |
acDisplayedValue：窗體客戶 acDisplayText： acAddress： acSubAddress：窗體客戶 acScreenTip：輸入信息 acFullAddress：#窗體客戶 |
當(dāng)您通過“插入超鏈接”對(duì)話框（單擊“插入”菜單中的“超鏈接”命令可打開該對(duì)話框）或直接在“超鏈接”字段中鍵入一個(gè)地址部分來(lái)添加“超鏈接”字段的 address 部分時(shí)，Microsoft Access 將添加兩個(gè) # 符號(hào)以分隔超鏈接數(shù)據(jù)的各部分。
要添加或編輯超鏈接字段的 displaytext 部分，可用鼠標(biāo)右鍵單擊表、窗體或報(bào)表中的超鏈接，指向快捷菜單上的“超鏈接”，然后在“要顯示的文字”框中鍵入要顯示的文本。
當(dāng)向“超鏈接”字段直接添加數(shù)據(jù)時(shí)，必須包含兩個(gè) # 符號(hào)以分隔超鏈接數(shù)據(jù)的各個(gè)部分。
示例
下面的示例使用全部四個(gè) part 參數(shù)常量來(lái)顯示由 HyperlinkPart 方法返回的、關(guān)于包含“超鏈接”字段的表中每條記錄的信息。若要試用該示例，可將 DisplayHyperlinkParts 過程粘貼到模塊的“聲明”節(jié)。然后即可在“調(diào)試”窗口調(diào)用 DisplayHyperlinkParts 過程，調(diào)用時(shí)傳給過程的參數(shù)為包含超鏈接的表的名稱和包含“超鏈接”數(shù)據(jù)的字段的名稱。例如：
: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 參數(shù)是必需的。例如，下面的 SQL 語(yǔ)句使用 HyperlinkPart 方法返回有關(guān)鏈接表的 URL 字段中以“超鏈接”數(shù)據(jù)類型存儲(chǔ)的數(shù)據(jù)的信息：
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