** NORMAS DEL FORO **
Inicio del foro Inicio del foro > Access y VBA > Access y VBA
  Mensajes nuevos Mensajes nuevos RSS - 2 o más imagenes simultáneas formulario
  Preguntas frecuentes Preguntas frecuentes  Buscar en el foro   Eventos   Registro Registro  Iniciar sesion Iniciar sesion

Tema cerrado2 o más imagenes simultáneas formulario

 Responder Responder
Autor
Mensaje
Enguerran Ver desplegable
Habitual
Habitual
Avatar

Unido: 07/Septiembre/2017
Localización: Málaga
Estado: Sin conexión
Puntos: 104
Enlace directo a este mensaje Tema: 2 o más imagenes simultáneas formulario
    Enviado: 11/Diciembre/2018 a las 13:02
Hola, he puesto una imagen en un formulario sin engordar la bbdd.
Me gustaría que se pudieran poner más de una. Lo he intentado con 2 
Lo que pasa es que en cuanto una de las 2 no existe, no aparece nada.
Me podéis ayudar?
Gracias
Arriba
emiliove Ver desplegable
Moderador
Moderador


Unido: 16/Junio/2009
Localización: Mexico
Estado: Sin conexión
Puntos: 5212
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 16:54
Tienes que explicarnos mas de lo que haces y como lo haces, por ejemplo si yo tengo una tabla y en ella pongo 4 campos tipo texto en la que voy a poner la ruta de las imagenes y en mi formulario tengo los mismos campos  y parte pongo 4 controles imagen cuyo origen de control tienen cada uno de los campos de las imagenes me trae sin problema las imagenes me falte o no una o dos o tres o todas.

Saludos.
Arriba
Enguerran Ver desplegable
Habitual
Habitual
Avatar

Unido: 07/Septiembre/2017
Localización: Málaga
Estado: Sin conexión
Puntos: 104
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 18:32
esto es lo que tengo para una imagen 
Private Sub Form_Current()
Me.ImagenConforme.Picture = ""

On Error GoTo sol_err
If Not IsNull(Me.ImagenConforme.Picture)
     Me.POD = True
     Me.SERVICIO_REALIZADO = True
     Me.RutaConforme = "C:\CONFORMES\" & Me.[NUM_SERVICIO] & ".JPG"
     Me.ImagenConforme.Picture = Me.RutaConforme
End If
sol_err:
If Err.Number = 2220 Then
                Me.POD = False
                Me.SERVICIO_REALIZADO = False
                Me.ImagenConforme.Picture = ""          
End If


cuando añado lo mismo para otra imagen simultanea en el mismo formulario no funciona 


Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 2546
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 20:24
Los campos y los controles de las tablas deben de ser diferentes

Por ejemplo.... en la tabla tienes que tener otro campo para la 2º foto y en el formulario otro para la imagen

Me.RutaConforme2 = "C:\CONFORMES\" & Me.[NUM_SERVICIO] & ".JPG"
Me.ImagenConforme2.Picture = Me.RutaConforme2
Arriba
Enguerran Ver desplegable
Habitual
Habitual
Avatar

Unido: 07/Septiembre/2017
Localización: Málaga
Estado: Sin conexión
Puntos: 104
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 20:33
Así lo hice, pero ya sabéis que si existe la primera pero no la segunda, genera el error 2220, y entonces no se ve ninguna.

Arriba
rokoko Ver desplegable
Colaborador
Colaborador
Avatar

Unido: 16/Febrero/2008
Localización: Pamplona
Estado: Sin conexión
Puntos: 2546
Enlace directo a este mensaje Enviado: 11/Diciembre/2018 a las 21:59
Algo asi, adaptalo a lo tuyo, lo acabo de probar..
Lo que hace es con Dir  comprobar la ruta a la foto si esxiste..

https://groups.google.com/forum/#!topic/microsoft.public.es.access/auZR3QYFpLk

Ejemplo
https://www.dropbox.com/s/607sb4507939dh7/RutaFotos.mdb?dl=0



Private Sub Form_Load()


Dim Archivo1 As String
Archivo1 = Dir(Me.Ruta1)
If Archivo1 <> "" Then
    Me.Imagen1.Picture = Me.Ruta1
Else
    MsgBox "Ruta 1 incorrecta"
End If

Dim Archivo2 As String
Archivo2 = Dir(Me.Ruta2)
If Archivo2 <> "" Then
    Me.Imagen2.Picture = Me.Ruta2
Else
    MsgBox "Ruta 2 incorrecta"
End If


End Sub


Editado por rokoko - 11/Diciembre/2018 a las 22:10
Arriba
Enguerran Ver desplegable
Habitual
Habitual
Avatar

Unido: 07/Septiembre/2017
Localización: Málaga
Estado: Sin conexión
Puntos: 104
Enlace directo a este mensaje Enviado: 12/Diciembre/2018 a las 10:06
Muchas gracias,
he cambiado los msgbox por me.imagenx.picture=""
porque si no hay imagen, que no muestre nada.
Muchas gracias!!!!
Me ha servido
Ya se puede cerrar el hilo.
Arriba
 Responder Responder
  Compartir tema   

Ir al foro Permisos de foro Ver desplegable