Form Automatsch öffnen, wenn ein User es möchte!

[m-werk]

So sieht der Code beim Button Geburtsdatum aus:

Code:

procedure TKundendaten.GeburtsdatumClick(Sender: TObject); 
var i,r:Integer; 
begin 
  r:=DM.ADOSHaupt.RecNo; 
for i:=1 to DM.ADOSHaupt.RecordCount do begin 
  if (StrToDate(Copy(DM.ADOSHaupt.FieldByName('Geburtsdatum').AsString,0,6)+C opy(DateToStr(now+7),7,4))<=now+7) 
  and (StrToDate(Copy(DM.ADOSHaupt.FieldByName('Geburtsdatum').AsString,0,6)+C opy(DateToStr(now),7,4))>now) 
then begin 
  DM.ADOSHaupt.RecNo:=i; 
  DM.ADOSHaupt.Filtered:=true; 
  ExtraForm.Show; 
  Exit; 
end 
else DM.ADOSHaupt.RecNo:=r; 
end; 
end;