Delphi-Quellcode:
Form1.Query1.Prior;
Form1.Query1.Edit;
If Form1.Query1.RecNo = Form1.Query1.FieldCount-1 Then
begin
Form1.Query1.Last;
Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
end
else
Form1.Query1.FieldByName('Gedruckt').AsDateTime:= Now;
end;
Ich sehe da kein i mehr. Du mußt Dir das mit dem Datenbank-Cursor mal durchlesen. Du springst doch mit Prior und Last und Edit kreuz und quer durch die Daten.