Hallo Ralf,

Auf Datenbankebene im Reiter "Optionen" gibt es ein Feld "Nach dem Öffnen der Datenbank folgendes Skript ausführen".

Dort würde ich folgende Formel schreiben:
let myChoice:=select DEINETABELLE where date(year(Austritsdatum)+10,moth(Austritsdatum),day(Austritsdatum))<=today();
if dialog("Frist abgelaufen","Folgende Datensätze sind mehr als 10 Jahre alt:

"join(myChoice.(Name+ "Austritsdatum),"
"),["Engültig löschen","Später"])="Engültig löschen" then delete myChoice end

Hallo Ralf,

es sollte auch so sein. Merke dir oder schreibe die Tabellennamen auf und schreibe meine Formel darein

Leo

Hallo Ralf, da hatten sich kleine Tippfehler eingeschlichen. Versuch's mal so:

let myChoice := (select Mitgliederdatei where date(year(Austrittsdatum) + 10, month(Austrittsdatum), day(Austrittsdatum))<=today());
if dialog("Frist abgelaufen", "Folgende Datensätze sind mehr als 10 Jahre alt:
" + join(myChoice.(Name + ", " + Austrittsdatum), "
"), ["Endgültig löschen", "Später"]) = "Endgültig löschen" then delete myChoice end

@Der Copytexter,

Danke für die Korrektur. Ohne Ninox die Formel zu schreiben geht bei mir immer in die Hose.

@Ralf
Wenn du ei today() das Gleichzeichen weg machst, sollte dann gehen.

"<=today());"   --->>. "< today());"

Leo

Hallo Leo,

der Code funktioniert zwar super, aber der Dialog wird bei mir trotz "< today());" immer angezeigt sobald ich die DB öffne, auch, wenn kein Datensatz älter als 10 Jahre ist. Was könnte die Ursache/Lösung sein?

Markus

Hallo Markus, ich bin zwar nicht Leo, kann dir aber trotzdem einen Tipp geben. Man müsste eine Abfrage einbauen, ob überhaupt Datensätze gefunden wurden, die der Bedingung "älter als 10 Jahre" entsprechen:

let myChoice := (select Mitgliederdatei where date(year(Austrittsdatum) + 10, month(Austrittsdatum), day(Austrittsdatum)) < today());
if cnt(myChoice) > 0 then
   if dialog("Frist abgelaufen", "Folgende Datensätze sind mehr als 10 Jahre alt:
" + join(myChoice.(Name + ", " + Austrittsdatum), "
"), ["Endgültig löschen", "Später"]) = "Endgültig löschen" then
      delete myChoice
   end
end

Ich glaube, ich habe es selbst gelöst:
let myChoice := (select Kunden where date(year('letzte Änderung') + 10, month('letzte Änderung'), day('letzte Änderung')) <= today());
if myChoice != 0 then
if dialog("Frist abgelaufen", "Folgende Datensätze sind mehr als 10 Jahre alt:
" + join(myChoice.(Name + ", " + 'letzte Änderung'), "
"), ["Endgültig löschen", "Später"]) = "Endgültig löschen" then
delete myChoice
end
end

So klappts bei mir

Hallo planox, jetzt sehe ich es gerade, wir hatten wohl die gleiche Idee :) Danke!