Errinerungsfenster in Access
abend miteinander,
ich habe nie programmieren gelernt und genau das ist mir jetzt auf den kopf gefallen: ich muss in meiner kleinen access datenbank ein errinerungsfenster einbauen.
Also folgende ausgangslage: Es gibt eine tabelle mit daten (name, datum,...) und ein formular, das auf diese tabelle zugreift und das ganze übersichtlich anzeigt. Das wars, eine ganz kleine und simple datenbank.
Nun soll bei jedem start der datenbank in der tabelle alle Felder in der spalte DATUM überprüft werden und 3 oder weniger tage davor ein fenster aufspringen, in dem dann steht "DER AUFTRAG [NAME] BEGINNT AM [DATUM]. Ich habe da einen codeschnippsel, der allerdings nicht funktioniert, vll könnt ihr mir sagen warum und was ich daran an die gegebenheit meiner DB anpassen muss damit es geht:
Sub Form_Open(Cancel as Integer)
If Dcount ("*","tblTabelle";"[Datum] >=" & Dateadd("d",-3,Date)) >0 then
Msgbox "Erinnerung"
End If
End Sub
Und wie passe ich das fenster das dann aufspringt wie oben beschrieben an?
Ich weiss das eine ziemlich einfache aufgabe, aber da das das erste und wahrscheinlich einzige mal ist dass ich mit access arbeite, sonst würde ich mich selbst ins thema einarbeiten. Danke im Voraus
ich habe nie programmieren gelernt und genau das ist mir jetzt auf den kopf gefallen: ich muss in meiner kleinen access datenbank ein errinerungsfenster einbauen.
Also folgende ausgangslage: Es gibt eine tabelle mit daten (name, datum,...) und ein formular, das auf diese tabelle zugreift und das ganze übersichtlich anzeigt. Das wars, eine ganz kleine und simple datenbank.
Nun soll bei jedem start der datenbank in der tabelle alle Felder in der spalte DATUM überprüft werden und 3 oder weniger tage davor ein fenster aufspringen, in dem dann steht "DER AUFTRAG [NAME] BEGINNT AM [DATUM]. Ich habe da einen codeschnippsel, der allerdings nicht funktioniert, vll könnt ihr mir sagen warum und was ich daran an die gegebenheit meiner DB anpassen muss damit es geht:
Sub Form_Open(Cancel as Integer)
If Dcount ("*","tblTabelle";"[Datum] >=" & Dateadd("d",-3,Date)) >0 then
Msgbox "Erinnerung"
End If
End Sub
Und wie passe ich das fenster das dann aufspringt wie oben beschrieben an?
Ich weiss das eine ziemlich einfache aufgabe, aber da das das erste und wahrscheinlich einzige mal ist dass ich mit access arbeite, sonst würde ich mich selbst ins thema einarbeiten. Danke im Voraus
Bitte markiere auch die Kommentare, die zur Lösung des Beitrags beigetragen haben
Content-ID: 26121
Url: https://administrator.de/contentid/26121
Ausgedruckt am: 22.11.2024 um 14:11 Uhr