Ciao,
ho un problema sull'esecuzione di un ciclo.
Voglio usare una maschera (con campo data, causale, descrizione, n.rate ed importo) che scriva su un tabella tanti record quanti ne indico nel campo "n.rate", l'unico parametro che si modifica è quello della data (mese).
Io ho usato questo comando:

Private Sub CT_Importo_AfterUpdate()

Dim stDay As Integer
stDay = Day(CT_Data)
Dim stMonth As Integer
stMonth = Month(CT_Data)
Dim stYear As Integer
stYear = Year(CT_Data)
Dim stVar As Integer
stVar = 1
Dim rs As DAO.Recordset


Set rs = CurrentDb.OpenRecordset("DB_Finanziamenti", dbOpenDynaset)
For stVar = 1 To CT_Rata
If stMonth > 11 Then
stMonth = 1
stYear = stYear + 1
Data = stDay & "/" & stMonth & "/" & stYear
Else
stMonth = stMonth + 1
Data = stDay & "/" & stMonth & "/" & stYear
End If
rs.AddNew
rs("Data") = Data
rs("Causale") = CT_Causale
rs("Descrizione") = CT_Descrizione
rs("Da_Pagare") = CT_Importo
rs("Pagato") = 0

rs.Update
Next


rs.Close
Set rs = Nothing

End Sub

Però non capisco perchè, nel primo record anzichè mettere la data giusta cioè quella che scrivo nel campo "Data" della maschera, mi mette la data dell'ultimo record e poi mi scrive tutte le altre partendo dal mese successivo (quindi mi ritrovo con una rata in più).
Sapete dirmi dove sbaglio?
Grazie