UserForm2 'de Açlıan Resimde debug Hatası

[HsNKgL]

S.a.

VBA çok fazla bilgili değilim, aşağıda yaptığım basit bir çalışma imagine ComboBox seçimime göre resim getirebiliyorum ve resmi olmayanları ise resim yok adında bir resim geliyor ve bir buton yardımı ile resmin büyük halini ikinci bir userformda geliyor buraya kadar sorun yok ancak resmi olmayan resmi aç dediğimde hataya düşüyor.

Nerede hata olduğu konusunda yardımlarınız için şimdiden teşekkür ederim...

Private Sub CommandButton1_Click()
resimler = ThisWorkbook.Path & "\model\" & TextBox2.Text & ".jpg"
    If Dir$(resimler) = "" Then
        resimyok = ThisWorkbook.Path & "\model\" & "nan.jpg"
        Image1.Picture = LoadPicture(resimyok)
    Else
        Image1.Picture = LoadPicture(resimler)
    End If
    UserForm2.Image1.Picture = LoadPicture(resimler)
    UserForm2.Show
End Sub

 

[yanginci34]

Denermisiniz.

Private Sub CommandButton1_Click()
resimler = ThisWorkbook.Path & "\model\" & TextBox2.Text & ".jpg"
    If Dir$(resimler) = "" Then
        resimyok = ThisWorkbook.Path & "\model\" & "nan.jpg"
        Image1.Picture = LoadPicture(resimyok)
        UserForm2.Image1.Picture = LoadPicture(resimyok)
            Else
        Image1.Picture = LoadPicture(resimler)
        UserForm2.Image1.Picture = LoadPicture(resimler)
        
    End If
   UserForm2.Show
End Sub

 

[HsNKgL]

Denermisiniz.

Private Sub CommandButton1_Click()
resimler = ThisWorkbook.Path & "\model\" & TextBox2.Text & ".jpg"
    If Dir$(resimler) = "" Then
        resimyok = ThisWorkbook.Path & "\model\" & "nan.jpg"
        Image1.Picture = LoadPicture(resimyok)
        UserForm2.Image1.Picture = LoadPicture(resimyok)
            Else
        Image1.Picture = LoadPicture(resimler)
        UserForm2.Image1.Picture = LoadPicture(resimler)
       
    End If
   UserForm2.Show
End Sub

Çalıştı teşekkür ederim...

 

[yanginci34]

Rica ederim dönüş yaptığınız için ben teşekkür ederim. Kolay gelsin.