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.

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

ç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 ?

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