Cómo hacer en BASE para que un botón me abra una carpeta.

Español
#1

Hola,
Ante todo muchas gracias a esta comunidad por prestar ayuda y colaboración. Me está siendo de mucha ayuda.

Os pongo en antecedentes. Estoy haciendo un formulario en BASE (Libreoffice 6.2) y quiero usarlo tanto para introducir información en las tablas como para que sirva posteriormente para consultar información.
He creado una tabla donde cada registro contiene información de un expediente diferente. A su vez, en la tabla he creado un campo tipo LONGVARCHAR donde insertar la ruta donde se encuentra alojada la carpeta que contiene los documentos relacionados con cada expediente. Pues bien, agradecería mucho que alguien me dijera qué macro debo insertar en un botón del formulario para que me abra la carpeta con los documentos asociados al expediente.

Disculpad si la pregunta es muy básica, es la primera base de datos que creo.

Muchas gracias.
BD_PRL.odb

#2

Buenas!
Mira a ver esto:

Sub  AbrirParaFirmar
Shell "explorer " & "C:\MiCarpeton\Micarpetilla\Portafirmas\Para firmar", vbNormalFocus   
End Sub

Por supuesto que la ruta debe ser la tuya.

Un saludo!

Bien, como ves más abajo no es complicado, pero tienes que adaptar los nombres para que el texto que se recoja sea el del campo que interesa.
Queda fijada al botón que debe estar en el mismo formulario(o subformulario) en el que está el campo si no quieres tener que cambiar el código (cambios mínimos).
Se entiende que lo que hay en el campo es la ruta de la carpeta, no de un documento dentro de la carpeta.
No lo probé, pero supongo que tendría que funcionar.
No llegué a ver tu base de datos (supongo que quedó sin colgar, pero pudiera ser que yo no sepa donde encontrarla).
Un saludo!

    Sub abrirCarpeta (Event)  
    Form= Event.Source.Model.Parent
    MiCampo= Form.getByName("Micampo")
    Ruta= ConvertToURL(MiCampo.Text)
    Shell "explorer " & Ruta, vbNormalFocus   
    End Sub

15907324384372682Ampliado.odb

A ver si te consigo colgar tu ejemplo con una pequeña modificación. Te sacaría en pantalla la ruta que está buscando, y podrás comprobar si existe o no. De hecho te dirá si existe o no.
De todos modos he añadido un botón para generar una carpeta raiz (directorio) que he llamado “Expedientes” y luego, tomando el texto del campo NIF crea una carpeta con ese nombre (el número de NIF). A continuación la abre. Si ya está hecha no hace otra cosa que abrirla.
Lo he puesto para el escritorio, de tal modo que se supone que la ruta es “C:\Users\Tu\Desktop”, donde Tu es el usuario, pero ya se lo coge al sistema, por lo que no debes preocuparte de cambiar la ruta.
Serviría para ver que cuando se genera la carpeta con ruta conocida sí que la abre. Luego tu puedes modificar el código a tu antojo, según dónde guardes las cosas, pero creo que es un sistema mejor que lo de andar guardando las rutas de cada archivo (cuestión de gustos personales).
A ver si de esta sí que funciona!
Un saludo!

#3

Muchas gracias Longi por tu generosidad. El asunto es que tal y como planteaba en mi solicitud original, lo que busco es asignar al botón del formulario F_Accidentados (te adjunto un ejemplo vacío de mi BD) una macro que me abra la carpeta que indica el registro del campo “Carpeta” de la tabla T_Accidentados. Por la macro que me escribes, entiendo que la carpeta que me abriría sería siempre la misma, es decir, la ruta de la carpeta sería estática. No sé si me explico.

Abusando de tu amabilidad, te copio una base de datos vacía para que veas mejor lo que digo.C:\fakepath\BD_PRL.odb

En cualquier caso, muchas gracias por tu generosidad.

#4

Hola de nuevo y muchas gracias. Hice lo que me decías y lo dejé tal que así:
Sub abrirCarpeta (Event)
Form= Event.Source.Model.Parent
MiCampo= Form.getByName(“Carpeta”)
Ruta= ConvertToURL(MiCampo.Text)
Shell "explorer " & Ruta, vbNormalFocus
End Sub
Como me daba error com.sun.star.container.NoSuchElementException pensé que lo había hecho mal y lo dejé tal que así:
Sub abrirCarpeta (Event)
Form= Event.Source.Model.Parent
Carpeta= Form.getByName(“Carpeta”)
Ruta= ConvertToURL(Carpeta.Text)
Shell "explorer " & Ruta, vbNormalFocus
End Sub
Ahora sí me abría una carpeta, pero no la que estaba en el campo Carpeta. He revisado el nombre de los campos, su longitud, las propiedades del botón… y no veo nada mal. La verdad es que estoy un poco desesperado con este asunto. Por si aún te queda paciencia conmigo, he subido (ahora sí) la base de datos de ejemplo al mensaje original, a ver si me puedes orientar. Gracias por anticipado.

#5

Buenas!
En mi equipo va bien, simplemente poniendo bien la ruta de lo que se quiere abrir.
Sospecho que ‘Fernando&MªÁngeles’ no es un usuario.
Puedes ir a la carpeta, botón derecho, propiedades y donde pone ‘localización’ te tiene toda la ruta de la carpeta, excepto el nombre, que lo tienes en el recuadro de arriba.
Copias la localización en el campo de carpeta, le añades una barra invertida ( '\ ') y después el nombre de la carpeta.
Con eso debiera funcionar.
Otro saludo!

#6

Pues lo acabo de comprobar tal y como me indicas y no estaba equivocado es exactamente esa, sin embargo me abre la carpeta Mis Documentos. La ruta es la que aparecen la base de datos¿Está correcta la adaptación de tu código a mi caso particular? ¿Será alguna propiedad del botón? Ya lo miré pero puede habérseme pasado algo

Sub abrirCarpeta (Event)
Form= Event.Source.Model.Parent 
Carpeta= Form.getByName("Carpeta") 
Ruta= ConvertToURL(Carpeta.Text) 
Shell "explorer " & Ruta, vbNormalFocus
End Sub

En cualquier caso, gracias por tu paciencia con los torpes como yo.

#7

Perdona por tardar tanto en responder.
¡Ya me funciona!
Muchas gracias.
Voy a ver si soy capaz de dar por CERRADA la consulta.

Impressum (Legal Info) | Datenschutzerklärung (Privacy Policy)   Content on this site is licensed under a Creative Commons Attribution Share Alike 3.0 license.