modalı hocam iyi geceler ben bu eklediğiniz prg yi inceledim ve bana yol gösterici oldu onun kodlarını inceleyerek bu sorumdaki kodu kopyala yapıştırla aklımın erdiği mantıgımın çalıştıgı kadarıyla tek resimi 6 resime çıkartım kodda resim yoksa boş göster gibi bir kod olması lazım diye düşünüyorum ama nasıl yazılması gerektiğini bilemiyorum
evet raporu baskı önizlemede acıyorum rapor görünümünde iken göstermiyor

Sayın seher vaktim,




İlgili bölümü değiştirin.

İyi çalışmalar

modalı hocam verdiğiniz kodu bu şekilde değiştirdim istediğim gibi çalıştı ama bu seferde resim eklerken Sub getFileName () de (msoFileDialogFilePicker) hatası verdi
prg yi ekliyorum sizde hatayı görün

Option Compare Database
Function setImagePath()


Dim strImagePath As String
On Error GoTo PictureNotAvailable
strImagePath = Me.txtImagePath
Me.ImageFrame.Picture = strImagePath
strImagePath2 = Me.txtImagePath2
Me.ImageFrame2.Picture = strImagePath2
strImagePath3 = Me.txtImagePath3
Me.ImageFrame3.Picture = strImagePath3
strImagePath4 = Me.txtImagePath4
Me.ImageFrame4.Picture = strImagePath4
strImagePath5 = Me.txtImagePath5
Me.ImageFrame5.Picture = strImagePath5
strImagePath6 = Me.txtImagePath6
Me.ImageFrame6.Picture = strImagePath6
Exit Function
PictureNotAvailable:
Me.ImageFrame.Picture = ""
Me.ImageFrame2.Picture = ""
Me.ImageFrame3.Picture = ""
Me.ImageFrame4.Picture = ""
Me.ImageFrame5.Picture = ""
Me.ImageFrame6.Picture = ""


End Function

Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

VBA kod penceresi Tools Referanslardan Microsoft Office 14.0 Object Library referansını seçip kaydedin sorun düzelecektir.
iyi çalışmalar..

teşekkürler onur_can dediğiniz yaptıktan sonra normal çalışıyor istediğim gibi ama profesyonelce bir kod değil sanırım yazdığım access prg bazen sıkıntı yapıyor çok resim eklemekten sanırım neyse yapacağı prg de kullanmak isteyen arkadaşlara örnek olması açısından ekliyorum çalışır şeklini güle güle kullansın arkadalar sayenizde bir işe yararsa ne mutlu teşekkürler sayın onur_can