Tricker inbouwen m.b.v. vba

[elagas]

Hallo allemaal,

Ik ben bezig met een database waar alle cursussen worden ingevoerd.
Nu wil ik er alleen een tricker inbouwen, dat 1 jaar na aanvang van deze cursus ik een melding krijg dat deze persoon op herhalingslessen moet.
Ik weet wel hoe ik dit moet inbouwen als ik op deze record sta, alleen nu wil ik het hebben dat ik de melding krijg als de database geopend wordt.

Bij voorbaat dank

 

[Wigi]

Excel? Access?

 

[elagas]

Excel? Access?

Sorry, dit is voor access

 

[Wigi]

Heb ik geen kaas van gegeten. Anderen wel, dus zullen zij jou wel verder helpen.

 

[elagas]

Heb ik geen kaas van gegeten. Anderen wel, dus zullen zij jou wel verder helpen.

In ieder geval bedankt

 

[elagas]

Opgelost

Ik heb het al opgelost, dit is de code die ik gebruikt heb:
Dim Datum1 As Date
Dim Datum2 As Date
Dim Datum3 As Date
Dim db As Database
Dim rs As Recordset
Set db = CurrentDb
Set rs = db.OpenRecordset("Personeel_Query")
On Error Resume Next
rs.MoveFirst
While Not rs.EOF
Dim Aantal As Integer
If rs("[DatumNieuweKeuring]").Value > Date - 60 And rs("[DatumNieuweKeuring]").Value < Date Then
Aantal = Aantal + 1
End If
rs.MoveNext
Wend
If Aantal = 0 Then
End If
If Aantal = 1 Then
MsgBox "Er moet " & Aantal & " persoon opnieuw gekeurd worden"
End If
If Aantal > 1 Then
MsgBox "Er moeten " & Aantal & " personen opnieuw gekeurd worden"
End If