[VBA/Access] Campo subparziale

[diegoctn]

Ragazzi , ho una tabella cosi composta:

c1 (nome) c2 (anno) c3(qua)
mario 2006 100
luigi 2006 150
mario 2007 200
alberto 2008 100
luigi 2008 100

vorrei un campo in più con un subparziale

c1 (nome) c2 (anno) c3(qua) c4(sub)
mario 2006 100 100
luigi 2006 150 150
mario 2007 200 300
alberto 2008 100 100
luigi 2008 100 250

cioè che si incrementi anno per anno e nome per nome. Ho usato un sacco di codici diversi ma non ne vengo a capo:

Public Sub 111()
Dim db As Database
    Dim rs As Recordset
    Set db = CurrentDb
    
    Set rs = db.OpenRecordset("SELECT * FROM provaprima")
    Do While Not rs.EOF
       
      rs.FindFirst
      rs.Edit
       
       rs!c4 = rs!c4+rs!c3
       rs.Update
    rs.AddNew
    
       rs.MoveNext
    Loop
    rs.Close
End Sub

Ma mi dice che rs.findfirst ha bisogno di un add new...incomma ne sto sbagliando mille e passa...avete qualche suggerimento...grazie mille...

[MItaly]

Per i linguaggi di famiglia VB c'è il sotto-forum apposito, sposto (e sistemo il titolo).