AccessTr.neT
resim alma - Baskı Önizleme

+- 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ığı: resim alma (/konu-resim-alma.html)

resim alma - akd - 24/11/2009

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...

Cvp: resim alma - Seruz - 24/11/2009

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


Cvp: resim alma - akd - 24/11/2009

Çok teşekkür ederim sn seruz,
resim linki olmayanlarda, üstteki resim çıkıyor,
onu nasıl engelleriz?

Cvp: resim alma - Seruz - 24/11/2009

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


Cvp: resim alma - akd - 24/11/2009

Çok çok teşekkür ederim sayın seruz...