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