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.
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.
Respuesta de barrusfalco
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
=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
