Pb de procédure évenementielle après MAJ

Bonjour,
Voila j'ai un nouveau problème qui est le suivant :
Après remplissage d'un champs, j'aimerai creer une procédure évenementielle (donc après mise à jour).
J'epxlique le principe :
J'ai 4 champs :
- heure départ
- heure arrivée
- temps sur chantier
- heures supp

Quand je soustrais l'heure de départ à l'heure d'arrivée, c'est niquel, la valeur se stocke dans temps sur place.
Après j'aimerai faire en sorte que temps sur place - 4h me donne le nombre d'heures supp et qu'il n'accepte pas les valeurs inférieur à 0.

J'ai donc tapper le bout de code suivant dans après mise à jour de temps sur chantier qui ne marche pas :

Const forfait As Date = #4:00:00 AM#

If tps_sur_chantier > forfait Then
Me.heures_supp.Value = Me.tps_sur_chantier - forfait
Else
msg = "Pas d'heure supplémentaires !"
retour = MsgBox(msg, vbOKOnly, "Facturation Transport")
DoCmd.GoToControl "tps_sur_chantier"
End If

Quelqu'un pourrait-il m'aider?
Merci