Daten überschreiben

[Micha]

Das ist mein Code für das Eintragen:

Delphi-Quellcode:

procedure Tdm_userverw.StdEintragen;
begin
// Dialogfenster: Sicherheitsabfrage vor dem Speichern
 if MessageDlg('Möchten Sie die Daten wirklich speichern?', mtConfirmation, [mbYes, mbNo], 0) = mrYes then
  begin
  Try
    With tbl_std_aendern do
    begin
      Open;
      FieldByName('schulek').AsString := dlg_std_aendern.edt_std_schulek.Text;
     Post;
// Fehlerausgabe
    end;
  Except
    on e:Exception do
    begin
      ShowMessage(e.Message);
    end;
  end;

end;
// schließt das Formular nach OK-Klick
   dlg_std_aendern.Close;
end;