Skip to main content

AccessTr.neT

Kayıt Ol

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

resim alma

akd
akd
Access Cevaplanmış Soruları
4
2923

resim alma

Çözüldü #4
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 52
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 21/04/2024,01:09
Yorumları: 1.570
Konuları: 7
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
Aslında hata durumunda resmin boş gelmesi için kod var ancak nedense çalışmıyor.
Kod:
Me.cerceve.Picture = ""
Bu durumda ekli dosyada bulunan 2 tane jpeg'i hata durumlarında kullanarak, daha iyi bir yöntem uygulanabilir.

Kod:
Private Sub RsmAl()
On Error GoTo akd
    If Not IsNull([Resim]) Then
        Me.cerceve.Picture = [Resim]
    Else
        Me.cerceve.Picture = "D:\Resim\ResimYok.Jpg"
    End If
Exit Sub
akd:
    If Err = 2220 Then
        Me.cerceve.Picture = "D:\Resim\ResimHatali.Jpg"
    Else
        MsgBox Err.Description, vbExclamation
    End If
End Sub
.rar AKD_Resim_Seruz2.rar (Dosya Boyutu: 16,84 KB | İndirme Sayısı: 40)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
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
resim alma - Yazar: akd - 24/11/2009, 10:40
Cvp: resim alma - Yazar: Seruz - 24/11/2009, 11:12
Cvp: resim alma - Yazar: akd - 24/11/2009, 11:17
Cvp: resim alma - Yazar: Seruz - 24/11/2009, 12:26
Cvp: resim alma - Yazar: akd - 24/11/2009, 12:32
Task