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
977

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

Çözüldü #1
Her 2 tabloya da Açıklama alanlarını eklemeden önce çalışan Kaydet işlevi Acıklama alanının 2 tabloya  ve ınsert ınto koduna eklenmesinden sonra aşağıdaki hatayı veriyor çözümü konusunda ne yapabilirim teşekkürler.



[Resim: do.php?img=9799]

Visual Basic Code
Private Sub Kaydet_BTN_Click()

If Len(Trim(Me.UyeNo_TXT)) = 0 Or Len(Trim(Me.TaksitKapama_CBO)) = 0 Or Len(Trim(Me.Tutar_TXT)) = 0 Then
MsgBox "Lütfen eksik bilgileri tamamlayiniz."

DoCmd.GoToControl "UyeNo_TXT"
 
 Else


If MsgBox("Bilgiler Kaydedilecek Onaylıyormusunuz ?", vbQuestion + vbYesNo, "Dikkat") = vbYes Then
  
CurrentDb.Execute " insert into T_UyeTahsilat " & _
          " ( UyeNo, GelirKodu,GelirTipi,TaksitAyKapama, Tarih, AidatTutar, Aciklama ) values " & _
          " ( " & Me.UyeNo_TXT & ", '" & Me.GelirKodu_TXT & "', '" & Me.GelirTipi_TXT & "', '" & Me.TaksitKapama_CBO & "','" & Me.Tarih_TXT & "', CCur('" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "'))"

CurrentDb.Execute " insert into T_UyeHesap " & _
             " (  UyeNo,Tarih,IslemTuru, Tutar, Aciklama ) values " & _
              " ( " & Me.UyeNo_TXT & ",'" & Me.Tarih_TXT & "','Alacak', '" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "')"
End If
 
UyeNo_TXT.Value = ""
AdSoyad_TXT.Value = ""
TaksitKapama_CBO.Value = ""
Tutar_TXT.Value = ""

UyeNo_TXT.SetFocus

End If

End Sub
.rar ınser ınto.rar (Dosya Boyutu: 29,46 KB | İndirme Sayısı: 5)
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#2
virgüllü sayılarda sorun çıkmasını engellemek için kullanılan CCur fonksiyonuna ait kapama parantezini açıklamayı da kapsayacak şekilde yapmışsınız
parantezin yerini değiştirirseni büyük bir ihtimalle sorun kalmaz
CCur('" & Me.Tutar_TXT & "','" & Me.Aciklama_TXT & "'))" bu kısım hatalı
CCur('" & Me.Tutar_TXT & "'),'" & Me.Aciklama_TXT & "')" <-- olması gereken
Cevapla
#3
Sn@berduş uygulamada işlem gerçekleştikten sonra kapat tuşuna bastığımda da bu hata çıkıyor. Uygulamada bir çok şeyi değiştiriyorum en basitinden  alan isimlerinde de kodu daha rahat okuyabileyim diye  txtUyeNo yerine UyeNo_TXT gibi değişiklikler yaptım bu aşağıdaki hatadayıda aynı formda işlemi kaydettikten sonra formdan çıkmak için kapat tuşuna bastığımda alıyorum. 

[Resim: do.php?img=9800]

[Resim: do.php?img=9801]

 
Access Çekirgesi 
[Resim: img-cray.gif]


Son Düzenleme: 05/03/2020, 22:48, Düzenleyen: Oğuz Türkyılmaz.
Cevapla
#4
(05/03/2020 22:45)Oğuz Türkyılmaz Adlı Kullanıcıdan Alıntı: Sn@berduş uygulamada işlem gerçekleştikten sonra kapat tuşuna bastığımda da bu hata çıkıyor. Uygulamada bir çok şeyi değiştiriyorum en basitinden  alan isimlerinde de kodu daha rahat okuyabileyim diye  txtUyeNo yerine UyeNo_TXT gibi değişiklikler yaptım bu aşağıdaki hatadayıda aynı formda işlemi kaydettikten sonra formdan çıkmak için kapat tuşuna bastığımda alıyorum. Kayıt kaynağı olan tablolar değişti alan isimlerini revize edince böyle bir hata çıktı 

[Resim: do.php?img=9800]

[Resim: do.php?img=9801]

 
Access Çekirgesi 
[Resim: img-cray.gif]


Cevapla
#5
dlookup kodundaki kriteri yanlış yazmışsınız formdaki bir değeri kritere öyle ekleyemezsiniz
Cevapla
#6
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.
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