Formdan Ado İle Tabloya Kaydedilen Resim, Form Tekrar Açıldığında Yüklenmiyor.

29/02/2020, 21:41

Oğuz Türkyılmaz

Merhaba Resim yolu tabloya ADO ile kaydoluyor Form üstünde de gözüküyor fakat form kapatıp açılınca tabloda kayıtlı olmasına
ragmen Formda götüntülenemiyor. Yardımlarınız için teşekkür ederim.
Sub AlanDoldur()
ID_TXT = UyeRS(0)
Me.UyeNo_TXT = UyeRS(1)
Me.AdSoyad_TXT = UyeRS(2)
Me.TcNo_TXT = UyeRS(3)
Me.Tabiyeti_TXT = UyeRS(4)
Me.DogumTarihi_TXT = UyeRS(5)
Me.DogumYeri_TXT = UyeRS(6)
Me.AnaAd_TXT = UyeRS(7)
Me.BabaAd_TXT = UyeRS(8)
Me.Cinsiyeti_CBO = UyeRS(9)
Me.OgrenimDurumu_CBO = UyeRS(10)
Me.Meslegi_TXT = UyeRS(11)
Me.SosyalGuvence_CBO = UyeRS(12)
Me.CepNo1_TXT = UyeRS(13)
Me.CepNo2_TXT = UyeRS(14)
Me.Irtibat_TXT = UyeRS(15)
Me.Ilce_TXT = UyeRS(16)
Me.Sehir_TXT = UyeRS(17)
Me.UyeKabulTarih_TXT = UyeRS(18)
Me.UyeKabulKararNo_TXT = UyeRS(19)
Me.UyeIptalTarih_TXT = UyeRS(20)
Me.UyeIptalKararNo_TXT = UyeRS(21)
Me.UyelikIptalNedeni_TXT = UyeRS(22)
Me.EMail_TXT = UyeRS(23)
Me.Adres_TXT = UyeRS(24)
Me.Aciklama_TXT = UyeRS(25)
Me.KanGrubu_CBO = UyeRS(26)
Me.EngelNedeni_TXT = UyeRS(27)
Me.EngelYuzdesi_TXT = UyeRS(28)
Me.IlgilendigiSpor_TXT = UyeRS(29)
Me.KanadyenBaston_OKS = UyeRS(30)
Me.Yurutec_OKS = UyeRS(31)
Me.Protez_OKS = UyeRS(32)
Me.Ortez_OKS = UyeRS(33)
Me.AkuluAraba_OKS = UyeRS(34)
Me.ManuelAraba_OKS = UyeRS(35)
Me.Resim = UyeRS(36)
Me.Durum_CBO = UyeRS(37)

End Sub
01/03/2020, 10:57

berduş

AlanDoldur fonksiyonuna çerçeve ile ilgili kodu eklememişsiniz o nedenle resmi göstermiyor. aşağıdaki kodu fonksiyonun en altına eklerseniz sorun kalmaz.
Not: sistem 64bit accesste sorun çıkarır
Hatırlatma: Form_Current olayı formunuz tablo ile ilişkiliyse çalışır.
sizin çalışmanızda formunuz tablo ile ilişkisiz olduğundan form olaylarından tablo ile ilişkili olanları çalışmaz
If Me!Resim = "" Or IsNull(Me!Resim) Then
Me!Cerceve.Picture = ""
Else
Me!Cerceve.Picture = CurrentProject.Path & "\resim\" & Me!Resim
End If
01/03/2020, 12:10

Oğuz Türkyılmaz

(01/03/2020, 10:57)berduş yazdı: AlanDoldur fonksiyonuna çerçeve ile ilgili kodu eklememişsiniz o nedenle resmi göstermiyor. aşağıdaki kodu fonksiyonun en altına eklerseniz sorun kalmaz.
Not: sistem 64bit accesste sorun çıkarır
Hatırlatma: Form_Current olayı formunuz tablo ile ilişkiliyse çalışır.
sizin çalışmanızda formunuz tablo ile ilişkisiz olduğundan form olaylarından tablo ile ilişkili olanları çalışmaz
If Me!Resim = "" Or IsNull(Me!Resim) Then
        Me!Cerceve.Picture = ""
    Else
        Me!Cerceve.Picture = CurrentProject.Path & "\resim\" & Me!Resim
    End If
Sn.@berduş hatirlatmaniz benim için bilgilendirme oldu öğrenmiş oldum Programın çalışacağı dernekte 3 makina var. Ana makina 32 bit fakat diğerlerini bilmiyorum eğer 64 bit ise ne yapmamı önerirsiniz hata vermemesi için 64 bitlerde ne gibi ayalama yapılmalı resmi göstermesin ama hata da vermesin.
Bu konuyla alakalı bir sorun daha var halledemedim onun için konu açacağım teşekkür ederim.
01/03/2020, 12:22

berduş

eklediğiniz çalışmanızda yanılmıyorsam 3 fonksiyon vardı ama tüm çalışmanızı hem 32 hem de 64 te denemeniz gerek.
hangileri ptrsafe ve Longptr ihtiyaç duyar bilmiyorum. denemeniz gerek ama temel mantık aşağıdaki gibidir
#If VBA7 And Win64 Then    '64 bit için
Declare PtrSafe ........ '64bit için declare komutundan sonra PtrSafe yazmak yeterlidir

#Else '32 bit için
Declare ...........

#End If
01/03/2020, 12:30

Oğuz Türkyılmaz

(01/03/2020, 12:22)berduş yazdı: eklediğiniz çalışmanızda yanılmıyorsam 3 fonksiyon vardı ama tüm çalışmanızı hem 32 hem de 64 te denemeniz gerek.
hangileri ptrsafe ve Longptr ihtiyaç duyar bilmiyorum. denemeniz gerek ama temel mantık aşağıdaki gibidir
#If VBA7 And Win64 Then    '64 bit için
Declare PtrSafe  ........          '64bit için declare komutundan sonra PtrSafe  yazmak yeterlidir

#Else                                '32 bit için
  Declare ...........

#End If
Evet bunları biliyorum inşallah sorun çıkmaz bu işlem  yeterli olur.