Kod:
Private Sub btn_Kaydet_Click()
'Dim rs As New ADODB.Recordset
If MsgBox("Veriler Kaydedilecek . Onaylıyormusunuz.?", 36, "Kayıt Ediliyor") = vbYes Then
Dim x As Byte
For x = 1 To Form_F_PoliceGiris.ComboBox_TaksitSayisi
' rs.Open "T_Taksitler", CurrentProject.Connection, adOpenDynamic, adLockOptimistic
' rs.AddNew
'
' rs!PoliceNo = TextBox_PoliceNo.Value
' rs!TaksitNo = x
' rs!TaksitVadesi = Controls("TextBox_T" & x).Value
' rs!TaksitTutari = Controls("TextBox_TT" & x).Value
' rs!OdemeDurumu = ComboBox_OdemeDurumu.Value
'
' rs.Update
' rs.Close
'
' Set rs = Nothing
PoliceNo = TextBox_PoliceNo.Value
TaksitNo = x
TaksitVadesi = Controls("TextBox_T" & x).Value
TaksitTutari = Controls("TextBox_TT" & x).Value
OdemeDurumu = ComboBox_OdemeDurumu.Value
DoCmd.SetWarnings False
DoCmd.RunSQL "INSERT INTO T_Taksitler ( PoliceNo, TaksitNo, TaksitVadesi, TaksitTutari, OdemeDurumu ) " & _
"VALUES ('" & PoliceNo & "'," & TaksitNo & ", #" & Format(TaksitVadesi, "dd-mm-yyyy") & "#,'" & TaksitTutari & "','" & OdemeDurumu & "''')"
DoCmd.SetWarnings True
Next x
MsgBox "Kayıt işlemi gerçekleşmiştir.", 64, "Kayıt İşlemi"
GoTo 777
Else
MsgBox "Kayıt İşleminden Vazgeçtiniz. Veriler Kaydedilmedi!", 64, "Kayıt İşlemi"
End If
777
End Sub