23-11-2013, 12:35
Değerli arkadaşlar aşağıdaki kodlarda bir eksiklik var ama işin içinden çıkamadım yardımlarınıza ihtiyacım var
yapmak istediğim forma bilgileri giriyorum 6 adet resim ekliyorum ve o resimleri teker teker üzerine tıkladığımda çerçevede resimleri görebiliyorum raporda resimleri görebiliyorum
SORUN İŞTE BURADA BAŞLIYOR
formda 6 adet resimlerin hepsini eklediğimde raporda hata almadan resimleri görebiliyorum eğer 5 veya 4 eksik resim eklersem forma, o zaman raporda resimleri göremiyorum ve hata veriyor aşağıdaki kodlara ne yazmam gerekir ki 6 resim den bir tanesi eksik eklesem eklediğim resimleri raporda hatasız görebileyim şimdiden teşekkür ederim
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 = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID1.BMP"
Me.ImageFrame.Picture = strImagePath
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID2.BMP"
Me.ImageFrame2.Picture = strImagePath2
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID3.BMP"
Me.ImageFrame3.Picture = strImagePath3
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID4.BMP"
Me.ImageFrame4.Picture = strImagePath4
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID5.BMP"
Me.ImageFrame5.Picture = strImagePath5
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID9.BMP"
Me.ImageFrame6.Picture = strImagePath6
End Function
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub
yapmak istediğim forma bilgileri giriyorum 6 adet resim ekliyorum ve o resimleri teker teker üzerine tıkladığımda çerçevede resimleri görebiliyorum raporda resimleri görebiliyorum
SORUN İŞTE BURADA BAŞLIYOR
formda 6 adet resimlerin hepsini eklediğimde raporda hata almadan resimleri görebiliyorum eğer 5 veya 4 eksik resim eklersem forma, o zaman raporda resimleri göremiyorum ve hata veriyor aşağıdaki kodlara ne yazmam gerekir ki 6 resim den bir tanesi eksik eklesem eklediğim resimleri raporda hatasız görebileyim şimdiden teşekkür ederim
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 = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID1.BMP"
Me.ImageFrame.Picture = strImagePath
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID2.BMP"
Me.ImageFrame2.Picture = strImagePath2
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID3.BMP"
Me.ImageFrame3.Picture = strImagePath3
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID4.BMP"
Me.ImageFrame4.Picture = strImagePath4
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID5.BMP"
Me.ImageFrame5.Picture = strImagePath5
strImagePath = "E:\Belgelerim\ACCESS\raporda_foto\raporda_foto\EMPID9.BMP"
Me.ImageFrame6.Picture = strImagePath6
End Function
Private Sub Report_Open(Cancel As Integer)
DoCmd.Maximize
End Sub


