+- AccessTr.neT (https://accesstr.net)
+-- Forum: AccessTr.neT Genel (https://accesstr.net/forum-accesstr-net-genel.html)
+--- Forum: Fikir, Öneri ve Eleştirileriniz (https://accesstr.net/forum-fikir-oneri-ve-elestirileriniz.html)
+--- Konu Başlığı: Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek (/konu-dosyadaki-resimleri-dosya-adina-gore-rapora-eklemek.html)
Sayfalar:
1
2
RE: Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek - ergin.tekinalp - 07/03/2022
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.
Re: Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek - userx - 08/03/2022
Sayın @ergin.tekinalp
Ekteki örneği inceler misiniz?
RE: Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek - ergin.tekinalp - 08/03/2022
Ü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]
RE: Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek - ergin.tekinalp - 08/03/2022
Ü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