Метод Application.HyperlinkPart (Access)

Статья
04/07/2023

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

Синтаксис

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

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

Параметры

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

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

Строка

Замечания

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

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

Примечание.

Если в запросе используется метод HyperlinkPart , аргумент part является обязательным, и вы не можете использовать перечисленные выше константы, но вместо этого необходимо использовать фактическое значение.

Если значение указано в части displaytext поля гиперссылки , значение, отображаемое Microsoft Access, будет таким же, как и параметр 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`
Клиенты#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 и обратная связь.

Поделиться через