Access.NavigationControl.Hyperlink.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
NavigationControl.Hyperlink property (Access)	vbaac10.chm11037	vbaac10.chm11037	Access.NavigationControl.Hyperlink	2d6bdb1a-808e-1712-1846-71ffa8619f0d	03/01/2019	medium

NavigationControl.Hyperlink property (Access)

Use the Hyperlink property to return a reference to a Hyperlink object and to access the properties and methods of a control's hyperlink. Read-only.

Syntax

expression.Hyperlink

expression A variable that represents a NavigationControl object.

Example

The CreateHyperlink procedure in the following example sets the hyperlink properties for a command button, label, or image control to the address and subaddress values passed to the procedure. The address setting is an optional argument, because a hyperlink to an object in the current database uses only the subaddress setting.

To try this example, create a form with two text box controls (txtAddress and txtSubAddress) and a command button (cmdFollowLink), and paste the following into the Declarations section of the form's module.

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

[!includeSupport and feedback]