Code vba access

Salut,

j'ai probléme dans mon code vba je ne sait pas d'ou ça viens, dés que je lance mon application, je rempli le champ et çe m'ouvre une fenetre avec écrit ' erreur d'execution 438
propriété ou méthode non gérer par cette objet'.

Voici le code correspondant:

Private Sub Nbr_jour_ouv_AfterUpdate()
nummois = Forms![F MAJ des informations]![Choix_mois]
var_hôtel = Forms![F MAJ des informations]![Liaison15].Formulaire![clé_hôtel]
var_année = Forms![F MAJ des informations]![Liaison15].Formulaire![Clé_année]

If IsNull(Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv]) = -1 Then
Forms![F MAJ des informations]![Liaison15].Formulaire![Taux_occup_rectif] = Null
Exit Sub
End If

date1 = CVDate("01 " & Str(nummois) & " " & Str(var_année))
date2 = DateAdd("m", 1, date1)
nbrjour = DateDiff("d", date1, date2)

If Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv] < 1 Or Forms![F MAJ des informations]![Liaison15].Formulaire![Nbr_jour_ouv] > nbrjour Then
MsgBox "Valeur incorrecte !!!", 16, "Attention"
SendKeys "{ESC}", False
End If

End Sub