Метод Application.HyperlinkPart (Access)

Метод HyperlinkPart возвращает сведения о данных, сохраненных в виде данных Hyperlink.

Синтаксис

выражение. HyperlinkPart (Гиперссылка, Часть)

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

Параметры

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

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

String

Примечания

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

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

Примечание.

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

Если значение указано в части displaytext поля "Гиперссылка ", значение, отображаемое Microsoft Access, будет совпадать с значением параметра displaytext . Если в части displaytext поля "Гиперссылка" нет значения, отображаемое значение будет адресной илисубадресной частью поля "Гиперссылка ", в зависимости от того, какое значение присутствует в поле первым.

В следующей таблице показаны значения, возвращаемые методом HyperlinkPart для данных, сохраненных в поле Hyperlink .

Данные полей гиперссылок	Метод 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 добавляет два символа #, разделяющие части данных гиперссылки.

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

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

Пример

В следующем примере все четыре константы аргумента part используются для отображения сведений, возвращаемых методом HyperlinkPart для каждой записи в таблице, содержащей поле Hyperlink . Чтобы попробовать этот пример, вставьте процедуру DisplayHyperlinkParts в раздел объявлений модуля. Процедуру DisplayHyperlinkParts можно вызвать из окна Debug, передав в него имя таблицы, содержащей гиперссылки, и имя поля, содержащего данные Hyperlink. Например, вы можете:

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 и обратная связь.