hallo,

wäre klasse, wenn mir jemand bei folgendem problem und dessen lösung behilflich sein könnte :

ich soll mittels access eine datenbank aufbauen, in der bewerber erfaßt werden. u.a. soll erfaßt werden, wann der bewerber sich beworben hat (datum).

gibt es nun die möglichkeit, dem eingegebenen datum eine gültigkeit zu geben, d.h. daß das eingegebene datum mit dem aktuellem(!) datum verglichen werden kann, so daß z.b. 2 wochen nach eingang der bewerbung von access darauf hingewiesen wird, daß die bewerbung noch nicht bearbeitet wurde ??!

wie kann ich das hinkriegen, daß mit dem aktuellem tagesdatum verglichen wird ?

wenn da jemand eine lösung oder einen ansatz weiß, bitte hier posten !!!

ich wäre sehr dankbar für hinweise dafür !

gruß flori

das kannst du ganz einfach mit einem Recordset oder mit einer SQL Anweisung lösen. Was dir lieber ist.

Das Systemdatum liefert die Funktion Date in VB.

Mit einem Recordset sehe das dann so aus:

  

DayX = Date - 14

set rst = CurrenDb.OpenRecordset("Tabelle")

While Not rst.BOF And Not rst.EOF

    If rst![SpalteBewerbungsdatum] = DayX then

         ...

    End If

    rst.MoveNext

Wend

@naberius

deine funktion liefert dir den tag vom client zurück. dieses ist nicht immer vorteilhaft. ganz selten sind der client und der server auf ein und derselben maschine und viele netzwerke sind nicht mit einem dienst für die zeitsynchronisation ausgestattet.

besser wäre hier, den tag des dbms abzufragen und mit dem wert des feldes zu vergleichen.

um das ganze abzurunden und bei neuerfassungen etwas arbeit zu sparen, müsste dann das feld als defaultwert den aktuellen dbms-tag haben und nul nicht erlaubt sein.

gruss

Hi, Flori!

Nachdem auf den VBA-Code von Naberius kein "Äh?" kommt, weiß ich nicht, ob Du nicht schon selber auf folgende Idee gekommen bist:

Mit Sicherheit werden die Daten ausgegeben basierend auf einer Abfrage.

In eben dieser Abfrage kann Du Dir ein berechnetes Feld einrichten. Einfach im unteren Bereich der Abfrage (in der Entwurfsansicht) in ein leeres Feld der Zeile "Feld" klicken, und nun wird folgende Funktion eingegeben:

DeineFeldbezeichung: Wenn(ZuPruefendesDatum+14<Datum();"Noch nicht bearbeitet";"Bearbeitet")

Hoffe das hilft (noch).

Grüße

und viel Spaß noch

piomode1

SORRY, SORRY, SORRY!

An Naberius:

Mit dem "Äh?" beziehe ich mich nicht auf Deinen VBA-Code, sondern es sollte lediglich eine Mutmaßung über Floris Wissenstand angestellt werden!!!

Grüße

und viel Spaß noch

(ein im Moment sehr kleiner) piomode1

Sorry, daß ich mir derzeit bezüglich des Problems nicht melde.

Es ist so, daß das Projekt derzeit ruht. Habe mir aber die Lösungsansätze mal angeschaut und auch gesichert und komme dann bei Bedarf gerne nochmal drauf zurück.

Ich hoffe, ich habe bald wieder Zeit mich diesem Problem zu widmen.

Trotzdem danke für die Tipps !

gruß Flori