AccessTr.neT

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

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

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