Kodlarınızı incelediğim kadarıyla siz resimleri formda göstertiyorsunuz ve sistem TCResim klasörüne gidiyor. Formda yer alan adısoyadı ve tc alanındaki bilgilere denk gelen resmi bulup formda gösteriyor.
Benim ilk gönderdiğim mesajdaki kodlar da eğer resmi formda belirteceksem sorunsuz bir şekilde çalışıyor.
Ben herhangi bir forma bağlı olmadan rapor açmak istiyorum. Sizin örnekte sistem resim adını nasılki formdaki adsoyad ve tc lanından alıp getiriyorda benim projemde de açılan raporun üzerinde yer alan Parca Kodu alanında belirtilen bilgiye göre resimleri getirmesini istiyorum.
Kodlarımı aşağıdaki gibi düzenlediğimde rapora resimler geliyor ama rastgele geliyor. yani parckoduna denk gelen resim gelmiyor. Raporun resmini de belirttim. Raporda her resim Parca Kodu alanında belirtilen bilgiye göre gelse sorun çözülmüş olacak.
Private Sub Report_Open(Cancel As Integer)
Dim DosyaAdi, Dosya As String
DosyaAdi = Dlookup ("ParcaKodu", "tblParcaListesi")
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[img]
