Obtener maximo valor de un campo en Access

[wilcg]

Empezado por ozsWizzard

Llámame loco, pero parece ser que en access no dejará, intuyo, usar como alias el nombre de un campo que tenga la tabla.

Con todo los intentos que he realizado, parces tener razón. no encuentro la manera de solucionarlo, siempre me inventa un error este access, bueno seguiré investigando un poco mas, de lo contrario buscare otra solución.

[wilcg]

En fin este Access si que me invento un montón de errores, no podía dar con lo deseado, pero lo que no sabia es que no me iba dar por vencido, y después de tanto aquí la solución para otro que lo desee. Yo uso UNIDAC y creo que en otros componentes es muy parecido.

PASO 1
en el UniQuery1, clic derecho y selecionar Fields Editor y crear un campo del tipo integer con el nombre en mi caso va ha ser MaxCodigo, y automaticamente se renombrara el campo UniQuery1MaxCodigo.

PASO 2
Crear la funcion

Código Delphi [-]
function TForm1l.ObtenerCodigo: Integer;
var
  NCodigo: Integer;
begin
  UniQuery1.Close;
  UniQuery1.DisableControls;
  UniQuery1.SQL.Text := 'select max( codigo ) as maxcodigo from clientes';
  UniQuery1.Open;
  UniQuery1.EnableControls;
  NCodigo := UniQuery1MaxCodigo.AsInteger; // aqui el nombre del campo
  if NCodigo = 0 then
    Result := 1000000001 // si esta en 0 indicamos de que numeracion queremos empezar
  else
    Result := NCodigo + 1;
end;

PASO 3
uso

Código Delphi [-]
Edit1.Text := IntToStr(ObtenerCodigo);

y listo.