Access 07 Formular öffnen bei erreichtem Datum

Hallo zusammen,
Folgendes Problem, Vorhaben.(Gegoogelt hab ich schon aber nix passendes gefunden)

Ich habe in einer DB eine Tabelle Namens „Aufgaben“, dort auch ein Feld „Fälligkeitsdatum“

Wenn das Fälligkeitsdatum größer soll bei Öffnung der DB eine Meldung erscheinen und bei klick auf OK ein Formular geöffnet werden.

In dieser Tabelle ist auch ein Feld Namens „Status“ und wenn dieser Status auf „Abgeschlossen“ steht soll ebenfalls nichts geschehen.

Habe versucht ein Makro zu erstellen breche mir aber die Finger und bekomme es nicht hin.
Ich hoffe Ihr könnt mir helfen.

Grüße Luni69

Hallo

Folgendes Problem, Vorhaben.(Gegoogelt hab ich schon aber nix
passendes gefunden)

Ich habe in einer DB eine Tabelle Namens „Aufgaben“, dort auch
ein Feld „Fälligkeitsdatum“

Wenn das Fälligkeitsdatum größer soll bei Öffnung
der DB eine Meldung erscheinen und bei klick auf OK ein
Formular geöffnet werden.

In dieser Tabelle ist auch ein Feld Namens „Status“ und wenn
dieser Status auf „Abgeschlossen“ steht soll ebenfalls nichts
geschehen.

Es fehlt hier die Angabe, nach welcher Datensatz in der Tabelle nun geprüft werden soll… ??

Habe versucht ein Makro zu erstellen breche mir aber die
Finger und bekomme es nicht hin.
Ich hoffe Ihr könnt mir helfen.

Denke schon… :wink:

erstell ein Makro namens „Autoecex“ mit der Methode „AusführenCode“

Dort gibst du als Funktion „CheckTermin()“ ein.

In einem Standardmodul erzeugst Du folgende Prozedur:

Public Function CheckTermin()

If Dlookup("Status","Aufgaben","ID = Date Then
If Msgbox ("Die Aufgabe ist fällig. Formular öffnen?",vbYesNo) =vbyes Then
Docmd.Openform "EinFormular"
End If

End Function

Vermutlich meinst Du aber etwas anderes:

Sobald in der Tabelle „Aufgaben“ Aufgaben vorhanden sind, deren Fälligkeitsdatum überschritten ist und deren Status nicht auf „abgeschlossen“ steht, zeige diese Aufgaben in einem Endlosform an.

(Zumindest wäre das für mich logischer in Bezug auf das Fälligkeitsdatum).

Solchen Vorgang könnte man ohne Code mit nur einer Abfrage und einem darauf basierenden Endlosformular erledigen:

Makro „Autoexec“ erstellen mit Methode „ÖffnenFormular“.

Dort als Formularname ein passend erstelltes Endlosform angeben.

Abfrage für das Endlosfrom:

Select * from Aufgaben where Status „abgeschlossen“ and Fälligkeitsdatum