Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek

Değerli arkadaşlar bir çözüm önerisi olan varsa yardımcı olursanız çok sevinirim. 2 haftadır uğraşıyorum. Çözümü muhtemelen çok basittir ama bir türlü bulamadım.

Sayın @ergin.tekinalp

Ekteki örneği inceler misiniz?

Üstad eline sağlık verdiğin emek için.

Ben de aşağıdaki kodu hazırlamıştım ama bende çalışmadı. Debug ettiğimde hiç koda uğramadı.

Private Sub Ayrıntı_Print(Cancel As Integer, PrintCount As Integer)
rsmStok.Picture = IIf(Len(Dir("\\MERKEZ0\DATA\Resimler\" & Me.ParcaKodu & ".jpg", vbNormal)) > 0, Nz("\\MERKEZ0\DATA\Ata\Resimler\" & Me.ParcaKodu & ".jpg", ""), Nz("\\merkez0\data\Resimler\YOK.BMP", ""))

Ben resimde de belirttiğim gibi raporu AnalizNo adındaki bir alana göre grupladım. Resmi de AnalizNo Üstbilgi kısmında gösteriyorum. Yukarıdaki kodu raporun open olayına yazdığımda da "değeri olmayan bir ifade girdiniz" şeklinde hata veriyor.

[img]
[/img]

Üstadlar sorunu çözdüm.


Aşağıdaki kodu grupladığım alanın üstbilgi kısmının Yazıldığında özelliğine eklediğimde çalıştı.


Private Sub GrupÜstbilgisi0_Print(Cancel As Integer, PrintCount As Integer)

Dim DosyaAdi, Dosya As String

DosyaAdi = Me.ParcaKodu
Dosya = Dir("\\MERKEZ0\DATA\Resimler\" & DosyaAdi & ".*", 1)
If Dosya = "" Then
Dosya = Dir("\\MERKEZ0\DATA\Ata\Resimler\" & DosyaAdi & ".*", 1)
If Dosya = "" Then
rsmStok.Picture = "\\merkez0\data\Resimler\YOK.BMP"
Else
rsmStok.Picture = "\\Merkez0\data\aTA\Resimler\" & Dosya

End If
Else:
rsmStok.Picture = "\\Merkez0\data\Resimler\" & Dosya
End If
End Sub