AccessTr.neT
insesrt into hatası - Baskı Önizleme

+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: insesrt into hatası (/konu-insesrt-into-hatasi.html)



insesrt into hatası - Mecnun24 - 14/06/2012

Merhabalar. Fkayit formundaki Kaydı kaydet tuşuyla alınan teminat mektubunun 20 yıllık komisyon bilgilerini tkomisyon tablosuna kaydetmek istiyorum fakat, tutar yazınca doğru sonucu vermesine rağmen komisyon yazdığımda hata alıyorum, yardım edebilirmisiniz.

Yeni.rar



Cvp: insesrt into hatası - Kur@l - 14/06/2012

Komut 31 isimli butonun kodunu aşağıdaki ile değiştir.
Komisyon içinde bulunan 39,375 değeri içindeki virgülden dolayı hedef alan 3 ama değerler 4 alan gibi hesaplanıyor ve hataya neden oluyordu.
Komisyon
'" & Komisyon & "')"
alanının verisini metin ekler gibi ' tek tırnak ile kullanınca sıkıntı giderildi.
Kolay gelsin.
Cevap neredeyse oralarda bulunun Lol



Private Sub Komut31_Click()
On Error GoTo Err_Komut31_Click
Dim tar As Date

DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70
kontrol
tar = Me.Tarih
For don = 1 To 80
tar = DateAdd("m", 3, tar)
DoCmd.SetWarnings False
Sql = "insert into TKomisyon (Mektupid, Tarih, Komisyon) values(" & Me.Mektupid & ", #" & Format(tar, "mm/dd/yyyy") & "#, '" & Komisyon & "')"
Debug.Print SQL
DoCmd.RunSQL SQL
Next don
DoCmd.SetWarnings True
MsgBox "Kayıt / Güncelleme Yapıldı", vbInformation
Exit_Komut31_Click:
Exit Sub

Err_Komut31_Click:
MsgBox Err.Description
Resume Exit_Komut31_Click
End Sub




Cvp: insesrt into hatası - Mecnun24 - 14/06/2012

çok teşekkürler sayın Kural, dediğinizi aynen yaptım ancak 18.03.2013 sorgu ifadesi içindeki tarihte söz dizimi hatası veriyor, neden acaba ?


Cvp: insesrt into hatası - Kur@l - 14/06/2012

Tarih ayracınızı / olarak değiştirin problem kalmayacaktır. Ozan hocamın örneği ile otomatik değişir.