Fieldbyname ADOTable

[[Caral]]

Hola
Aveces el (true, false) en access hace lo que quiere, es mejor un (N, Y) o (1, 2).
Puede ser que salte por la falta de un begin, intentalo asi:

Código Delphi [-]
Function CantEjerciciosPublicados():integer;
var
total,POS:integer;
begin
total:=0;
POS:=DM.tabla_ejercicios.Fieldbyname('idejercicio').AsInteger;
DM.tabla_ejercicios.First;
while NOT(DM.tabla_ejercicios.Eof) do begin
if DM.tabla_ejerciciospublicadoenpractica.Value = TRUE then
begin
Inc(total);
DM.tabla_ejercicios.Next;
end;
end;
DM.tabla_ejercicios.Locate('idejercicio',POS,[]);
RESULT:=total;
end;

Saludos