Konu Araçları | Seçenekler: | Gösterim Stili
Tarih
24/11/2009 10:40
Konu Sahibi
akd
Yorumlar
4
Okunma
1903
Konuyu Oyla:
  • Derecelendirme: 0/5 - 0 oy
  • 5
  • 4
  • 3
  • 2
  • 1

Derecelendirme: 0/5 - 0 oy

akd

Aktif Üye
Kullanici Avatari
Aktif Üye
273
04/11/2008
35
Gaziantep
Ofis 2003
07/05/2017,23:02
Çözüldü 
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...


Ek Dosyalar
.rar   Resim.rar (Dosya Boyutu: 75,68 KB / İndirme Sayısı: 25)
Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
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


Ek Dosyalar
.rar   AKD_Resim_Seruz.rar (Dosya Boyutu: 44,7 KB / İndirme Sayısı: 34)
Bildiğini bilenin arkasından git, bildiğini bilmeyeni uyar, bilmediğini bilene öğret, bilmediğini bilmeyenden kaç.
Konfüçyüs
Cevapla

akd

Aktif Üye
Kullanici Avatari
Aktif Üye
273
04/11/2008
35
Gaziantep
Ofis 2003
07/05/2017,23:02
Çözüldü 
Çok teşekkür ederim sn seruz,
resim linki olmayanlarda, üstteki resim çıkıyor,
onu nasıl engelleriz?


Cevapla

Seruz

Uzman
Kullanici Avatari
Uzman
S.... U....
1.550
7
30/10/2008
814
Tekirdağ
Ofis XP
17/10/2017,17:32
Çözüldü 
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:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
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


Ek Dosyalar
.rar   AKD_Resim_Seruz2.rar (Dosya Boyutu: 16,84 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

akd

Aktif Üye
Kullanici Avatari
Aktif Üye
273
04/11/2008
35
Gaziantep
Ofis 2003
07/05/2017,23:02
Çözüldü 
Çok çok teşekkür ederim sayın seruz...


Cevapla


Konuyu Okuyanlar: 1 Ziyaretçi

Konu ile Alakalı Benzer Konular
Konular Yazar Yorumlar Okunma Tarih Son Yorum
Çözüldü Sorguda İlk 9 Karakter Alma blumanx 2 163 27/09/2017, 23:22 blumanx
Çözüldü Webden Resim Çağırma estapan 6 326 09/09/2017, 21:57 estapan
Çözüldü İlişkili Combobox - Resim Çağırma tsots 13 552 06/09/2017, 21:34 ozanakkaya
Çözüldü Satın Alma Takip Te Yöneticilere Onaylatma mahsumyavuz 2 160 24/08/2017, 12:15 mahsumyavuz
Çözüldü Web Browserdeki Checkbox Değerini Alma idrisy 4 247 31/07/2017, 23:33 ozanakkaya

Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
Forum use Krzysztof "Supryk" Supryczynski addons.