resim alma
Tarih
24/11/2009 10:40
Konu Sahibi
akd
Yorumlar
4
Okunma
1694
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
11/05/2017,16:26
Çözüldü 
Sponsor Reklam
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
11/05/2017,16:26
Çözüldü 
Sponsor Reklam
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
  Excelden Veri Alma estapan 2 105 26/05/2017, 15:40 estapan
  Formda Resim Ekleme mharman 4 130 13/05/2017, 19:29 mharman
  Access Uygulamada Resim Çözünürlüğü Ayarı? mehami 2 101 22/04/2017, 07:28 mehami
  Accesste Seçilen Resim Sabit-Diğer Resimler Random Nasıl Yapılır? mehami 6 320 17/04/2017, 13:02 mehami
  Kullanıcı Resim Hakkında. serkan1985 7 203 29/03/2017, 11:38 serkan1985


Türkçe Çeviri: MCTR, Yazılım: MyBB, © 2002-2017 MyBB Group.
DMCA.com Protection Status