Skip to main content

AccessTr.neT

Kayıt Ol

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

Raporda resim gösterme

memox
memox
Access Cevaplanmış Soruları
2
2459

Raporda resim gösterme

Çözüldü #1
memox
Üye
memox
Bul
Üye
Adı Soyadı: me.... çe....
Yaşı: 63
Konum: İstanbul
Ofis Versiyonu: Ofis 2010
Son Oturumu: 12/09/2024,10:59
Yorumları: 20
Konuları: 5
Kayıt Tarihi: 11/05/2012
Teşekkür Puanı: 0
(06/05/2009, 14:59)ayhan2122 yazdı: Çok güzel oldu Img-grin

hocam biraz eski bir konu ama yazdığınız kod benim çok işime yaradı.

fakat biriki problem var yardımcı olursanız sevinirim.
1-formda  ve raporda kişiye ait bir fotoğraf yoksa hata veriyor.(form1,rapor2
2-ben hata mesajı eklediğimde (form2,rapor3)
raporda bir kişinin resmi yoksa  bir öncekinin resmini gösteriyor. bir türlü çözemedim.

örnekte rapor3 de 3 nolu kişinin fotoğrafı olmadığı halde 2 nolu kişinin fotoğrafını gösteriyor.
yardımlarınız için teşekkürler.
.rar ResimYukleme_ayhan2122.rar (Dosya Boyutu: 60,61 KB | İndirme Sayısı: 28)
Son Düzenleme: 07/01/2015, 19:26, Düzenleyen: memox. (Sebep: rapor ismi düzeltildi)
Cevapla
#2
direnist
Uzman
direnist
Bul
Uzman
Adı Soyadı: Di.... SA....
Konum: İstanbul
Ofis Versiyonu: Ofis 2010 64 Bit
Son Oturumu: 13/11/2024,15:17
Yorumları: 516
Konuları: 56
Kayıt Tarihi: 05/11/2008
Teşekkür Puanı: 180
(07/01/2015, 19:22)memox yazdı:
(06/05/2009, 14:59)ayhan2122 yazdı: Çok güzel oldu Img-grin

hocam biraz eski bir konu ama yazdığınız kod benim çok işime yaradı.

fakat biriki problem var yardımcı olursanız sevinirim.
1-formda  ve raporda kişiye ait bir fotoğraf yoksa hata veriyor.(form1,rapor2
2-ben hata mesajı eklediğimde (form2,rapor3)
raporda bir kişinin resmi yoksa  bir öncekinin resmini gösteriyor. bir türlü çözemedim.

örnekte rapor3 de 3 nolu kişinin fotoğrafı olmadığı halde 2 nolu kişinin fotoğrafını gösteriyor.
yardımlarınız için teşekkürler.
Merhaba;
Mecvcut kodunuzu aşağıdaki ile değiştirip dener misiniz?
Kod:
Dim PictureFile As String
  PictureFile = CurrentProject.Path & "\Photos\" & SrNO & ".jpg"
   If Len(Dir(PictureFile)) < 1 Then
        PaTaTes = CurrentProject.Path & "\Photos\" & "nophoto.jpg"
       ImageFrame.Picture = PaTaTes
       
   Else
       PaTaTes = CurrentProject.Path & "\Photos\" & SrNO & ".jpg"
       ImageFrame.Picture = PaTaTes
   End If
Cevapla
#3
memox
Üye
memox
Bul
Üye
Adı Soyadı: me.... çe....
Yaşı: 63
Konum: İstanbul
Ofis Versiyonu: Ofis 2010
Son Oturumu: 12/09/2024,10:59
Yorumları: 20
Konuları: 5
Kayıt Tarihi: 11/05/2012
Teşekkür Puanı: 0
Hocam çok teşekkür ederim sorunum çözüldü. +rep
Cevapla

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

Yorum yapmak için üye olmanız gerekiyor

ya da
Task