Enlaces en Campos de Texto

Hola. Tengo un formulario con un campo de texto (con Hipervínculo), que relleno automáticamente desde otro formulario usando este código:
Private Sub Comando2_Click()
      Dim stEnlace As String
      stEnlace = http://xxxxxxxx/ + stEnlace + "XXXXXX"     
      Forms![Formulario1]![CampoTextoConEnlace].Value = stEnlace
      DoCmd.Close
End Sub
El problema es que cuando se cierra el segundo formulario el campo de texto del primero muestra el texto, pero no funciona el enlace. Si pulso el botón derecho y miro las propiedades del hipervínculo veo que éste no existe. He tratado de actualizar la propiedad "Address", pero es de sólo lectura.
Y resulta que si copio el texto y lo pego en el propio campo, entonces sí que se actualiza la propiedad Address y el enlace funciona. Imagino que se actualiza en respuesta a un evento de teclado o algo así. ¿No se puede hacer directamente, sin tener que copiar y pegar el texto?
Muchas gracias,

1 respuesta

Respuesta
1
Eureka!
He encontrado la respuesta yo sólito: lo que ocurre es que Access construye los enlaces con el símbolo #. De manera que el código anterior debería quedar así:
Private Sub Comando2_Click()
     Dim stEnlace As String
     stEnlace = http://xxxxxxxx/ + stEnlace + "XXXXXX" 
     stEnlace = stEnlace + "#" + stEnlace + "#"
     Forms![Formulario1]![CampoTextoConEnlace].Value = stEnlace
     DoCmd.Close
End Sub

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas