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

1 2 3

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.

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

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

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.

(05/03/2020, 22:45)Oğuz Türkyılmaz yazdı: 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ı

dlookup kodundaki kriteri yanlış yazmışsınız formdaki bir değeri kritere öyle ekleyemezsiniz

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.

1 2 3