AccessTr.neTMicrosoft AccessAccess Cevaplanmış Soruları

resim alma

24/11/2009, 10:40

akd

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...
24/11/2009, 11:12

Seruz

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
24/11/2009, 11:17

akd

Çok teşekkür ederim sn seruz,
resim linki olmayanlarda, üstteki resim çıkıyor,
onu nasıl engelleriz?
24/11/2009, 12:26

Seruz

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
24/11/2009, 12:32

akd

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