poner imagenes automaticamente

[noble10]

hola tengo un problemita espero me puedan ayudar tengo este codigo el cual me busca una foto el rpe es la clave principal, a las fotos les pongo como nombre el rpe y asi me busca la foto el problema es que tengo varios registro pero no todas las fotos como puedo hacer para que si esta el registro rpe=111 y no esta la foto con el nombre=111 no me marque error y que cuandose agrege esa foto me la pueda mostrar automaticamente espero me puedan ayudar de antemano gracias

Private Sub ImagenCliente_Updated()

Dim a As String

If Not IsNull(rpe) Then
a = rpe
If Not IsNull(a) Then
If a <> "" Then
ImagenCliente.Picture = ("C:\FOTOS 2009-2010\" & a & ".jpg")
End If
Else
MsgBox "no hay foto que agregar"
End If
Else
MsgBox "no hay valor que agreagar"
End If


End Sub

[agus0]

No entiendo...

[noble10]

hola otra vez yo quiero agradecer a los que se tomaron el tiempo de revisar mi pregunta encontre una forma y espero les sirva a alguien mas y otra vez muchas gracias

Private Sub ImagenCliente_Updated()

Dim a As String
Dim b As String

If Not IsNull(rpe) Then
a = rpe
If Not IsNull(a) Then
If a <> "" Then
b = Dir("C:\FOTOS 2009-2010\" & a & ".jpg")

If b = "" Then
MsgBox "La foto no existe"
Else
ImagenCliente.Picture = ("C:\FOTOS 2009-2010\" & a & ".jpg")
End If
Else
MsgBox "La foto no se encuentra"
End If
Else
MsgBox "no hay foto que agregar"
End If
Else
MsgBox "no hay valor que agreagar"
End If


End Sub

y el siguiente codigo es para que se muestre en cada registro

Private Sub Form_Current()
'RutaFoto_AfterUpdate
ImagenCliente_Updated
normasi_Click

End Sub