(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
Hocam çok teşekkür ederim sorunum çözüldü.
