Re^5: ACCESS97 Timer-Funktion

Hallo Martin,
ich bin ein Grennhorn und Dein Ratschlag
ist für mich nicht ganz verständlich.
Worauf ich hinaus will, ist: Innerhalb von Access ist die Aufgabe relativ unkompliziert zu lösen (siehe Antwort von R. Kraasch unten). Die Timer schlagen aber nur zu, wenn die Access-Anwendung läuft, das heißt pausenlos. Das ist aber oft nicht erwünscht.

Al Lösung bietet sich an, den at-Befehl zu verwenden, z.B.:
at 22:00 /every:Mo,Di,Mi,Do,Fr,Sa,So D:\APPS\MSOFFICE\Office\MSACCESS.EXE MeineDB.MDB /C PruefeZeit
(Startet jeden Tag um 22:00 Uhr Access mit der Datei MeineDB.MDB und teilt ihr mit, daß Du die Zeit prüfen willst).

Den at-Befehl gibt es nur unter NT (evtl. auch unter Win98? Kenne ich nicht); unter Win95 gibt es den sog. Systemdienst, der das gleiche erledigt und mit einer grafischen Oberfläche aufwarten kann.

Das ist nur die halbe Arbeit. Die zweite Hälfte mußt Du in der MDB erledigen. Beim Starten mußt Du nämlich überprüfen, ob Deine Aktionen gestartet werden sollen:
Im Autoexec-Makro shreibst Du:
AusführenCode
Funktionsname:
PruefeZeit()

Die Funktion PruefeZeit sieht so aus, daß Du das Runcommand überprüfst; ist es genau gleich "PruefeZeit", dann führst Du aus, was Du willst, und beendest Access; wenn nicht, dann ist es ein "normaler" Start, und Du öffnest Dein Startformular.

Ich meinerseits würde die voreingestellte Zeit in eine Tabelle ablegen, um sie dann jeweils herauszuholen:

Public Function PruefeZeit()
Dim VoreingestellteZeit as Date
VoreingestellteZeit = DLookup("Zeit", "SetupTabelle")
if Command() = "PruefeZeit" then
if Now > VoreingestellteZeit then
Tue_was()
end if
Docmd.Quit
else
DoCmd.OpenForm "MeinStartFormular"
end if

In diesem Formular befinden sich dann die von Reinhard beschriebenen Dinge.

Ich hoffe, das war ausführlich genug (und nicht zu lang)

Gruß
J.