Access - fotos formulario

   
Vista:

fotos formulario

Publicado por Antonio Garcia (15 intervenciones) el 08/03/2008 10:53:43
tengo esto

Private Sub Form_Current()
foto.Picture = "C:fotos " + DNI.Value + ".jpg"

para "llamar" a la foto y ponerla en el formulario, funciona perfectamente pero cuando no tengo la foto, me gustaria que se quedara en blanco y no con la última, porque soy incapaz de depurarlo.

Muchas gracias.
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:fotos formulario

Publicado por mi menda (1111 intervenciones) el 08/03/2008 12:43:37
Hola Antonio:
Prueba de esta forma
Supongo que DNI es un Campo.

If Nz(DNI,"") <> "" then
foto.Picture = "C:fotos " & DNI & ".jpg"
Else
foto.Picture = (ninguna)
End if

Sí no te funciona prueba a poner "(ninguna)" entre comillas dobles, porque va de memoria, no lo he probado.

Un Saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por Antonio Garcia (15 intervenciones) el 08/03/2008 22:36:14
Has sido muy amable en contestar tan rápidamente, pero no me funciona me sigue saliendo para que lo depure (la segunda linea sigue en amarillo)

If Nz(DNI, "") <> "" Then
foto.Picture = "C:fotos" + DNI.Value + ".jpg"
Else
foto.Picture = "ninguna"
End If

Mucas gracias de todas formas.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por mi menda (1111 intervenciones) el 09/03/2008 01:23:51
Hola Antonio:
De momento lo probaré, ahora mismo no puedo porque tengo access 2007 y las imágenes se tratan de una forma diferente, en un par de días te contesto ya probado, bueno... sí es que alguien no te ha dado antes la solución.
De todas formas verás que no has metido la palabra "ninguna" entre parentesis como te puse en el código:
"(ninguna)"
Prueba de esta forma sí sìn comillas no te funciona.
Un Saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por Antonio Garcia (15 intervenciones) el 10/03/2008 08:55:32
Gracias de antemano por las molestias que te estas tomando, pero sigue sin funcionarme.

Un cordial saludo.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por elias (405 intervenciones) el 10/03/2008 09:01:37
Prueba esto:

If Nz(DNI,"") <> "" then
foto.Picture = "C:fotos" & DNI & ".jpg"
Else
foto.Picture = "c:fotospicture.jpg"
End If

Create un fichero con una equis o algo asi metelo en el directorio fotos
y prueba esto..

Espero te sirve
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por Enrique (1299 intervenciones) el 10/03/2008 18:32:11
Aquí tienes otra alternativa, aunque parecida a las anteriores. En el centro del Cuadro de Imagen, pones una Etiqueta alargada de izquierda a derecha de nombre "Etiqueta1", en Título le pones un espacio en blanco para que no muestre nada, luego añades el Evento "Al Cargar" y pones la Etiqueta1 Invisible.

Private Sub Form_Load()
Etiqueta1.Visible = False
End Sub

Private Sub Form_Current()
On Error GoTo Aviso
Form_Load
If Not IsNull(DNI) Then
Foto.Picture = "C: fotos" + DNI.Value + ".jpg"
Else
Foto.Picture = ""
Etiqueta1.Visible = True
Etiqueta1.Caption = "IMAGEN NO DISPONIBLE"
End If
Exit Sub

'Cuando la Ruta o el Nombre del archivo son incorrectos o no existen
Aviso:
If Err.Number = 2220 Then
Foto.Picture = ""
Etiqueta1.Visible = True
Etiqueta1.Caption = "RUTA O NOMBRE IMAGEN INCORRECTOS"
Exit Sub
End If
End Sub

Saludos
Enrique
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por Antonio Garcia (15 intervenciones) el 11/03/2008 12:00:11
Muy agradecido a Elias y Enrique (por supuesto que a "mi menda" también). Me podré con ello a ver si me funciona.

Saludos cordiales.
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:fotos formulario

Publicado por antonio Garcia (15 intervenciones) el 11/03/2008 12:34:13
Elias, no consigo que me funcione, he considerado "c:fotospicture.jpg" como la fotografía que saldría por defecto si no encuentra la foto del sujeto.

Gracias de todos modos
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar