+- AccessTr.neT (https://accesstr.net)
+-- Forum: Visual Basic 6 (https://accesstr.net/forum-visual-basic-6.html)
+--- Forum: Visual Basic 6 Cevaplanmış Soruları (https://accesstr.net/forum-visual-basic-6-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Seçilen Kişinin Resminin Gelmesi (/konu-secilen-kisinin-resminin-gelmesi.html)
Cvp: Seçilen Kişinin Resminin Gelmesi - mcmaho - 20/12/2012
resmin sadece ismini değil. resim yolunun tamamını yazarsanız sorun çözülür. örneğin; c:\ornek\resim\1111111.jpg gibi.
Cvp: Seçilen Kişinin Resminin Gelmesi - ynlmz - 20/12/2012
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.
Cvp: Seçilen Kişinin Resminin Gelmesi - mcmaho - 20/12/2012
nasıl bir hata veriyor
Cvp: Seçilen Kişinin Resminin Gelmesi - ogulcan92 - 20/12/2012
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"Cvp: Seçilen Kişinin Resminin Gelmesi - ynlmz - 21/12/2012
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.
Cvp: Seçilen Kişinin Resminin Gelmesi - ynlmz - 21/12/2012
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")