combo ile resim çağırma

[blacklife07]

Selamlar,
Çalışmamda bir yerde takıldım kaldım, örneklerinizi inceledim ama işin içinden çıkamadım. Sorunum şu:
personel listem var. Bu listeden aradığım kişiyi bilgileriyle beraber bulabiliyorum fakat bir türlü resmini getirtemedim. Bulma işlemini birbirine bağlı 3 combo ile yapıyorum. 3. combo seçilince bilgilerle beraber resimde gelsin istiyorum. Resimleri kişilerin 3. comboda çıkan sicil numarası olarak resimler klasörüne koyacağım. oradan alıp çağırması gerekiyor.

dosyam ve resimlerimin olacağı klasör adresleri aşağıdadır.

C:\Documents and Settings\blacklife07\Desktop\K\K K\KADROLAR
C:\Documents and Settings\blacklife07\Desktop\K\K K\KADROLAR\resim

Şimdiden teşekkür ederim.

 

[Excelmy]

Sayın blacklife07

Form üzerindeki, SİCİL : ComboBox3 yani ;
Private Sub cbukd0_Change()
kodlarınıza,

On Error GoTo pctyk
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\resim\" & cbukd0 & ".jpg")
GoTo 10
pctyk:
Image1.Picture = LoadPicture("")
10

ekleyiniz.

 

[blacklife07]

İlginize ve alakanıza çok teşekkür ederim. Emeğinize sağlık. Kodlarınız gayet güzel hiç sorunsuz çalışıyor.