Raporda resim gösterme

(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.

(07/01/2015, 19:22)memox yazdı:

(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.

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