Access - fotos formulario

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.

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.

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.

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.

Gracias de antemano por las molestias que te estas tomando, pero sigue sin funcionarme.

Un cordial saludo.

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

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

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.

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