Sub CalcT()
Dim db As DAO.Database, rs As DAO.Recordset
Dim n As Integer, j As Integer, w As Integer, x As Integer, y As Integer, z As Integer
Set rs = CurrentDb.OpenRecordset("SELECT * FROM Table1 ORDER BY NGay")
CurrentDb.Execute "DELETE FROM Table2"
Set db = CurrentDb
Do While Not rs.EOF
n = rs!T1
j = 0
Do While n <= rs!TMax
w = rs!T1 + j
x = rs!T1 + rs!T2 + j
y = rs!T1 + rs!T2 + rs!T3 + j
z = rs!T1 + rs!T2 + rs!T3 + rs!T3 + j
db.Execute "INSERT INTO Table2(Ngay, T1,T2,T3,T4) VALUES(#" & rs!Ngay & "#," & w & "," & x & "," & y & "," & z & ")"
n = n + 1
j = j + 1
Loop
rs.MoveNext
Loop
End Sub