Skip to main content

AccessTr.neT


Seçilen Kişinin Resminin Gelmesi

Seçilen Kişinin Resminin Gelmesi

Çözüldü #7
resmin sadece ismini değil. resim yolunun tamamını yazarsanız sorun çözülür. örneğin; c:\ornek\resim\1111111.jpg gibi.
.rar ornek.rar (Dosya Boyutu: 45,94 KB | İndirme Sayısı: 18)
<<< 10-HAGİ-10 >>>
Son Düzenleme: 20/12/2012, 16:24, Düzenleyen: mcmaho.
Cevapla
Çözüldü #8
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.
Son Düzenleme: 20/12/2012, 19:31, Düzenleyen: ynlmz.
Cevapla
Çözüldü #9
nasıl bir hata veriyor
<<< 10-HAGİ-10 >>>
Cevapla
Çözüldü #10
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"
OĞULCAN & OLCAYTUĞ

Oğulcan Excel Web Sitesi
Excel İle Programlama
Cevapla
Çözüldü #11
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.
Son Düzenleme: 21/12/2012, 00:57, Düzenleyen: ynlmz.
Cevapla
Çözüldü #12
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")
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task