Cita:
Iniciado por 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
Bueno, los numeritos mucho no los entiendo, je

. Pero el Do while sería asi:
Código:
Do While RecordSet.EOF <> True
'Código
RecordSet.MoveNext
Loop
Te falta el nombre del recordset en el do while y el movenext ¿Sera ese el problema?
Saludos. Lucas