07/10/2009, 21:44
|
| | | Fecha de Ingreso: mayo-2009
Mensajes: 38
Antigüedad: 15 años Puntos: 0 | |
| poner imagenes automaticamente
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 |