dosyada kişi resmi olmadığında formdaki image'nin boş olması

[elvis]

Private Sub ComboBox1_Change()
Sheets("sayfa1").Select
Dim bak As Range
For Each bak In Range("A1:A" & WorksheetFunction.CountA(Range("A1:A500")))
If StrConv(bak.Value, vbUpperCase) = StrConv(ComboBox1.Value, vbUpperCase) Then
bak.Select

'*******************
foto = ActiveCell.Offset(0, 0).Value
On Error Resume Next 'GoTo hata
If foto <> False Then
Image1.Picture = LoadPicture("E:\Office\WINDOWS\Resim\" & foto & ".bmp") 'BU SATIRIN ÇALIŞMASI İÇİN "C" BÖLÜMÜNE "Resim" adında bir klasör açıp içine resimleri kişilerin kendi isimleriyle kaydedin.
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End If
Next bak
End Sub


arkadaşlar bu makroda eğer Resim isimli klasörde o kişiye ait resim yoksa imagenin boş olması nasıl sağlanabilir? yardımcı olursanız sevinirim herkese selamlar.....

 

[Levent Menteşoğlu]

[vb:1:a35b3185e0]On Error Resume Next 'GoTo hata
If foto <> False Then
Image1.Picture = LoadPicture("E:\Office\WINDOWS\Resim\" & foto & ".bmp") 'BU SATIRIN ÇALIŞMASI İÇİN "C" BÖLÜMÜNE "Resim" adında bir klasör açıp içine resimleri kişilerin kendi isimleriyle kaydedin.
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End If
Next bak
[/vb:1:a35b3185e0]

Yukarıdaki kısmı aşağıdaki gibi değiştirin.

[vb:1:a35b3185e0]On Error GoTo hata
If foto <> False Then
Image1.Picture = LoadPicture("E:\Office\WINDOWS\Resim\" & foto & ".bmp") 'BU SATIRIN ÇALIŞMASI İÇİN "C" BÖLÜMÜNE "Resim" adında bir klasör açıp içine resimleri kişilerin kendi isimleriyle kaydedin.
Image1.PictureSizeMode = fmPictureSizeModeStretch
End If
End If
Next bak
exit sub
hata:
Image1.Picture =loadpicture("")
[/vb:1:a35b3185e0]

 

[elvis]

levent bey ! makroyu çalıştırdığımda Image1.Picture = "" yazan kısmın "" işaretinde hata veriyor. ımage1'in içi boş görünmüyor

 

[Levent Menteşoğlu]

Gerekli düzeltmeyi yaptım tekrar deneyin.

Image1.Picture = loadpicture("" )

 

[elvis]

levent bey! bu kez de var olan resim gelmiyor
biliyorum sizi meşgul ediyorum ama olmadığını söylemek istedim...
başka ne gibi bişey yapılabilir? ya da levent bey! hata olması (personelin resmi olmaması halinde) durumunda benim resim klasöründe boş isimli bir bmp resim var, onun ımage1'e gelmesi sağlanabilir mi? yani personelin resmi olmadığında ımage1 'e resim isimli klasörde bulunan boş isimli resim gelebilir mi?