Skip to main content

AccessTr.neT M.


Raporda çoklu resim gösterimi

Raporda çoklu resim gösterimi

Çözüldü #1
Son Düzenleme: 24/11/2013, 14:23, Düzenleyen: simendifer.
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

Cevapla
Çözüldü #2
Son Düzenleme: 24/11/2013, 18:16, Düzenleyen: simendifer.
sorunun çözümünü buldum arkadaşlar çalışır durumda olanı ekliyorum örnek olması açısından bir arkadaşın işine yarar

Cevapla
...........

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da