Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - Baskı Önizleme +- AccessTr.neT (https://accesstr.net) +-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html) +--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html) +--- Konu Başlığı: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? (/konu-tabloda-ki-kayit-icin-resim-bulunamadiysa-yerine-baska-bir-resim-koydurmak.html) Sayfalar:
1
2
|
Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - megasoftware - 18/03/2016 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... Cvp: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - atoz112 - 18/03/2016 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. Cvp: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - atoz112 - 18/03/2016 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 Kod:
If IsNull(Me.Resim1) Or Me.Resim1 = "" Then Cvp: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - megasoftware - 18/03/2016 (18/03/2016, 13:02)atoz112 yazdı: sayın megasoftware,, İlk Yolu denedim olmamıştı Şimdi hemen bunu deneyeceğim. Cvp: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - megasoftware - 18/03/2016 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... Cvp: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - atoz112 - 18/03/2016 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 otel otomasyonu |