Merhaba arkadaşlar,
raporda resimleri alamıyorum,
en üstteki resim diğer kayıtlarada çıkıyor,
oysaki her resmin adresi ayrı,
ne yapabilirim?
İyi çalışmalar...
RsmAl fonksiyonunu RaporÜstBilgisi biçimlendirme olayında değil,
Ayrıntı'nın biçimlendirme olayında kullanmalısınız.
Kod:
Private Sub Ayrıntı_Format(Cancel As Integer, FormatCount As Integer)
Call RsmAl
End Sub
Çok teşekkür ederim sn seruz,
resim linki olmayanlarda, üstteki resim çıkıyor,
onu nasıl engelleriz?
Aslında hata durumunda resmin boş gelmesi için kod var ancak nedense çalışmıyor.
Kod:
Me.cerceve.Picture = ""
Bu durumda ekli dosyada bulunan 2 tane jpeg'i hata durumlarında kullanarak, daha iyi bir yöntem uygulanabilir.
Kod:
Private Sub RsmAl()
On Error GoTo akd
If Not IsNull([Resim]) Then
Me.cerceve.Picture = [Resim]
Else
Me.cerceve.Picture = "D:\Resim\ResimYok.Jpg"
End If
Exit Sub
akd:
If Err = 2220 Then
Me.cerceve.Picture = "D:\Resim\ResimHatali.Jpg"
Else
MsgBox Err.Description, vbExclamation
End If
End Sub
Çok çok teşekkür ederim sayın seruz...