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