** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - Cargar imágenes automaticamente
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerradoCargar imágenes automaticamente

 Responder Responder
Autor
Mensaje
McSalas Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 19/Febrero/2019
Localización: Guadalajara
Estado: Sin conexión
Puntos: 32
Enlace directo a este mensaje Tema: Cargar imágenes automaticamente
    Enviado: 22/Agosto/2019 a las 14:18
Hola a todos

Pretendo que se carguen unas fotos al seleccionar en un determinado campo combinado con lista desplegable. Tengo configurado el campo donde quiero que aparezca la foto como Objeto OLE, pero leí una vez que los objetos OLE no eran compatibles quizá con campos combinados o desplegables, no recuerdo bien.
Utilizo Column para rellenar datos automáticamente.

Alguna idea para hacerlo funcionar.

Ejemplo.
Seleccionar un DNI de una lista y aparecen automáticamente los datos personal y la foto.

Gracias, a ver si podeis ayudarme.
Un saludo
Arriba
xavi Ver desplegable
Administrador
Administrador
Avatar
Terrassa-BCN

Unido: 10/Mayo/2005
Localización: Catalunya ||||
Estado: Sin conexión
Puntos: 14738
Enlace directo a este mensaje Enviado: 22/Agosto/2019 a las 14:58
La primera pregunta es: ¿Dónde están las imágenes? Si las tienes en un archivo externo (que es como yo lo haría) utilizaría un control Imagen y la propiedad Picture.

Si las tienen en un campo OLE... no sabría decirte (siempre he sido enemigo de esos campos)

Un saludo
Xavi, un minyó de Terrassa

Mi web
Arriba
McSalas Ver desplegable
Nuevo
Nuevo
Avatar

Unido: 19/Febrero/2019
Localización: Guadalajara
Estado: Sin conexión
Puntos: 32
Enlace directo a este mensaje Enviado: 23/Agosto/2019 a las 14:02
Gracias por tu respuesta.
Las imágenes las he tenido como campo OLE y de hecho me han funcionando haciendo prruebas, pero al meterlo en la bbdd definitiva, me daba un error de incompatibilidad.

Probaré con la alternativa que indicas.
Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 3062
Enlace directo a este mensaje Enviado: 23/Agosto/2019 a las 16:31
Yo lo haria con como indica Xavi, un ejemplo...
En este caso la foto tiene el mismo nombre que el DNI o el id del registro. Y la pilla de una carpeta donde esta la base de datos.

Tamien podrias guardar la ruta completa con la foto y extension de la foto  en un campo por, ejemplo campo  RutaFoto
Quedaria asi

If Len(Dir(Me.RutaFoto)) = 0 Then
Me.imagen.Picture = ""
Else
Me.imagen.Picture = Me.RutaFoto
End if



''********************************
''Con current CurrentProject.Path
If Len(Dir(CurrentProject.Path & "\FotoSocio\" & Me.id_dni & ".jpg")) = 0 Then
Me.imagen.Picture = ""
'Me.Imagen.Picture = CurrentProject.Path & "\FotoSocio\SinFoto.jpg"
'MsgBox "Directorio incorrecto o foto no disponible. Este mensaje se puede anular."
Else
'MsgBox CurrentProject.Path & "\FotoSocio\" & Me.id_dni & ".jpg"
Me.imagen.Picture = CurrentProject.Path & "\FotoSocio\" & Me.id_dni & ".jpg"

End If


Editado por rokoko - 23/Agosto/2019 a las 16:33
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable