Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ??

1 2
18/03/2016, 12:32

megasoftware

Saygı değer Hocalarım;
Tabloda kayıtlı her veri için bir adet resim Kapaklar klasöründe mevcut ancak bir şekilde zarar görmesi, örneğin istem dışı silinmesi ya da gözden kaçması ve eklenmemesi halinde programın hata vermesini engellemek için "resim yok.jpg" adlı resmin gösterilmesini sağlamak için IF komutu, On Error Komutu ile hata kısmında gösterilmesi  Vb.leri ile çok uğraştım, sonuçlanan soru ve cevaplarda araştırdım ancak bir sonuca ulaşamadım bana bu konuda yardımcı olursanız memnun kalırım... 

Projemin Son adımı bu; eğer nasip olur da noktayı koyar ve bitirirsem, uygulamalar kısmında tüm halinde paylaşacağım. Belki bu konuda arşive ihtiyacı olan arkadaşlarım vardır. Şimdiden Yardımcı Olacak Arkadaşlarıma Teşekkürü Bir Borç Biliyorum...
18/03/2016, 12:42

atoz112

sayın megasoftware,

bahsettiğiniz talebinize yönelik olarak;

öncelikle,eklediğiniz örnek uygulama üst sürüm olması nedeni ile kendi adıma inceleme imkanım olmamaktadır fakat ilk etapta bir cevap verebilmiş olmak için;

aşağıda bağlantısı yazılı konunun 7.mesajındaki açıklamayı inceyiniz.faydalı olacaktır kanısındayım.

denemeleriniz akabinde olası soruna veya hataya maruz kalırsanız,konunuzda paylaştığınız takdirde katılımcılar tarafından uygun görülebilecek paylaşımları edinmeniz muhtemeldir.

Kullanıcıya ait resim ekleme

bilginize...iyi çalışmalar,saygılar.
18/03/2016, 13:02

atoz112

sayın megasoftware,,

bahsettiğiniz talebinize yönelik olarak;
aşağıdaki örnek kod kalıplarını kendi uygulamanıza göre uyarlamayı deneyebilirsiniz.faydalı olması temennisi ile.bilginize...iyi çalışmalar,saygılar.

EĞER RESİM KLASÖRÜ OLUŞTURULMAMIŞSA VE İLGİLİ RESİM DOSYASI MEVCUT DEĞİLSE;

Kod:
If Dir(CurrentProject.Path & "\" & "resim") = "" Then
    MsgBox "resim adlı klasör bulunmamaktadır."
    Exit Sub
Else
    IF Dir(CurrentProject.Path & "\" & "resim" & resim_adi) <> "" Then
    Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & resim_adi
    Exit Sub
    Else
    Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & "resimyok.jpg"
    End If
End If

EĞER RESİM ADI VEYA ÇERÇEVESİ BOŞ İSE;

Kod:
If IsNull(Me.Resim1) Or Me.Resim1 = "" Then
Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & "resimyok.jpg"
Else
Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & resim_adi
End If
18/03/2016, 13:05

megasoftware

(18/03/2016, 13:02)atoz112 yazdı: sayın megasoftware,,

bahsettiğiniz talebinize yönelik olarak;
aşağıdaki örnek kod kalıplarını kendi uygulamanıza göre uyarlamayı deneyebilirsiniz.faydalı olması temennisi ile.bilginize...iyi çalışmalar,saygılar.

EĞER RESİM KLASÖRÜ OLUŞTURULMAMIŞSA VE İLGİLİ RESİM DOSYASI MEVCUT DEĞİLSE;


Kod:
If Dir(CurrentProject.Path & "\" & "resim") = "" Then
    MsgBox "resim adlı klasör bulunmamaktadır."
    Exit Sub
Else
    IF Dir(CurrentProject.Path & "\" & "resim" & resim_adi) <> "" Then
    Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & resim_adi
    Exit Sub
    Else
    Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & "resimyok.jpg"
    End If
End If

EĞER RESİM ADI VEYA ÇERÇEVESİ BOŞ İSE;


Kod:
If IsNull(Me.Resim1) Or Me.Resim1 = "" Then
Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & "resimyok.jpg"
Else
Me.Resim1.Picture = CurrentProject.Path & "\" & "resim" & resim_adi
End If

İlk Yolu denedim olmamıştı Şimdi hemen bunu deneyeceğim. 
18/03/2016, 13:14

megasoftware

Sayın Hocam denedim ama olmadı. İlk mesajınız da projeyi açamadığınız söylemiştiniz. Sanırım sorunum tam anlaşılmadı. Tabloda oyuna ait veriler var bunlardan biri oyun kodu ve resimler proje yanında bir klasörde resim adları ise tabloda kayıtlı olan oyun kodu aynı. Tablodaki oyun koduna (resim.picture = Oyunkodu &".Jpg") şeklinde ekleyerek açılmasını sağlıyorum. Eğer klasörde bu isimde resim yoksa program hata verip stop ediyor. Benim istediğim bu klasörde bu adda Jpg bulamadığı zaman Onun yerine Resim Yok.Jpg resmini koyması ve böylece çalışmayı durdurmamasıdır...
18/03/2016, 13:32

atoz112

sayın megasoftware,

Alıntı:...Sanırım sorunum tam anlaşılmadı...

ifadenize yönelik olarak;
bahsettiğiniz husus anlaşıldığı için zaten önceki mesajlarda yer alan örnekler sunuldu.bu örnek kodları ilgili hata mesajlarının bulunacağı kısma dahil edilmesi adına yazılmıştır.

kodların ayrı ayrı belirtilmesinin amacı ise;
her iki durumda da (gerek klasörde resim yoksa ve gerekse de resim alanı boşsa) nasıl yazılabildiğinin görülmesini sağlamak içindir.kodlardaki tanımları da kendi uygulamanıza göre uyarlamanız önerilmiştir.bir diğer öneri olması adına,aşağıdaki kodları deneyebilirsiniz.
Kod:
If Dir(CurrentProject.Path & "\" & "resimklasoru") = "" Then
    MsgBox "resim adlı klasör bulunmamaktadır."
    Exit Sub
Else
    IF Dir(CurrentProject.Path & "\" & "resimklasoru" & Oyunkodu &".Jpg") <> "" or Not IsNull(Me.resim) Or Me.resim <> "" Then
    Me.resim.picture = CurrentProject.Path & "\" & "resimklasoru" & Oyunkodu &".Jpg"
    Exit Sub
    Else
    Me.resim.picture = CurrentProject.Path & "\" & "resimklasoru" & "resimyok.jpg"
    End If
End If
belirttiğiniz gibi uygulamanızı kendi adıma inceleyemiyorum.önceki sürüme göre kaydetmek için bir de aşağıda bağlantısı yazılı konunun 4.mesajındaki işlemleri deneyerek eklemeyi gerçekleştirebilirsiniz.bilginize...iyi çalışmalar,saygılar.

otel otomasyonu
1 2