Nachtrag:
@marabu
Zitat:
procedure TFormRechnungen.QueryRechnungenBeforeInsert(DataSe t: TDataSet);
begin
DataSet.FieldByName('RNR').AsInteger := NextKey('RNR', 'Rechnungen');
end;
Damit es funktioniert muß der Code geändert werden:
Delphi-Quellcode:
procedure TFormRechnungen.QueryRechnungenBeforInsert(DataSet: TDataSet);
begin
EditRNr.Text := IntToStr(NextKey('RNr', 'Rechnungen'));
end;
Noch ne Frage zu
SQL.Text:
SQL.Text := Format('SELECT MAX(%s) FROM %s', [fldName, tblName]);
Damit wird immer die "größte" vorhandene Rechnungsnummer hochgezählt.
Ich möchte, dass die Nr. frei wählbar bleibt, d.h. wird nach "1000"
nur "100" eingegeben, dann soll die nächste Nr. mit 101 hochgezählt
werden. Was gibt's dafür als Ersatz für "MAX"?
Gruß
Lombi