Mein Fehler.
Du machst das in OnAfterInsert oder du machst es so:
Delphi-Quellcode:
Function GibLetzteNummer:String;
begin
With Tabelle do
begin
SELECT Max (ID) From Tabelle
Result := Fieldbyname('ID');
// Musst du diese Funktion selber anpasse ;)
end;
end;
Ich habe für solche fälle eine Nummerkreistabelle.
ID;Nummer;Bezeichnung
Nun kann ich neue Datensätze anlege und beim Nummerabfrage setzte ich den Wert Nummer + 1