SQL para toda una tabla, registro a registro

[Juan Fco.]

Private Sub Form_Open(Cancel As Integer)
Dim strSQL As String
Do While Not EOF
N_1 = (E1 + 2 * E2) / 3
NF_1 = N_1 * 0.8 + H1 / T1 + (I1 + G1) / 2 * 0.1

strSQL = "UPDATE ..."
CurrentDb.Execute strSQL
Loop
End sub