Hallo Lombi,
dir scheinen die von
Paradox mitgebrachten AutoInc-Felder nicht zu gefallen. Getippt und nicht getestet:
Delphi-Quellcode:
function NextKey(tblName, fldName:
String): Integer;
begin
with TQuery.Create(
nil)
do
begin
DatabaseName := Global.DatabaseName;
SQL.Text := Format('
SELECT MAX(%s) FROM %s', [fldName, tblName]);
Open;
Result := Succ(Fields[0].AsInteger);
Close;
end;
end;
procedure TFormRechnungen.QueryRechnungenBeforeInsert(DataSet: TDataSet);
begin
DataSet.FieldByName('
RNR').AsInteger := NextKey('
RNR', '
Rechnungen');
end;
Gute Nacht
marabu