[MS Access] waarschuwing weergeven bij deadline

[Verwijderd]

Ik weet niet of ik hier ook dingen kan plaatsen over Access, maar ik wist zogauw geen ander Forum.

Ik ben bezig met een database te maken in Ms Access, Het moet een to do list worden, Ik heb nu één tabel:

name: todolist
row 1: id, autonummering, sleutel
row 2: todo, memo
row 3: deadline, datum (lange datumnotatie)
row 4: gedaan, ja/nee

Ik heb er ook enkele formulieren, een schakelbord en enkele rapporten bijgemaakt, maar nu wil ik het volgende:
Ik wil graag dat als je de db opent en de datum van vandaag komt overeen met een van de data in de lijst (waarbij gedaan=false) er een waarschuwingsvenstertje verschijnt dat er een deadline afloopt die dag.

Ik ben zelf al bezig geweest met modules en met macros maar ik kom er maar niet uit; ik hoop dat iemand mij hier kan helpen...

[Verwijderd]

'Lentini 2003
'Deze code kopieren in een formulier ZONDER objecten. met de naam CHECK
'Zorg ervoor dat de bron van het formulier is: de tabel TODOLIST
'klik op Tools --> Startup
'Kies het formulier CHECK dat hij bij opstarten moet openen

Private Sub Form_Load() 'alles in deze sub gebeurt bij het laden van het formulier

DoCmd.GoToRecord , , acFirst 'gaat naar het eerste record

Do While [deadline] <> 0 'alles tot de LOOP gebeurt totdat deadline = 0 d.w.z. zeggen dat je bij het laatste record bent
If [deadline] = Date And [gedaan] = False Then 'de voorwaarde die je zelf al stelde
MsgBox (todo) 'geef het To Do weer
End If

DoCmd.GoToRecord , , acNext 'Ga een record verder

Loop

DoCmd.Close 'Sluit het formulier
End Sub

Sorry deze laatste versie werkt wel!

[ Voor 22% gewijzigd door Verwijderd op 04-01-2003 18:48 ]

[D2k]

scriptrequests horen niet @got
bekijk de faq maar eens