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