Метод Application.HyperlinkPart (Access)

Метод HyperlinkPart возвращает сведения о данных, хранящихся в качестве типа данных Гиперссылка.

Синтаксис

expression. HyperlinkPart (гиперссылка, часть)

выражение: переменная, представляющая объект Application.

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Hyperlink	Обязательный	Variant	Данные, хранящиеся в поле гиперссылки .
Часть	Необязательный	AcHyperlinkPart	Константа AcHyperlinkPart , представляющая сведения, возвращаемые методом HyperlinkPart .

Возвращаемое значение

String

Замечания

Метод HyperlinkPart используется для возврата одного из трех значений из поля гиперссылки или отображаемого значения. Возвращаемое значение зависит от параметра аргумента part .

Аргумент part необязателен. Если она не используется, функция возвращает значение, отображаемое в Microsoft Access для гиперссылки (которое соответствует параметру acDisplayedValue для аргумента part ). Возвращаемые значения могут быть одной из четырех частей поля гиперссылки (отображаемый текст, адрес, вложенный адрес или подсказка), полный адрес,подадресадреса# или значение, отображаемое в Microsoft Access для гиперссылки.

Примечание.

Если в запросе используется метод 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
Майкрософт#https://www.microsoft.com#	acDisplayedValue: Microsoft acDisplayText: Microsoft acAddress: https://www.microsoft.com acSubAddress: acScreenTip: acFullAddress: https://www.microsoft.com
Клиенты#https://www.microsoft.com#Form Клиенты	acDisplayedValue: Customers acDisplayText: Customers acAddress: https://www.microsoft.com acSubAddress: Form Customers acScreenTip: acFullAddress: https://www.microsoft.com#Form Customer
##Form Клиенты#Ввод сведений	acDisplayedValue: Form Customers acDisplayText: acAddress: acSubAddress: Form Customers acScreenTip: Enter Information acFullAddress: #FormCustomer

Когда вы добавляете адресную часть в поле Гиперссылка с помощью диалогового окна Вставка гиперссылки (доступно, выбрав Гиперссылка в меню Вставка ) или введя адресную часть непосредственно в поле Гиперссылка , Access добавляет два символа #, разделяющие части данных гиперссылки.

Вы можете добавить или изменить часть отображаемого текста в поле гиперссылки, щелкнув правой кнопкой мыши гиперссылку в таблице, форме или отчете, наведя указатель на гиперссылку в контекстном меню, а затем введя отображаемый текст в поле Текст для отображения .

При непосредственном добавлении данных в поле гиперссылки необходимо включить два символа #, чтобы разделить части данных гиперссылки.

Пример

В следующем примере используются все четыре константы аргумента part для отображения сведений, возвращаемых методом HyperlinkPart для каждой записи в таблице, содержащей поле Гиперссылка . Чтобы попробовать этот пример, вставьте процедуру 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 и обратная связь.