j'ai un probléme avec mon bout de mon code en vb.
une erreur arrive:"erreur d'execution 3020 Update ou CancelUpdate effectué sans appeler Addnew ni Edit"
Pouvez vous m'aidez. merçi d'avance
Function cdane(aec)
Dim dbs As DAO.Database, atable As Recordset, rés As Recordset
Dim j, k, m As Integer
Dim cum, cda As Long
Static tota(99)
Set dbs = CurrentDb
Set atable = dbs.OpenRecordset("liste des cols", dbOpenSnapshot)
Set rés = dbs.OpenRecordset("cdparan", dbOpenTable, dbDenyRead Or dbDenyWrite)
rés.Index = "PrimaryKey"
For j = 0 To 99
tota(j) = 0
Next
Do Until atable.EOF
cda = cdan(atable![Cols Durs années précéd], atable![altit], atable![année], atable![cd], aec)
atable.MoveNext
For j = 0 To 99
tota(j) = tota(j) + totcd(j)
Next
Loop
cum = 0
For j = 0 To 99
With rés
.Edit
.Seek "=", j
![Mpan] = tota(j)
![An 2000] = (j + 40) Mod 100 + 1960
.Update
' Debug.Print j, tota(j)
cum = cum + tota(j)
cdane = cum
End With
Next
rés.Edit
rés.Seek "=", 100
rés![Mpan] = cum
rés.Update
rés.Close
End Function