Skip to main content

AccessTr.neT


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

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

Çözüldü #1
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...
.rar PS3 Oyun Arşivi.rar (Dosya Boyutu: 1,34 MB | İndirme Sayısı: 2)
Cevapla
#2
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.
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#3
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

Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla
#4
(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. 
Cevapla
#5
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...
Cevapla
#6
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
Herkes, kendisinin AR-GE'cisidir...


Konulara eklenen Uygulama içeriğine yönelik Tavsiyeler
Alt Form Denetim Değerlerine ulaşma ve Alt Form Güncelleme
Kapatırken Düzenle (Compact On Close) Seçeneğinin İşaretlenmesi Hakkında
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da