Seçilen Kişinin Resminin Gelmesi

resmin sadece ismini değil. resim yolunun tamamını yazarsanız sorun çözülür. örneğin; c:\ornek\resim\1111111.jpg gibi.

Arkadaşlar teşekkür ediyorum. Resim gelme sorunu halloldu ancak o kişiye ait resim olmazsa hata veriyor. Eğer o kişiye ait resim yoksa bos.jpg resmini nasıl aldırabilirim.

nasıl bir hata veriyor

Sn:ynlmz
Eğer örneğinizi VB6 haricindeki kullandığınız komponentler ile birlikte eklemiş olsaydınız bu sorununuz çözülmüş olacaktı şimdi yaptığımız farazi olarak varsayım üzerine yorum yaparak kod yazmak oluyor.Eklediğiniz örnekte resim ekleme ile ilgili bir buton veya bölüm görünmüyor.Siz bu resmi nasıl eklemeyi düşünüyorsunuz? Hata vermesini engelleyen kodlar aşağıdadır.

On Error GoTo HataKontrol

'Sonraki Kayıt

With Adodc1.Recordset

    .MoveNext

    If .EOF Then .MoveFirst

End With

yResim.Picture = LoadPicture(App.Path & "\Resim\" & Me.Text6 & ".jpg")

On Error GoTo 0: Exit Sub

HataKontrol:

Dim strErr As String

strErr = "Hata olustu: " & Err.Number & " " & Err.Description & " " & "Bulunamadı"

MsgBox strErr, vbCritical + vbOK, "Oğulcan & Olcaytuğ"

TC No ile resim kayıt etmek için kayıt butonuna aşağıdaki kodu ekleyiniz.

ResimKaydet App.Path & "\Resim\" & Me.Text6 & ".jpg"

Sayın oğulcan hocam; File not found "Bulunamadı" hatası veriyor. Tamam dersem sonraki kayda gidiyor. bu mesajı verdirmeden eğer kişiye ait resim yok ise "bos.jpg" resmini aldırtabilirmiyiz acaba.

Hocam yardımlarınız için teşekkür ederim. Sizin verdiğiniz Kodu aşağıdaki şekilde değiştirerek sorunu çözdüm
On Error GoTo HataKontrol
With Adodc1.Recordset
.MoveNext
If .EOF Then .MoveFirst
End With
yResim.Picture = LoadPicture(App.Path & "\Resim\" & Me.Text6 & ".jpg")
On Error GoTo 0: Exit Sub
HataKontrol:
yResim.Picture = LoadPicture(App.Path & "\Resim\bos.jpg")