Skip to main content

AccessTr.neT

Kayıt Ol

 | Facebook ile Bağlan  | Twitter İle Bağlan | Google+ İle Bağlan

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

megasoftware
megasoftware
Access Cevaplanmış Soruları
10
2712

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

#3
atoz112
Onursal Üye
atoz112
Bul
Onursal Üye
Adı Soyadı:
Yaşı: 54
Konum: İstanbul
Ofis Versiyonu: Ofis 2007
Son Oturumu: 09/12/2017,11:02
Yorumları: 5.716
Konuları: 9
Kayıt Tarihi: 04/08/2009
Teşekkür Puanı: 1.172
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

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

Yorum yapmak için üye olmanız gerekiyor

ya da

Bu Konudaki Yorumlar
Cvp: Tabloda ki kayıt için resim bulunamadıysa yerine başka bir resim koydurmak ?? - Yazar: atoz112 - 18/03/2016, 13:02