Skip to main content

AccessTr.neT


Insert Into Sorgu Değerleri İle Hedef Alan Sayısı Aynı Değil Hatası

Oğuz Türkyılmaz
Oğuz Türkyılmaz
17
2212

Insert Into Sorgu Değerleri İle Hedef Alan Sayısı Aynı Değil Hatası

#7
(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
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 05/03/2020, 23:16, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#8
(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?
Cevapla
#9
Me.AdSoyad_TXT = Dlookup  ("[AdSoyad]", "T_Uye", "[UyeNo]=" & UyeNo_TXT)
şeklinde denediniz mi?
bu şekilde de hata veriyor mu?
Cevapla
#10
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?????
Cevapla
#11
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.
.rar 02 03 2020_07 12_AED BilgiSistemi.rar (Dosya Boyutu: 468,19 KB | İndirme Sayısı: 1)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#12
(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]
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla

Bir hesap oluşturun veya yorum yapmak için giriş yapın

Yorum yapmak için üye olmanız gerekiyor

ya da