Guten Abend,
hab folgendes Problem:
habe Edit1,Edi2,Edit3 und Edit4.
Edit1 ist eine Suchabfrage, wo ein Datum gefunden werden soll.Es wird mir permanent nur ein Datum angezeigt!!!(Der 11.11.11)
Erkennt meine Suchabfrage nur das Karnevalsdatum???
Bei Edit2,3 und 4 wird mir alles korrekt angezeigt.
Kennt sich jemand aus???
Bekomm `ne Kriese...
//ADOTable1 steht bei Edit Mask=!90.90.00;1;
Delphi-Quellcode:
procedure TForm22.SpeedButton1Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_ausgangsdatum',Form22.Edit1.Text,[loCaseInsensitive, loPartialKey]) then
if not Form11.ADOTable1.Locate('pa_ausgangsdatum',Form22.Edit1.Text,[loCaseInsensitive, loPartialKey]) then
showmessage('Leider kein Datensatz vorhanden.')
end;
procedure TForm22.SpeedButton2Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_betreff',Form22.Edit2.Text,[loCaseInsensitive, loPartialKey]) then
if not Form11.ADOTable1.Locate('pa_betreff',Form22.Edit2.Text,[loCaseInsensitive, loPartialKey]) then
showmessage('Leider kein Datensatz vorhanden.')
end;
procedure TForm22.SpeedButton3Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_name',Form22.Edit3.Text,[loCaseInsensitive, loPartialKey]) then
if not Form11.ADOTable1.Locate('pa_name',Form22.Edit3.Text,[loCaseInsensitive, loPartialKey]) then
showmessage('Leider kein Datensatz vorhanden.')
end;
procedure TForm22.SpeedButton4Click(Sender: TObject);
begin
if not Form11.ADOTable1.Locate('pa_firma',Form22.Edit4.Text,[loCaseInsensitive, loPartialKey]) then
if not Form11.ADOTable1.Locate('pa_firma',Form22.Edit4.Text,[loCaseInsensitive, loPartialKey]) then
showmessage('Leider kein Datensatz vorhanden.')
end;
end.