Skip to main content

AccessTr.neT


Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek

Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek

#7
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.
Cevapla
#8
Sayın @ergin.tekinalp

Ekteki örneği inceler misiniz?
.zip RaporResim.zip (Dosya Boyutu: 223 KB | İndirme Sayısı: 5)
"Dünyayı fazla düşünme."
Cevapla
#9
Ü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][Resim: do.php?img=11485][/img]
Cevapla
#10
Ü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
Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da
Task