hola!!, aki estoy de nuevo a ver si me pueden ayudar...
Tengo un formulario donde estoy cargando imagenes dinamicamente cuando el usuario cambia de cliente... el tema es k me he creado un procedimiento pero me da un error diciendo k no encuentra la imagen sin embargo hasta la linea donde le digo Set Imagen = LoadPicture(Nombre_Imagen, vbLPCustom, vbLPDefault) no me da ningun error... a ver si me podeis orientar un poco
Aki os pongo el codigo para k veais como lo hago... muchisimas gracias x vuestro tiempo !!
'le obligo a buscar el archivo en la dirección indicada
Direccion_Cliente = adcClientes.Recordset.Fields("NumeroCliente") & ""
'con InStrRev busco una cadena dentro de otra cadena pero desde el final
Posicion_Path = InStrRev(Direccion_Cliente, "\")
Posicion_Path = Posicion_Path - 1
'con Mid recorto el nombre de la imagen desde el lugar donde he encontrado la \
Direccion_Cliente = Mid(Direccion_Cliente, 1, Posicion_Path)
Path = Direccion_Cliente
'se posiciona en la dirección que le he indicado en el Path
ChDir Path
'-----------------------------------------------------------------------------------------
If Direccion_Cliente = "" Then
lblNoDisponible1.Visible = True
Else
'le obligo a buscar el archivo en la dirección indicada
Direccion_Cliente = adcClientes.Recordset.Fields("NumeroCliente") & ""
'con InStrRev busco una cadena dentro de otra cadena pero desde el final
posicion_nombre = InStrRev(Direccion_Cliente, "\")
'sumo 1 xk la posicion que quiero tener es de solo el nombre sin incluir \
posicion_nombre = posicion_nombre + 1
'con Mid recorto el nombre de la imagen desde el lugar donde he encontrado la \
Nombre_Imagen = Mid(Direccion_Cliente, posicion_nombre)
'IMAGEN 1
'------------------------------------------------------------------------
If Nombre_Imagen = "" Then
imgFoto1.Picture = Nothing
lblNoDisponible1.Visible = True
Screen.MousePointer = vbDefault
Else
Set Imagen = LoadPicture(Nombre_Imagen, vbLPCustom, vbLPDefault) 
aki es donde se le va la olla... 
If lblNoDisponible1.Visible = True Then
imgFoto1.Picture = Nothing
Else
imgFoto1.Picture = Imagen
lblNoDisponible1.Visible = False
End If
If imgFoto1.Picture <> 0 Then
Else
imgFoto1.Picture = Nothing
lblNoDisponible1.Visible = True
Screen.MousePointer = vbDefault
End If
Screen.MousePointer = vbDefault
End If
End If
Screen.MousePointer = vbDefault
