Hi!
@NewB:
und wie siehts hiermit aus:
Delphi-Quellcode:
procedure TForm4.Button2Click(Sender: TObject);
begin
if not Table1.Active then
Table1.Active := True;
Table1.Locate('Nr', StrToInt(Edit1.Text), []);
if (Table1.State <> dsEdit) or (Table1.State <> dsInsert) then
Table1.Edit;
Table1.FieldByName('Verleihstatus').AsString := 'ja';
Table1.FieldByName('Kundennrv').AsString := Edit2.Text;
Table1.Post;
end;
Es wird sichergetellt das die Tabelle geöffnet ist, dann wird der Datensatz gesucht.
Nun wird der Datensatz in den Edit-Modus gesetzt (wenn noch nicht geschehen...), die Daten
eingetragen und gespeichert.
