AccessTr.neT

(05/03/2020, 23:11)Oğuz Türkyılmaz yazdı: [ -> ]Eski Çalışan KOD bu hata vermiyordu

Me.txtUyeAdiSoyadi = Dlookup ("[UyeAdiSoyadi]", "T_1_MemberDefinition", "[UyeNo]=txtUyeNo")


Tablolar ve alan isimleri değiştikten sonra revize olmuş hata veren kod

Me.AdSoyad_TXT = Dlookup ("[AdSoyad]", "T_Uye", "[UyeNo]=UyeNo_TXT") aralarında bir fark göremediğim için anlam veremedim neden çalışmadığına.

Private Sub txtUyeNo_Exit(Cancel As Integer)



Dim x As Integer



txtUyeAdiSoyadi = Dlookup ("[UyeAdiSoyadi]", "T_1_MemberDefinition", "[UyeNo]=txtUyeNo")



txtAy1 = Dlookup ("[Ocak]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy2 = Dlookup ("[Subat]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy3 = Dlookup ("[Mart]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy4 = Dlookup ("[Nisan]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy5 = Dlookup ("[Mayis]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy6 = Dlookup ("[Haziran]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy7 = Dlookup ("[Temmuz]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy8 = Dlookup ("[Agustos]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy9 = Dlookup ("[Eylul]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy10 = Dlookup ("[Ekim]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy11 = Dlookup ("[Kasim]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy12 = Dlookup ("[Aralik]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")



'hy___her ayın ardalan rengi beyaz yapılıyor

For x = 1 To 12

 '   Me.Controls("txtAy" & X).BackColor = vbWhite

Next x

'hy_Renklendirme_________________________________

 aynı kod burada da var burda da çalışıyor. İnanın hiç bir şey anlamadım kod yapısı hatalıysa buralarda da hata vermesi gerekmezmi

(05/03/2020, 23:14)Oğuz Türkyılmaz yazdı: [ -> ]

(05/03/2020, 23:11)Oğuz Türkyılmaz yazdı: [ -> ]Eski Çalışan KOD bu hata vermiyordu

Me.txtUyeAdiSoyadi = Dlookup ("[UyeAdiSoyadi]", "T_1_MemberDefinition", "[UyeNo]=txtUyeNo")


Tablolar ve alan isimleri değiştikten sonra revize olmuş hata veren kod

Me.AdSoyad_TXT = Dlookup ("[AdSoyad]", "T_Uye", "[UyeNo]=UyeNo_TXT") aralarında bir fark göremediğim için anlam veremedim neden çalışmadığına.

Private Sub txtUyeNo_Exit(Cancel As Integer)



Dim x As Integer



txtUyeAdiSoyadi = Dlookup ("[UyeAdiSoyadi]", "T_1_MemberDefinition", "[UyeNo]=txtUyeNo")



txtAy1 = Dlookup ("[Ocak]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy2 = Dlookup ("[Subat]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy3 = Dlookup ("[Mart]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy4 = Dlookup ("[Nisan]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy5 = Dlookup ("[Mayis]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy6 = Dlookup ("[Haziran]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy7 = Dlookup ("[Temmuz]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy8 = Dlookup ("[Agustos]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy9 = Dlookup ("[Eylul]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy10 = Dlookup ("[Ekim]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy11 = Dlookup ("[Kasim]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")

txtAy12 = Dlookup ("[Aralik]", "T_1_MemberDues", "[UyeNo]=txtUyeNo")



'hy___her ayın ardalan rengi beyaz yapılıyor

For x = 1 To 12

 '   Me.Controls("txtAy" & X).BackColor = vbWhite

Next x

'hy_Renklendirme_________________________________

 aynı kod burada da var burda da çalışıyor. İnanın hiç bir şey anlamadım kod yapısı hatalıysa buralarda da hata vermesi gerekmezmi

hangi dosyanızda bu kodu kullandınız ekleyip yerini söyler misiniz?

Me.AdSoyad_TXT = Dlookup  ("[AdSoyad]", "T_Uye", "[UyeNo]=" & UyeNo_TXT)

şeklinde denediniz mi?
bu şekilde de hata veriyor mu?

Her iki tabloda da uyeno alanı sayı mı? Sayı olan alan için ölçüt nasıl olmalı, metin alanı için nasıl olmalı, defalarca sordunuz, defalarca yazdık.

"Sorgu Değerleri İle Hedef Alan Sayısı Aynı Değil"den Dlookup kriterini ne ara geldik?????

Sn@berduş

F_1_MemberPayment
TF_1_MemberDues
TF_1_MemberDuesInfo

Bu formlarda UyeNo Alanının çıkıldığında yordamlarında yazılı. 2-3 formda daha vardır ama henüz o formları ve bağlantılı tablolarda değişiklik yapmadığım için onlara sıra gelmedi. Uygulamanın bir çok yönünü değiştirdim. Uye Formu olduğu gibi değişti Diğer form ve tablolar ve sorgular değişti sırayla hepsini değiştiriyorum ama sadece bu kodda sorun çıktı. Neyse bu kadar uzayacağını düşünmemiştim konu dağıldı. Uğraşayım bakalım gerekirse yeni konu açarım. Teşekkürler.

(05/03/2020, 23:33)berduş yazdı: [ -> ]

Me.AdSoyad_TXT = Dlookup  ("[AdSoyad]", "T_Uye", "[UyeNo]=" & UyeNo_TXT)

şeklinde denediniz mi?
bu şekilde de hata veriyor mu?

Evet Aşağıdaki gibi hata veriyor.