Auto Numera��o A Partir de um Certo Numero

Question

Tenho um banco de dados no qual j� existe alguns registro, estou usando Adoquery, gostaria saber quando incluir um novo registro, o cod do cliente que j� est� em 41800 passar 41801 automaticamente.

Grato.

Adriano

Lucas Silva · Answer

faz uma fun��o para retornar o maior c�digo da tabela..

function TForm1.MaiorCodigo(nometab, nomecampo: String): Integer;
begin
     with qryAux do
       begin
         Close();
         Sql.Clear();
         Sql.Add(�SELECT MAX(� + nomecampo + �) FROM � + nometab);
         Open();
         Result := Fields[0].AsInteger;
         Close();

       end;
end;

e pra chamar ela, fa�a da seguinte forma.

 if qryCliente.State = dsInsert then // se a query tiver em modo de inser��o...
  qryCliente.FieldByName(�Codigo�).AsInteger := MaiorCodigo(�tabela�,�campo�) + 1;

Xadriano · Answer

Onde eu Coloco:if qryCliente.State = dsInsert then // se a query tiver em modo de inser��o...   qryCliente.FieldByName(�Codigo�).AsInteger := MaiorCodigo(�tabela�,�campo�) + 1;Desculpa esta encomodando, � porque n�o tenho muita experiencia.Adriano...

F�rum Auto Numera��o A Partir de um Certo Numero #221547