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 ?