Hm also ich wollte das jetzt eigentlich so wie Stargate3 lösen mit dem Edit-Feld , ist für mein Problem eigentlich das günstigste...
Ich dachte mir ich packe das in den Code an die Stelle , kurz vor dem Übernehmen der Daten... also in das BeforePost-Ereignis , richtig? Wenn nein , korrigiert mich.
In meinem Programm gibt es also die hier relevanten Komponenten :
TDBEdit , TTable , (Speicherbutton)
Naja das sieht dann bei mir so aus :
Code:
procedure Tfm_Main.tblKuDaBeforePost(DataSet: TDataSet);
var AlterIndex:String;
begin
AlterIndex:=tblKuDa.IndexName;
tblKuDa.IndexName:='KUNKZ'; //Kundenkürzel
{ if tblKuDa.Locate('KUNKZ', VarArrayOf([DBEd_KunKz.EditText]), [loCaseInSensitive])= true } //ich machs besser mit Findkey..
if tblKuDa.FindKey([DBEd_KunKz.EditText] )=true then
begin ShowMessage(DBED_KunKz.EditText + 'GIBTS SCHON!!');
DBEd_KunKz.SetFocus;
end;
tblKuDa.IndexName:=AlterIndex;
end;
... Aber ich kriege da immer die Meldung
Exception : Stack Overflow.. hm
kann mir da nochmal nen Tipp geben woran es liegen könnte?
Denn die Dinge , die wir erst lernen müssen , bevor wir sie tun , lernen wir beim Tun. - Aristoteles