Ü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]
Adı Soyadı:
er.... te....
Konum:
İstanbul
Ofis Versiyonu:
Ofis 2010 64 Bit
Son Oturumu:
24/06/2022,08:48
Yorumları:
43
Konuları:
12
Kayıt Tarihi:
23/03/2015
Teşekkür Puanı:
0
Mesleğiniz:
Endüstri Mühendisi
Cevapla