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
3104

resim alma

Çözüldü #1
akd
Aktif Üye
akd
Bul
Aktif Üye
Adı Soyadı:
Konum: Gaziantep
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/09/2023,09:59
Yorumları: 280
Konuları: 64
Kayıt Tarihi: 04/11/2008
Teşekkür Puanı: 35
Merhaba arkadaşlar,
raporda resimleri alamıyorum,
en üstteki resim diğer kayıtlarada çıkıyor,
oysaki her resmin adresi ayrı,
ne yapabilirim?
İyi çalışmalar...
.rar Resim.rar (Dosya Boyutu: 75,68 KB | İndirme Sayısı: 25)
Cevapla
Çözüldü #2
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 03/03/2025,15:31
Yorumları: 1.579
Konuları: 8
Kayıt Tarihi: 30/10/2008
Teşekkür Puanı: 825
Mesleğiniz: BT Şefi
RsmAl fonksiyonunu RaporÜstBilgisi biçimlendirme olayında değil,
Ayrıntı'nın biçimlendirme olayında kullanmalısınız.

Kod:
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
    Call RsmAl
End Sub
.rar AKD_Resim_Seruz.rar (Dosya Boyutu: 44,7 KB | İndirme Sayısı: 36)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla
Çözüldü #3
akd
Aktif Üye
akd
Bul
Aktif Üye
Adı Soyadı:
Konum: Gaziantep
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/09/2023,09:59
Yorumları: 280
Konuları: 64
Kayıt Tarihi: 04/11/2008
Teşekkür Puanı: 35
Çok teşekkür ederim sn seruz,
resim linki olmayanlarda, üstteki resim çıkıyor,
onu nasıl engelleriz?
Cevapla
Çözüldü #4
Seruz
Uzman
Seruz
www Bul
Uzman
Adı Soyadı: Se.... UZ....
Yaşı: 53
Konum: Tekirdağ
Ofis Versiyonu: Ofis 2016 64 Bit
Son Oturumu: 03/03/2025,15:31
Yorumları: 1.579
Konuları: 8
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
Çözüldü #5
akd
Aktif Üye
akd
Bul
Aktif Üye
Adı Soyadı:
Konum: Gaziantep
Ofis Versiyonu: Ofis 2003
Son Oturumu: 28/09/2023,09:59
Yorumları: 280
Konuları: 64
Kayıt Tarihi: 04/11/2008
Teşekkür Puanı: 35
Çok çok teşekkür ederim sayın seruz...
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task