Jump to content
Sign in to follow this  
rodstudio

Ver imagen en picturebox asociada a un texto del textbox

Recommended Posts

Buenas noches, desde Yacuiba, Bolivia estoy realizando un control de inventarios y ya me falta poco para terminarlo, lo que tengo es una Base de datos de aprox 1500 items y solo tengo alrededor de 900 fotos de los productos, para mostrarlos no hay ningun problema, simplemente le coloco el mismo nombre tanto a la foto como al codigo y cuando hago clic me muestra, mi PROBLEMA reside en que quisiera MOSTRAR una determinada imagen "No Disponible.jpg" cuando no haya la foto de ese item.

Mi excel esta compuesto por un libro y una carpeta "fotos" que tiene que estar en el mismo lugar que el libro.

VERITEM.zip

Share this post


Link to post
Share on other sites

On Error Resume Next

If Not Intersect(Target, Range("A5:A1600")) Is Nothing Then

imFoto.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & txcodigo & ".jpg")

'esta parte no me cabe!!

'Else

'imFoto.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & "ND.jpg")

End If

Share this post


Link to post
Share on other sites

Así de fácil:

On Error Resume Next
imFoto.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & "ND.jpg")
imFoto.Picture = LoadPicture(ActiveWorkbook.Path & "\FOTOS\" & txcodigo & ".jpg")
[/CODE]

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.
Sign in to follow this  



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png