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

1 2 3
05/03/2020, 22:06

Oğuz Türkyılmaz

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
05/03/2020, 22:23

berduş

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
05/03/2020, 22:45

Oğuz Türkyılmaz

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:51

Oğuz Türkyılmaz

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





 
05/03/2020, 22:56

berduş

dlookup kodundaki kriteri yanlış yazmışsınız formdaki bir değeri kritere öyle ekleyemezsiniz
05/03/2020, 23:11

Oğuz Türkyılmaz

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