Hi,
@phlux: Daran liegts nicht.
hier liegt der Hund begraben :
Code:
procedure Form1.Edit1Exit(Sender: TObject);
begin
IF Edit1.text <> '' THEN BEGIN
Edit1.Enabled := false;
Transaction.StartTransaction;
....
END
ELSE BEGIN
Edit1.Text := '';
Edit1.SetFocus;
END;
end;
So siehts jetzt aus. Ursache gefunden Patient noch tot.
Auch wenn ich ein leeres Edit - Feld nicht zulassen will, der Button muß eine Ausnahme bilden, er dient nämlich gerade zum Suchen, falls jemand die Nr. die in das Feld eingegeben werden soll nicht auswendig weiß. Im ButtonClick steht nur Form3.Show.
Gruß
Hansa