Vincular fotos

Este es el código que inserto para vincular una foto.
Private Sub Imagen_AfterUpdate()
If Not IsNull(Me.Imagen) Then
   Me.Imagen61.Picture = Me.Imagen
Else
    Me.Imagen61.Picture = ""
End If
End Sub
Bueno ahora lo que tengo es dos campos de imágenes en una misma tabla.
ejem.
datos                 imagen                 imagen2
  23         C:\imagenes\23.jpg    C:\imagenes\cuadro1.jpg
  24         C:\imagenes\24.jpg    C:\imagenes\cuadro2.jpg
Lo que querría conseguir es que si ejem (C:\imagenes\23.jpg) no tiene foto, que coja la foto de C:\imagenes\cuadro1.jpg y si tampoco tiene foto C:\imagenes\sinfoto.jpg

1 Respuesta

Respuesta
1
Si no me he equivocado sería este código.
Lo he situado en el evento Al activar registro.
Private Sub Form_Current()
If Not IsNull(Me.imagen) Then
    If (Dir(Me.imagen)) <> "" Then
        Me.Imagen61.Picture = Me.imagen
        Exit Sub
    End If
    If (Dir(Me.imagen2)) <> "" Then
        Me.Imagen61.Picture = Me.imagen2
        Exit Sub
    End If
        Me.Imagen61.Picture = "C:\imagenes\sinfoto.jpg"
End If
End Sub
Una aperta.
Genial!
Una cosita más.
Esta base de datos puede que se mueva de carpeta y las fotos también y puede que se mueva más de una vez.
Ejem
Ahora:
Datos imagen imagen2
  23         C:\imagenes\23.jpg    C:\imagenes\cuadro1.jpg
  24         C:\imagenes\24.jpg    C:\imagenes\cuadro2.jpg
Luego
Datos imagen imagen2
  23         C:\base de datos\imagenes\23.jpg    C:\base de datos\imagenes\cuadro1.jpg
  24         C:\base de datos\imagenes\24.jpg    C:\base de datos\imagenes\cuadro2.jpg
Lo que sucedería que o tendría que cambiar la ruta en la tabla manualmente o solo poner un dato que seria el numero y que me diera la ruta según donde este el .exe de access que es donde estarían las fotos cada vez que llamara la foto.
Datos imagen imagen2
  23 23.jpg cuadro1.jpg
  24 24.jpg cuadro2.jpg
Gracias otra vez y disculpa tanto incordio.
La ruta completa donde se encuentra la base de datos la sacas a través del comando
Dim Ruta as string
Ruta=CurrentProject.Path
Por lo que donde pones por ejemplo
Me. Imagen pondrías
Ruta & "\imagenes" & Me.Imagen
Y en la tabla solo pondrías 23.jpg (por ejemplo)
Con lo que la línea anterior buscaría el fichero 23.jpg situado en una carpeta que está en la misma en la que está la BD.
Después de este coñazo, espero que me entiendas (que no es fácil)
Prueba y me comentas.
Una aperta.

Añade tu respuesta

Haz clic para o

Más respuestas relacionadas

¿Qué macro utilizó para insertar una imagen en excel con referencia a una celda?

Que tal quisiera solicitar de su apoyo, estoy elaborando un carnet y si coloco Pedro en la celda H12 se muestre la imagen de pedro, esta foto extraerla de una carpeta externa donde tengo todas las fotos, pero también necesito agregar una condición a...
2 respuestas

Criterios con cuadros combinados.

Tengo un formulario con dos cuadros combinados que uso como criterios para una consulta, el problema es que si dejo uno o los dos en blanco no muestra nada, y quiero que si no elijo ningún dato de alguno de los cuadros entienda que los quiero todos.
1 respuesta

Problemas al utilizar rutas relativas en Access

Tengo un formulario de base de datos access, donde hago uso de una función VB para recuperar una imagen alojada en un directorio. Recupero el nombre del archivo a través de un campo de base de datos. Consigo visualizar correctamente la imagen e...
1 respuesta

Picture

MSoy Marilin, Yo tengo el mismo problema, utilice tu ejemplo con los nombre que tengo en la tabla. Private Sub Detalle_Format(Cancel As Integer, FormatCount As Integer) Me.Imagen.Picture = RutaFoto End Sub Pero no me muestra la imagen. He copiado el...
1 respuesta

Bloqueo, desbloqueo en un formulario

Tengo un formulario en el que quiero que por seguridad, para modificar los registros ya existentes, se de a un botón. Además quiero que antes de cambiar de registro ciertos campos tengan que estar rellenos.
1 respuesta

Mostrar imágenes en Dw desde un directorio

Man tengo un problemilla, por favor apoyame, estoy tratando de mostrar las fotos de cada cliente en un datawindows en un control p_1. Pero deseo hacerla desde un directorio que esta en mi disco duro (D:/fotoscli/*.jpg), mis imagennes tienen menos...
1 respuesta

Fotos en base de datos access

Podrían por favor ayudarme, con una tabla de fotos, necesito que la bd no quede pesada y que cada registro aprox de 3000 fotos tenga su foto correspondiente.
2 respuestas

Ver imagen según dato en celda

Dan tengo este código me hiciste favor de enviarme y funciona bien mi pregunta es si tengo 2 Imagen 1 Imagen 2 como configuro para que en el segundo me aparezca la imagen ya que en el segundo la imagen seria también por folio y la carpeta seria de...
1 respuesta

¿Cómo puedo hacer para llamar una imagen de forma automática usando una macro en una celda?

Tengo el siguiente código de macro que me llama la imagen, pero mi problema esta es que tengo que hacer enter para que me llame la imagen, yo lo que quiero es que a medida que cambio el valor en la celda a1, también me cambie la foto y luego imprimir...
1 respuesta

Gestionar miles de imágenes tiff

Trato de gestionar miles de imágenes en formato tiff (las imágenes están guardadas en una carpeta concreta del sistema) Tengo una tabla en access donde esta los campos digamos identificativos de la imagen: nº factura, nombre dirección etc, y trato de...
1 respuesta