Propiedad TextBox.Hyperlink (Access)

Utilice la propiedad Hyperlink para devolver una referencia a un objeto Hyperlink y obtener acceso a las propiedades y métodos del hipervínculo de un control. Solo lectura.

Sintaxis

expresión. Hipervínculo

Expresión Variable que representa un objeto TextBox .

Ejemplo:

El procedimiento CreateHyperlink del ejemplo siguiente establece las propiedades de hipervínculo de un control de botón de comando, etiqueta o imagen en los valores de dirección y subdirección que se pasan al procedimiento. La configuración de dirección es un argumento opcional, ya que un hipervínculo a un objeto de la base de datos actual usa solo la configuración de subdirección.

Para probar este ejemplo, cree un formulario con dos controles de cuadro de texto (txtAddress y txtSubAddress) y un botón de comando (cmdFollowLink) y pegue lo siguiente en la sección Declaraciones del módulo del formulario.

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

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.