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