Kodları aşağıdaki gibi güncelledim bu sefer de "Değeri olmayan bir ifade girdiniz" şeklinde bir hata veriyor.

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

DosyaAdi = Dlookup ("ParcaKodu", "tblParcaListesi", "ParcaKodu ='" & Report_Rapor2.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

End Sub