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
Adı Soyadı:
er.... te....
Konum:
İstanbul
Ofis Versiyonu:
Ofis 2010 64 Bit
Son Oturumu:
24/06/2022,08:48
Yorumları:
43
Konuları:
12
Kayıt Tarihi:
23/03/2015
Teşekkür Puanı:
0
Mesleğiniz:
Endüstri Mühendisi
Cevapla