+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Raporda resim gösterme (/konu-raporda-resim-gosterme--79905.html)
Raporda resim gösterme - memox - 07/01/2015
(06/05/2009, 14:59)ayhan2122 yazdı: Çok güzel oldu
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.
Cvp: Raporda resim gösterme - direnist - 07/01/2015
(07/01/2015, 19:22)memox yazdı:Merhaba;(06/05/2009, 14:59)ayhan2122 yazdı: Çok güzel oldu
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.
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 IfCvp: Raporda resim gösterme - memox - 08/01/2015
Hocam çok teşekkür ederim sorunum çözüldü.
