[Neftali [Germán.Estévez]]

Empezado por behert666

Accept := Modulodatos.Clientes.FieldByName('TIPOCLIENTE').AsString = 'CREDITO';

Puede ser que estés intentando acceder a un registro y no haya ninguno.

Prueba con:

Código Delphi [-]
(Modulodatos.Clientes.Empty)

o con:

if (Modulodatos.Clientes.EOF) and (Modulodatos.Clientes.BOF) then begin
  // vacio
  Accept := False;
end
else begin
  Accept := Modulodatos.Cliente.....
end;