Showing A Message

Hello

I've got the folowing sitation:
Mainform "KlantvolgsysteemB"
It's based on a field "projectnummers".
On this main form there's an unbound text box "Bericht" (not visible)
Also on this main form there is a subform named "Subformulier ContactactiviteitenBM"

It's possible to fill in a date on the subform "Subformulier ContactactiviteitenBM". This date is named AttentieDatum (Date/time). There is also a field "Attentie" (Yes/No)

My issue:
When the field "AttentieDatum" is equal to the systemdate and "Attentie" is True the unbound text box "Bericht" should become visible.

I've got the following code:
On the action After Update from "AttentieDatum" from the subform "Subformulier ContactactiviteitenBM"

Private Sub Attentiedatum_AfterUpdate()
Dim JaarNu, JaarToen, MaandNu, MaandToen, DagNu, DagToen, Attentie, Bericht AS Integer
JaarToen = YEAR(Forms!ContactactviteitenBM!AttentieDatum)
MaandToen = MONTH (Forms!ContactactviteitenBM!AttentieDatum)
DagToen = DAY(Forms!ContactactviteitenBM!AttentieDatum)
JaarNu = YEAR(date())
MaandNu = MONTH(date())
DagNu = DAY(date())
Forms!KlantvolgsysteemB!Bericht = Bericht
End Sub

And on the action On Current from the mainform "KlantvolgsysteemB"

Private Sub Form_Current()
Dim JaarNu, JaarToen, MaandNu, MaandToen, DagNu, DagToen, Attentie, Bericht AS Integer
Forms!KlantvolgsysteemB!Bericht.Visible = False
If IsNull (Forms!ContactactviteitenBM!AttentieDatum) Then
Forms!KlantvolgsysteemB!Bericht = Null
Else
JaarToen = YEAR(Forms!ContactactviteitenBM!AttentieDatum)
MaandToen = MONTH (Forms!ContactactviteitenBM!AttentieDatum)
DagToen = DAY(Forms!ContactactviteitenBM!AttentieDatum)
JaarNu = YEAR(date())
MaandNu = MONTH(date())
DagNu = DAY(date())
Forms!KlantvolgsysteemB!Bericht = Bericht
IF Attentie = True AND JaarNu = JaarToen AND MaandNu = MaandToen AND DagNu = DagToen
Then Forms!KlantvolgsysteemB!Bericht.Visible = True
End If
End Sub


Can anybody help me?
Sorry for my English. I'm from holland :o