Merhabalar;

Access ile geliştirdiğim uygulamada ürün maliyetlerini hesaplatıyorum. Bu ürünlerin bilgilerini tblParcaListesi adında bir taboda tutuyorum.

Formda yer alan bir buton ile Rapor2 adında bir rapor açıyorum ve formaki bilgileri istediğim gibi getirebiliyorum. Raporda her sayfada bir ürün ve bu ürüne ait maliyet kalemleri listeleniyor. Fakat raporda her ürüne ait resimlerin de görüntülenmesini istiyorum. MERKEZ0\DATA\Resimler klasöründe bulunuyor ve klasördeki resimlerin kodu ile ürünlerin kodları aynı.
eğer bu klasörde resim bulamazsa \\MERKEZ0\DATA\Ata\Resimler\ klasörüne bakıyor.
İstediğim raporda ürünün kodu A ise sistem resimlerin bulunduğu klasördeki A kodundaki resmi raporda göstermesi. Fakat bir türlü getiremedim.

Formda yer alan ve raporu açtığım butona aşağıdaki kodları yazdım

DoCmd.OpenReport "Rapor2", acViewPreview

Rapor açıldığında da aşağıdaki kodlar çalışıyor.

Private Sub Form_Activate()
Dim DosyaAdi, Dosya As String

    DosyaAdi = Me.txtParcaKodu
    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
AltToplamlar
End Sub

Raporda sadece resimler gelmiyor. Raporun ekran görüntüsü ekte belirtilmiştir.

Yardımcı olursanız sevinirim.