Como crear un formulario de crédito con opciones de fecha y pagos

No dices donde pones el numero de cuotas, si en el formulario o en el subformulario. Por otro lado no entiendo que si el segundo pago es el 09/09/2017 el tercer pago sea el mismo día. Vamos a suponer que hay una semana de intervalo y vamos a suponer que el número de cuotas está en el formulario y que el cuadro de texto donde las escribes se llama Numcuotas. En el evento después de actualizar de ese cuadro de texto puedes poner

dim respuesta as byte

respuesta = msgbox("¿Esta seguro de querer insertar los registros?",vbokcancel,"No digas que no te avisé")

if respuesta=vbok then

dim a as integer

for a=1 to Numcuotas

docmd.setwarnings false

docmd.runsql"Insert into Cuotas(cuota, fecha)values(" & a & ",#" & me.fechainiciopago & "# + a*7)"

next

elseif respuesta=vbcancel then

docmd.cancelevent

End if

Para poder concretar lo de la cantidad habría que saber si se divide la cantidad entre las cuotas o si hay un pago inicial grande y luego son cuotas iguales.

Cordial saludo

Si señor así como supone es correcto. Y si, hay un pago inicial de 70000 y 11 cuotas semanales de 10000

Gracias por tan oportuna respuesta

Supongamos que el formulario tiene la forma de la imagen, y le voy a decir que a cada cuota le sume 10 días a la anterior.

En el momento que escribo el número de cuotas, en este caso 12 y pulso Enter

Aunque no salga en la imagen, mi ordenador es un portátil y la pantalla no da para más, sigue hasta las 12 cuotas, como puedes ver en los botones de navegación.

El código del evento Después de actualizar del cuadro de texto Numcuotas es

agradezco mucho la colaboración y lo que me dices es exacto lo que necesito

al colocar el codigo

Private Sub Nro_Cuotas_AfterUpdate()

DoCmd.RunCommand acCmdSaveRecord
Dim a As Byte, c As Currency
c = (Importe - PagoInicial) / ([NumCuotas] - 1)
DoCmd.SetWarnings False
DoCmd.RunSQL " insert Into detallepago ( idpago,numcuenta,fecha,cuota)values("forms!pagos!idpago,1,Fechaincio,pagoinicial)"

For a = 2 To NumCuotas

DoCmd.RunSQL " insert Into detallepago ( idpago,numcuenta,fecha,cuota)values("forms!pagos!idpago"& a &",FechaInicio+("& a &")*10,"& c &")"

Next

Form.Refresh

sale el error de compilación se experaba fin de la instrucción y resalta la palabra Forms.

agradecido

Este es el código con mis datos :

Private Sub Nro_Cuotas_AfterUpdate()

DoCmd.RunCommand acCmdSaveRecord
Dim a As Byte, c As Currency
c = (Covenio - PagoInicial) / ([Nro_Cuotas] - 1)
DoCmd.SetWarnings False

DoCmd.RunSQL " insert Into Documentos_Fecha_Pago ( idpago,numero,fecha,cuota)values("forms!Sub2__Documentos_Fec_Pago!idpago,1,Fechaincio,pagoinicial)"

For a = 2 To NumCuotas

DoCmd.RunSQL " insert Into Documentos_Fecha_Pago ( idpago,numero,fecha,cuota)values("forms!Sub2__Documentos_Fec_Pago"& a &",FechaInicio+("& a &")*10,"& c &")"

Next

Form.Refresh

End Sub

Sigue apareciendo el error