Obtener maximo valor de un campo en Access

[wilcg]

De nuevo aquí en el foro, tengo un error que no le encuentro cura. Haber si me dan una solución.

Código Delphi [-]
with Query1 do
  begin
    SQL.Clear;
    Close;
    SQL.Text := 'Select max(codigo) as codigo from clientes';
    Open;
    Edit1.Text := FormatFloat('0000000', StrToFloat(FloatToStr(FieldByName('CODIGO').AsInteger +1)));
    Close;
    Active := False;
  end;

Este código funciona correctamente en Firebird, Posgresql que ya lo probe. Pero en Access me da error, no funciona ¿como puedo obtener el valor maximo de un campo en un base de datos .MDB de Access?. necesito una manito.

[Casimiro Notevi]

Empezado por wilcg

Pero en Access me da error

¿Y el error es... ?

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

La consulrta en si no parece tener nada raro.
Tal y como te han comentado, ¿Te da error? ¿No funciona? ¿No da nada?... ?¿?¿?

[giulichajari]

Y cambiaste la fuente de datos del query? osea en vez de especificar la conexión mysql, debes conectar con access.

[wilcg]

Gracias por su interés, les comento la conexión es correcta para Access la aplicacion guarda y modifica los registros de la base de datos, el problema surge cuando realizo esta consulta. y con respecto al error es este.

[nicolas77]

Código Delphi [-]
with Query1 do
begin
  SQL.Clear;
  Close;
  SQL.Text := 'Select max(codigo) as Maximo from clientes';
  Open;
  Edit1.Text := FormatFloat('0000000', StrToFloat(FloatToStr(FieldByName('CODIGO').AsInteger +1)));
  Close;
  Active := False;
end;

esto se puede arreglar:

Código Delphi [-]
  Edit1.Text := FormatFloat('0000000', StrToFloat(FloatToStr(FieldByName('CODIGO').AsInteger +1)));