Cargar imágenes automaticamente
Impreso de: Foro de Access y VBA
Categoría: Access y VBA
Nombre del foro: Access y VBA
Descripción del foro: Foro de programacion en Access (Con código y sin código)
URL: http://www.mvp-access.com/foro/forum_posts.asp?TID=84659
Fecha de impresión: 26/Marzo/2026 a las 18:58
Tema: Cargar imágenes automaticamente
Publicado por: McSalas
Asunto: Cargar imágenes automaticamente
Fecha de publicación: 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
|
Respuestas:
Publicado por: xavi
Fecha de publicación: 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 http://www.llodax.com" rel="nofollow - Mi web 
|
Publicado por: McSalas
Fecha de publicación: 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.
|
Publicado por: rokoko
Fecha de publicación: 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 |