poner imagenes automaticamente

[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