Ver Mensaje Individual
  #6 (permalink)  
Antiguo 21/07/2005, 10:56
Avatar de lucasiramos
lucasiramos
 
Fecha de Ingreso: agosto-2004
Ubicación: Santa Rosa, La Pampa, Argentina
Mensajes: 1.484
Antigüedad: 20 años, 8 meses
Puntos: 13
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