+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Raporda çoklu resim gösterimi (/konu-raporda-coklu-resim-gosterimi.html)
Raporda çoklu resim gösterimi - simendifer - 24/11/2013
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
Cvp: Raporda çoklu resim gösterimi - simendifer - 24/11/2013
sorunun çözümünü buldum arkadaşlar çalışır durumda olanı ekliyorum örnek olması açısından bir arkadaşın işine yarar