AccessTr.neT

degerli arkadaşlar
formda bir kayıta 6 adet resim ekliyorum ve o kaydın raporda görüntüsünü 6 resmin tamamını eklersem görebiliyorum eger 1 resim eksik olursa rapor hata veriyor sorun rapordaki resim gösterme kodlarında bir türlü halledemedim
kanımca kodlara, formda eger o çercevede resim yoksa boş göster diye bir kod olması lazım ama o kodu yazamadım acaba ne yazmam gerekiyor yardımlarınızı bekliyorum teşekkürler

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:
strImagePath = ""
Me.ImageFrame.Picture = strImagePath
strImagePath = ""
Me.ImageFrame2.Picture = strImagePath2
strImagePath = ""
Me.ImageFrame3.Picture = strImagePath3
strImagePath = ""
Me.ImageFrame4.Picture = strImagePath4
strImagePath = ""
Me.ImageFrame5.Picture = strImagePath5
strImagePath = ""
Me.ImageFrame6.Picture = strImagePath6
--------------------------------------------------
End Function
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub

sorunun çözümünü buldum arkadaşlar çalışır durumda olanı ekliyorum örnek olması açısından bir arkadaşın işine yarar