[RAPOR] setImagePath() Kodunda hata nerede
#1
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



  Alıntı
Bu mesajı beğenenler:
#2
bloğunuzu her bir path için aşağıdaki gibi değiştirip deneyin...
Visual Basic
  1. if IsNull(Me.txtImagePath) then
  2. strImagePath =""
  3. else
  4. strImagePath = Me.txtImagePath
  5. endif






  Alıntı
Bu mesajı beğenenler:
#3
sayın onur_can hocam kodu denedim raporda hiç resim göstermedi raporda resim yerleri boş çıkıyor



  Alıntı
Bu mesajı beğenenler:
#4
veritabanı örneği ekleyebilir misiniz



  Alıntı
Bu mesajı beğenenler:
#5
öncelikle ilgilendiğiniz için teşekkür ederim sayın onur_can hocam prg yi ekledim formdaki 1 ve 4 kayıtlardaki resimler tam diğer kayıtlardaki resimler eksik olan kayıtların resimlerini raporda göstermiyor raporun kodunda bir eksiklik var sanırım sizin gönderdiğiniz kodu ekledim bu seferde hiç birinin resimlerini göstermiyor teşekkür ederim hocam


Eklenti Dosyaları
.rar   ornek.rar (Boyut: 649,29 KB / İndirilme: 54)



  Alıntı
Bu mesajı beğenenler:
#6
Sayın sehervaktim,

Raporu baskı önizleme modunda açmanız gerekiyor.

İyi çalışmalar


Eklenti Dosyaları
.rar   raporda resim çıkmıyor.rar (Boyut: 586,85 KB / İndirilme: 82)



  Alıntı
Bu mesajı beğenenler:


Benzer Konular...
Konu: Yazar Cevaplar: Gösterim: Son Mesaj
  [VBA] Bu Kodda Sorun Nerede Anlamadım yahyamacit 1 282 26-12-2024, 06:32
Son Mesaj: dsezgin
  Nerde Hata Yapıyorum SBNS 3 353 21-10-2024, 20:38
Son Mesaj: halily
  [FORM] Dcount Hata Veriyor TheREDROSE 4 360 04-08-2024, 15:12
Son Mesaj: TheREDROSE
  [FONKSiYON] Fonksiyonda Hata zimbit 1 321 12-02-2024, 18:52
Son Mesaj: dsezgin
  [VBA] Dosya Yolu Boş Ise Hata Alıyorum serdem48 4 447 26-10-2023, 14:11
Son Mesaj: serdem48
  Ikon Eklerken Hata orhnkprn 2 354 27-01-2023, 00:54
Son Mesaj: BeyTor
  Error Hata Bora34 85 3.593 20-12-2022, 21:22
Son Mesaj: halily
  [SORGU] Sözdizimi Hata Kodu Alıyorum golf2000 12 900 29-08-2022, 20:00
Son Mesaj: halily

Foruma Git:


Bu konuyu görüntüleyen kullanıcı(lar): 1 Ziyaretçi