(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