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

Свойство Control.Hyperlink (Access)

  • Статья

Свойство Hyperlink используется для возврата ссылки на объект Hyperlink и доступа к свойствам и методам гиперссылки элемента управления. Только для чтения.

Синтаксис

expression. Гиперссылки

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

Пример

Процедура CreateHyperlink в следующем примере задает свойства гиперссылки для кнопки команды, метки или элемента управления изображением значения адреса и подадреса, переданные процедуре. Параметр адреса является необязательным аргументом, так как гиперссылка на объект в текущей базе данных использует только параметр subaddress.

Чтобы попробовать этот пример, создайте форму с двумя элементами управления текстовыми полями (txtAddress и txtSubAddress) и кнопкой командной строки (cmdFollowLink) и вставьте следующий код в раздел Объявления модуля формы.

Private Sub cmdFollowLink_Click() 
 CreateHyperlink Me!cmdFollowLink, Me!txtSubAddress, _ 
 Me!txtAddress 
End Sub 
 
Sub CreateHyperlink(ctlSelected As Control, _ 
 strSubAddress As String, Optional strAddress As String) 
 Dim hlk As Hyperlink 
 Select Case ctlSelected.ControlType 
 Case acLabel, acImage, acCommandButton 
 Set hlk = ctlSelected.Hyperlink 
 With hlk 
 If Not IsMissing(strAddress) Then 
 .Address = strAddress 
 Else 
 .Address = "" 
 End If 
 .SubAddress = strSubAddress 
 .Follow 
 .Address = "" 
 .SubAddress = "" 
 End With 
 Case Else 
 MsgBox "The control '" & ctlSelected.Name _ 
 & "' does not support hyperlinks." 
 End Select 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.