Resmi olmayan ürün seçildiğinde

[Mdemir63]

Selamlar

Örnek dosyada Listbox dan ürün seçtiğimde eğer seçtiğim ürünün resmi varsa geliyor . Resmi olmayan ürün seçtiğimde İmage boş görünmüyor.
kodlarda ne gibi bir hata yapıyorum.

Saygılar

 

[muygun]

Merhaba;
Rar ı açamadım ama resim almayı tetiklediğiniz kodların başına;

On Error Resume Next
Controls("Image1").Picture = LoadPicture("")

şeklinde ekleme yaparak deneyin.
İyi çalışmalar.

 

[Mdemir63]

Selamlar

Hocam sizin verdiğiniz kodları denedim olmadı. benim kodlarım aşağıdakiler

Private Sub ListBox1_Change()
On Error Resume Next
Image1.Picture = LoadPicture(ThisWorkbook.Path & "\" & "resim\" & ListBox1 & ".jpg")

GoTo son
hata:
  UserForm1.Image1.Picture = LoadPicture("")
son:
  Call ÜrünBilgileriniGetir
End Sub



Sub ÜrünBilgileriniGetir()
        KayıtSatırı = WorksheetFunction.Match(TextBox1, Sheets("Ürünler").Range("B:B"), 0)
    If Err.Number > 0 Then
        Err.Number = 0
        KayıtSatırı = Worksheets("Ürünler").Cells(Rows.Count, "B").End(xlUp).Row + 1
    Else
        TextBox1 = Worksheets("Ürünler").Cells(KayıtSatırı, 2)
        TextBox2 = Worksheets("Ürünler").Cells(KayıtSatırı, 3)
    End If
End Sub

 

[muygun]

excel dosyanızı (zip yada rar yapmadan) ekleyin.

 

[muygun]

Yada bu örneği inceleyin. (çift tıklayarak resim alır)

 

[Mdemir63]

Hocam dosya ekte.
Yalnız resim klasörünü ekleyemedim
Saygılar

 

[muygun]

Merhaba;
Klasörü deneyin.
İyi çalışmalar.

 

[Mdemir63]

Hocam teşekkür ederim.

Saygılar