Ciao a tutti, ho un piccolo problema su questo codice:


....
Dim miodb As DAO.Database
Dim mioRST As DAO.Recordset
Dim Mese As String
Dim Giorno As String
Dim i As Integer

Set miodb = CurrentDb
Set mioRST = miodb.OpenRecordset("T_Mese")



For i = 1 To Me.Combo_Mese.Column(1)

mioRST.AddNew
mioRST!Giorno = i
mioRST!Mese = Me.Combo_Mese.Column(0)

Next i

mioRST.Update

Set miodb = Nothing
Set mioRST = Nothing

.....


dovrebbe crearmi tanti record nella tab T_Mese quanti sono i giorni che gli passo con la combo.
Funziona solo che mi salva, ogni volta che incremento, tutto sul solito record.
quindi mi esce fuori cosi:

31 Gennaio

Piuttosto che cosi:

1 Gennaio
2 Gennaio
3 Gennaio....ecc

ho provato a mettere nel ciclo il codice mioRST.MoveNext ma mi da errore...

Grazie in anticipo!!!