Merhaba yapınızı bilmiyorum ama ben aşagıdaki gibi,kullanıyorrum
Dim PictureFile As String
PictureFile = CurrentProject.Path & "\TCResim\" & Forms!Frm_Kursiyerler!Adı_Soyadı & "-" & Forms!Frm_Kursiyerler!tc_numarasi & ".jpg"
If Len(Dir(PictureFile)) < 1 Then
PaTaTes = CurrentProject.Path & "\TCResim\Resimyok.jpg"
ImageFrame.Picture = PaTaTes
Else
PaTaTes = CurrentProject.Path & "\TCResim\" & Forms!Frm_Kursiyerler!Adı_Soyadı & "-" & Forms!Frm_Kursiyerler!tc_numarasi & ".jpg"
ImageFrame.Picture = PaTaTes
End If
Dosyadaki Resimleri Dosya Adına Göre Rapora Eklemek
Konuyu Okuyanlar: 1 Ziyaretçi