La Web del Programador: Comunidad de Programadores
 
    Pregunta:  22705 - MOVENEXT, PROBLEMA AL MOVER AL ULTIMO REGISTRO
Autor:  Oscar Fernandez
Entorno NT 4(Service pack6) V isual Basic 6(Version empresarial)
En un programa con 2 control data, enlazados a 2 tablas(dynaset) de una base de datos, fusiono datos (relacionados por un campo).Problema en el siguiente bucle:
While not data1.recordset.eof
\' Suma del valor del campo importe
sum=data1.recordset.fields(\"CAMPO\").value
suma=sum + suma
data1.recordset.movenext
wend

El Error aparece al moverse al siguiente registro, cuando ha llegado al ultimo registro ERROR:\"La propiedad text es de solo lectura\"
Espero me podais dar alguna pista, gracias por tu interes.
Un saludo.

  Respuesta:  Agustín Dávila
Porque no pruebas de hacerlo de esta forma, para ver si es por el Movenext:

do
\' Suma del valor del campo importe
sum=data1.recordset.fields(\"CAMPO\").value
suma=sum + suma
data1.recordset.movenext
if data1.recordset.EOF=true then exit do
loop