Merhabalar
F_11_MasaOdeme ve T_11_MasaOdemeAktar arasında Ekleme sorgumu çalıştırdığımda Sorgu değerleri ile Hedef alanların sayısı aynı değil hata mesajı alıyorum, Tablomdaki alanlarla kodumda yazan alanların sayısı eşit 11 adet alan var ve sıralama ve alan adları aynı. Hatayı nerde yapıyorum. İlginiz için teşekkür ederim.
Hatalı kod yazmışsınız, olması gereken kod;
DoCmd.RunSQL "INSERT INTO T_11_MasaOdemeAktar ([MasaNo],[Tarih],[HesapToplami],[İskonto],[OdemeTutari],[NakitOdeme],[KrediKarti],[YemekCeki],[Kalan],[MusteriAdi],[Kasiyer]) VALUES ('" & Me.txtMasaNo & "', '" & Format(Me.txtTarih, "dd.mm.yyyy") & "', " & Me.txtHesapToplami & ", " & Me.txtİskonto & ", '" & Me.txtOdemeTutari & "','" & Me.txtNakit & "','" & Me.txtKrediKarti & "','" & Me.txtYemekCeki & "','" & Me.txtKalan & "', '" & Me.txtMusteriAdi & "', '" & Me.cboKasiyer & "')"
(17/01/2019, 15:12)ozanakkaya yazdı: Hatalı kod yazmışsınız, olması gereken kod;
DoCmd.RunSQL "INSERT INTO T_11_MasaOdemeAktar ([MasaNo],[Tarih],[HesapToplami],[İskonto],[OdemeTutari],[NakitOdeme],[KrediKarti],[YemekCeki],[Kalan],[MusteriAdi],[Kasiyer]) VALUES ('" & Me.txtMasaNo & "', '" & Format(Me.txtTarih, "dd.mm.yyyy") & "', " & Me.txtHesapToplami & ", " & Me.txtİskonto & ", '" & Me.txtOdemeTutari & "','" & Me.txtNakit & "','" & Me.txtKrediKarti & "','" & Me.txtYemekCeki & "','" & Me.txtKalan & "', '" & Me.txtMusteriAdi & "', '" & Me.cboKasiyer & "')"
Ozan bey İncelediğim Örneklerde Tarih bölümüyle ilgili alan olmadığı için farklı yapıda yazılması gerektiğini bilmiyordum, öğrenmiş oldum sadece şunu öğrenmek istiyorum yazılan kod çok uzun kalıyor bunu sizin burda yazdığınız gibi 3-4 satıra yayarak nasıl yazabillrim koda baktığımda hatayı bulmak daha kolay oluyor.
DoCmd.RunSQL "INSERT INTO T_11_MasaOdemeAktar ([MasaNo],[Tarih],[HesapToplami],[İskonto],[OdemeTutari],[NakitOdeme],[KrediKarti],[YemekCeki]," & _
"[Kalan],[MusteriAdi],[Kasiyer]) VALUES ('" & Me.txtMasaNo & "', '" & Format(Me.txtTarih, "dd.mm.yyyy") & "', " & Me.txtHesapToplami & ", " & _
"'" & Me.txtİskonto & "', '" & Me.txtOdemeTutari & "','" & Me.txtNakit & "','" & Me.txtKrediKarti & "','" & Me.txtYemekCeki & "', " & _
"'" & Me.txtKalan & "', '" & Me.txtMusteriAdi & "', '" & Me.cboKasiyer & "')"
Şeklinde, satır sonuna " & _ ekleyip, sonraki satırdan " ile başlayıp ayırabilirsiniz, ancak bu mevzuya şu an için hiç girmeyin.