Skip to main content

AccessTr.neT


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

Oğuz Türkyılmaz
Oğuz Türkyılmaz
4
501

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

Çözüldü #1
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.
Visual Basic Code
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
.rar AED ADO Resim.rar (Dosya Boyutu: 109,82 KB | İndirme Sayısı: 5)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
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
Visual Basic Code
If Me!Resim = "" Or IsNull(Me!Resim) Then
        Me!Cerceve.Picture = ""
    Else
        Me!Cerceve.Picture = CurrentProject.Path & "\resim\" & Me!Resim
    End If
Cevapla
#3
(01/03/2020 10:57)berduş Adlı Kullanıcıdan Alıntı: 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
Visual Basic Code
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.
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 01/03/2020, 12:12, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
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
Visual Basic Code
#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
Cevapla
#5
(01/03/2020 12:22)berduş Adlı Kullanıcıdan Alıntı: 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
Visual Basic Code
#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.
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da