Texto hipervínculo

Hola. En la BD tengo una tabla con un hipervínculos.
La dirección de la misma es un poco larga ya que esta en varios directorios y subdirectorios.
Cuando hago un formulario para que me salga la dirección de los hipervínculos, sale muy grande, al ser muy larga con los directorios.
¿Se podía disminuir la dirección, para que solo salga el nombre del documento?
¿Cómo?
Gracias.

1 Respuesta

Respuesta
1
En vez del campo tal cual, en el origen del control pones:
=fNomDoc([nombre del campo hipervinculo])
y en un módulo creas la siguiente función:
Public Function fNomDoc(pRuta As String) As String
   Dim nPos As Long
   pRuta = Trim(pRuta)
   nPos = InStrRev(pRuta, "\")
   If nPos > 0 Then
      fNomDoc = Mid(pRuta, nPos + 1)
   Else
      fNomDoc = pRuta
   End If
End Function

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas