[VBa Access] Problemino !!

[mephistole]

ciao a tutti ho un problema..

...
Dim miodb As DAO.Database
Dim mioRST As DAO.Recordset
Dim Ric_Fiscale 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.Edit
mioRST.Fields("Ric_Fiscale") = "0"
mioRST.MoveNext
Me.Sottomaschera_Mese.Requery

Next i

Set miodb = Nothing
Set mioRST = Nothing
...


Dovrebbe sostituirmi tutti i valori nel campo Ric_Fiscale con lo 0 (Zero) ma quando parte nn sostituisce nulla..
Qualcuno puo gentilmente darmi una mano?? grazie!!!

[gibra]

Sinceramente mi ricordo poco o niente di DAO, ma ci provo:

1. Probabilmente (ma controlla la guida) aprendo il recordset senza indicare il Tipo, potresti ottenere un recordset read-only.

2. A parte il punto 1, una volta impostato il nuovo valore devi fare l'update esplicito.
Se fai direttamente il MoveNext l'update non avviene (in ADO invece l'update è automatico)

3. Potrei anche sbagliare (non conoscendo i dettagli del tuo progetto), ma mi sembra sia inutile eseguire il requery
Me.Sottomaschera_Mese.Requery
ad ogni iterazione, fallo una volta concluso il ciclo For/Next

Chissà se ne ho azzeccata almeno una delle tre...