Ciao,
sempre se ho capito bene, puoi fare così:
Dim rs1 As DAO.Recordset
Dim rs2 As DAO.Recordset
Dim i As Integer
CurrentDb.Execute "Delete * From Tabella2"
Set rs1 = CurrentDb.OpenRecordset("righe documenti")
Set rs2 = CurrentDb.OpenRecordset("Tabella2")
Do Until rs1.EOF
rs2.AddNew
For i = 1 To 8
rs2.Fields("A" & i) = rs1!Campo1
rs1.MoveNext
If rs2.Fields("A" & i) = Null Then rs2.Fields("A" & i) = 0
Next i
rs2.Update
Loop
rs1.Close
rs2.Close
Set rs1 = Nothing
Set rs2 = Nothing
DoCmd.OpenTable "Tabella2"
Al posto di Campo1 metti il vero nome del campo della tabella"righe documenti", al posto di Tabella2 il vero nome della seconda tabella che vuoi implementare ed infine modifica il nome degli 8 campi della Tabella2 che io per comodità ho chiamato A1:A8; l'importante è che si chiamino con lo stesso nome e che abbiano un numero finale da 1 a 8
Ciao Vladimiro