FindNext que da error

[Tecnic2]

Hola a todos,

En mi aplicacion necesito filtrar un grupo de registros dentro de una tabla a través de su código, utilizo para éllo el método Filter. Una vez filtrado voy avanzando el grupo de registros resultante hasta llegar al final y salir del bucle.
Mi problema es que al hacer el ultimo FindNext me da error diciendo que no puede ejecutar ésta funcion porque se encuentra al final del grupo de registros, y no entiendo el porque.
Aqui teneis mi código:

ADOTabla.Filtered := False;
ADOTabla.Filter := 'codart = ' + QuotedStr(Codigo);
ADOTabla.Filtered := True;
ADOTabla.FindFirst;
while (not ADOTabla.Eof) do
begin
// AQUI HAGO ACUMULO DATOS
ADOTaulaCompres.FindNext;
end;

Gracias por adelantado.

[marcoszorrilla]

Prueba esto a ver si te funciona:

Código Delphi [-]
 ADOTabla.Filtered := False;
 ADOTabla.Filter := 'codart = ' + QuotedStr(Codigo);
 ADOTabla.Filtered := True;
 ADOTabla.FindFirst;
 while (

Código Delphi [-]
    ADOTaulaCompres.FindNext;) do
   begin  
      // AQUI HAGO ACUMULO DATOS
  
   end;
 

Un Saludo.

[Tecnic2]

Me da el error igual.
Dos apuntes:
1- El error es: "Record not found".
Cosa lógica porque no hay ninguno mas.
2- El codigo tiene que ser: ADOTabla.FindNext, y no ADOTaulaCompres.

Alguna sugeencia mas?

[marcoszorrilla]

El error es típico de los componentes ADO, si ya tienes una clave única definida, piensa en descargarte la versión correspondiente de las MDAC.

Un Saludo.