** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Abrir ruta específica para subir imágenes
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoAbrir ruta específica para subir imágenes

 Responder Responder
Autor
Mensaje
marygarci Ver desplegable
Nuevo
Nuevo


Unido: 20/Abril/2020
Localización: Las Palmas
Estado: Sin conexión
Puntos: 25
Enlace directo a este mensaje Tema: Abrir ruta específica para subir imágenes
    Enviado: 17/Mayo/2020 a las 13:44
Hola,
En mi base tengo la opción de subir imágenes y sin ningún problema (me gustaría que fuera relativo pero no lo he conseguido, así que procuraré que NUNCA, NUNCA, NUNCA cambiar la ruta de las imágenes jejejeje)

Como decía, cada vez que abro el cuadro de diálogo para añadir una imagen, tengo que partir desde cero. Es decir, este es el esqueleto de mi ruta.

UNIDAD
NIVEL 1
- Carpeta Base de datos
- Carpeta 1
   + Subcarpeta 1a
++ Contenido 1 carpeta imágenes 1a
++ Contenido 2 carpeta imágenes 1a
++ etc.
   + Subcarpeta 1b
++ Contenido 1 carpeta imágenes 1b
++ Contenido 2 carpeta imágenes 1b
++ etc.
   + Subcarpeta 1c
++ idem
   + etc.
- Carpeta 2
   + Subcarpeta 2a
++ idem
   + Subcarpeta 2b
++ idem
   + etc.


Pues imaginen todo lo que tengo que recorrer, así que lo que hago es buscarlo primero en mi explorer, copiar y pegar la dirección en el cuadro de diálogo... Y así con más de 3.000 carpetas (que irán aumentando).

Mi pregunta es si cabe la posibilidad de tener 3 botones con distintas propiedades para abrir el cuadro de diálogo:
- uno de los botones tal como lo tengo ahora (sin problema, me empieza desde el mismo NIVEL 1.
- un segundo botón que me abra siempre desde una carpeta específica.
- un tercer botón que me abra desde la misma carpeta a la que pertenece la foto del registro actual (porque en ocasiones tengo que cambiar la foto o elegir una mejor que he conseguido).

No he encontrado nada al respecto o no he sabido buscar con los conceptos correctos.

Gracias y un saludo.
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 17/Mayo/2020 a las 14:14
Hola!

Prueba FileDialog:-

' Requires reference to Microsoft Office 16.0 Object Library según version access.
Dim sFolder As String
    ' Abra el indicador de selección de carpeta
    With Application.FileDialog(msoFileDialogFolderPicker)
    .InitialFileName = "C:\Windows\Tuscarpetas" 'Aquí es la ruta que tiene que iniciar
        If .Show = -1 Then
            sFolder = .SelectedItems(1)
        End If
    End With
    
    If sFolder "" Then ' si el archivo ha sido seleccionad
        ' *********************
        ' Pon Tu código aquí
        ' *********************
    End If


   

Editado por mounir - 17/Mayo/2020 a las 14:17
Un Saludo.
Arriba
Dabellaso Ver desplegable
Asiduo
Asiduo


Unido: 18/Noviembre/2012
Localización: España
Estado: Sin conexión
Puntos: 338
Enlace directo a este mensaje Enviado: 17/Mayo/2020 a las 20:26
Como apunte, sólo decir que:
Application.FileDialog(msoFileDialogFolderPicker)
 abrirá el cuadro de diálogo para seleccionar una ruta de carpetas


Si realmente estás buscando la ruta a uno o varios archivos prueba con:
Application.FileDialog(msoFileDialogFilePicker)
El modo de usarlo es similar, con la salvedad de que al seleccionar archivos, tendrás la opción de seleccionar varios con la propiedad .AllowMultiSelect, y la de elegir filtros para los ficheros con Filters.Add

Observa que Application.FileDialog  siempre devuelve una matriz .SelectedItems(x), lo digo por si seleccionas varios archivos, deberás tenerlo en cuenta, con las carpetas no tendrás mayor problema. Tampoco tendrás problemas si seleccionas un solo archivo o si usas .AllowMultiSelect=False

saludos


Editado por Dabellaso - 17/Mayo/2020 a las 20:31
El saber no ocupa lugar, sólo tiempo
Arriba
mounir Ver desplegable
Colaborador
Colaborador


Unido: 09/Febrero/2009
Localización: Asturias-España
Estado: Sin conexión
Puntos: 6479
Enlace directo a este mensaje Enviado: 17/Mayo/2020 a las 20:46
Hola!

Creo que la pregunta era crear tres botones para abrir 3 carpetas, con el código que dejé arriba puede abrir la carpeta de base de datos que contiene las otras carpetas y de ahí la utilización de (msoFileDialogFolderPicker) en vez de (msoFileDialogFilePicker).
Un Saludo.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable