Hi, ich habe ja einen code zusammengeschnipselt:
Code:
procedure TKundendaten.SpeichernClick(Sender: TObject);
begin
if DBEdit38.Text = '' then
MessageDlg('Sie haben das Geburtsdatum nicht eingetragen. Bitte tragen Sie jetzt ein Geburtsdatum ein!', mtError,[mbOK], 0)
else
try
DM.ADOSHaupt.Post; //DM.ADOSHaupt.Refresh;
except
on
exception do
MessageDlg('Keinen Wert zum speichern gefunden oder der Datensatz wurde bereits gespeichert!',
mtWarning,[mbOk],0);
end
end;
So sieht der Code zur Zeit aus.
Hast du da einen besseren vorschlag?