Error en los calculos dentro de un ciclo For.. Next
Estoy utilizando esta rutina para calcular diferentes resultados dentro del proceso:
Dim Rst As DAO.Recordset
Set Rst = Me.RecordsetClone
While Not Rst.EOF
DoCmd. OpenForm "INTERMEDIOCALCULOCOMBINADOS"
Rst. MoveNext
Wend
Rst. Close
Set Rst = Nothing
Exit Sub
Cualquier calculo que intento realizar dentro del Formulario INTERMEDIOCALCULOCOMBINADOS me esta dando problemas que no me están calculando bien los resultados que allí estoy realizando.
Trate de hacer los cálculos programando el evento Al Activar registro del formulario INTERMEDIOCALCULOCOMBINADOS y anteponga DoEvents al hacer los cálculos. El problema de recorrer el recordset clonado y utilizar un RECALC en el formulario Access se queda en el primer registro del recordset. Como desconozco los cálculos que hace en el formulario no puedo darle más información, pero seria más conveniente hacerlo con una función y SQL, por ejemplo, un INSERTO INTO o UPDATE.
Si adjunta una imagen ayudaría a tener más claridad sobre el proceso, así la respuesta sería más acertada.
