(05/03/2020, 23:14)Oğuz Türkyılmaz yazdı:hangi dosyanızda bu kodu kullandınız ekleyip yerini söyler misiniz?(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.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 gerekmezmiPrivate 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_________________________________
Insert Into Sorgu Değerleri İle Hedef Alan Sayısı Aynı Değil Hatası
Konuyu Okuyanlar: 1 Ziyaretçi