AccessTr.neT

Tam Versiyon: Insert Into Sorgu Değerleri İle Hedef Alan Sayısı Aynı Değil Hatası
Şu anda arşiv modunu görüntülemektesiniz. Tam versiyonu görüntülemek için buraya tıklayınız.
Sayfalar: 1 2 3
(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.

[Resim: do.php?img=9802]
Sayfalar: 1 2 3