SinEtiqueta.com

Error de Ejecución de BASIC.
Se ha producido una excepción
Tpye.com.sun.star.container.NoSuchElementException
Message: .

‘1ro Declaramos las variables
‘RutaLink: En esta variable capturamos la ruta de nuestra base de datos en formato «URL»,
‘que luego la tendremos que cambiar a un formato entendible para Windows, y esa ruta
‘modificada la guardaremos en RutaOS.

Dim oRoutaLink as String
Dim oRutaOS as String

‘oFrom, oField y oTfield son variables para conseguir leer la casilla de Texto llamada Adjuntos,
‘dónde tenemos guardado el nombre del archivo, con su extensión, que queremos abrir,
‘finalmente guardaremos esa «dirección» en oRutaFinal.

Dim oForm as Object
Dim oBoton as Object
Dim oField as Object
Dim oRutaFinal as String

‘Añadimos una librería que nos hará falta para conseguir la Ruta

GlobalScope.BasicLibraries.LoadLibrary( «Tools» )

‘Conseguimos la Ruta de la Base Datos, de esta manera, nos da igual que esté alojada en una carpeta local
‘o en una unidad de red, ya que siempre nos guardará en la ruta que esté, eso sí, en esa ruta es dónde
‘tendremos creada nuestra subcarpeta llamada «Adjuntos»
oRutaLink = (DirectoryNameoutofPath(ThisComponent.Parent.getURL(), «/») & «/»)

»»»»»»»»»»»»»»»»»»»»»»»’
‘Este MSGBOX es sólo informativo durante las primeras pruebas, cuando todo funcione podemos eliminarlo.
msgbox (oRutaLink,1, «Nombre de la Ruta tipo LINK»)

»»»»»»»»»»»»»»»»»»»»»»»’
‘La Ruta la pasmos a un formato entendible para Windows.
oRutaOS = ConvertFromURL(oRutaLink)

»»»»»»»»»»»»»»»»»»»»»»»’
‘Este MSGBOX es sólo informativo durante las primeras pruebas, cuando todo funcione podemos eliminarlo.
msgbox (oRutaOS ,1, «Nombre de la Ruta tipo OS»)

»»»»»»»»»»»»»»»»»»»»»»»’

‘Obtenemos que evento tiene el botón
oBoton = oEvent.Source.Model
‘Obtenemos en qué formulario está el botón
oForm = oBoton.Parent
‘Obtenemos el contenido campo de texto «Adjuntos» que está en el formulario que hemos capturado antes.
oField = oForm.getByName(«Adjuntos»)
‘Ruta final del archivo a abrir con el nombre de la carpeta donde está el archivo y el nombre de éste.
‘Tenemos la Ruta en formato Windows, a la subcarpeta «Adjuntos\» y con el texto que hay en el campo «Adjuntos»
oRutaFinal= oRutaOS & «Adjuntos\» & oField.getCurrentValue
‘Mostramos un mensaje de texto que informa qué archivo vamos a abrir, incluyendo la ruta completa.
‘Con este mensaje, podemos aceptar o cancelar.
‘Si aceptamos, se abrirá el archivo, si cancelamos nos saldrá otro mensaje indicando que hemos cancelado la acción de abrir.
Archivo = msgbox («Vamos a abrir el siguiente archivo» + Chr(13) + Chr(13) & oRutaFinal,MB_YESNO, «INFORMACIÓN»)

If Archivo = IDYES then
Shell(«explorer»,1, oRutaFinal)
Else
msgbox(«CANCELADA», 0+64, «Acción»)

End if

End sub