insesrt into hatası

14/06/2012, 13:26

Mecnun24

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
14/06/2012, 13:50

Kur@l

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


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

14/06/2012, 14:13

Mecnun24

ç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 ?
14/06/2012, 14:16

Kur@l

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