Arkadaşlar yukarıda rapor açılırken çalışan kodları belirtirken sanırım yanlışlıkl formun açılışında çalışan kodları belirtmişim. olması gereken kodlar aşağıda belirtilmiştir.

Private Sub Report_Open(Cancel As Integer)
Dim DosyaAdi, Dosya As String

DosyaAdi = Me.RecordSource


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