[vbaaccess]verifier une date

salut,
j'ai un ptit peu chercher sur access concernant la date et message si erreur et j'ai trouvé un expl en usant l'aide access donc j'ai créer une table qui a comme attribut un cjamp date/heure et sur propriété du champ j'ai posé le cursseur sur message si erreur mais le message que j'ai tapper n'apparit pas avec l'erreur donc j'ai reposé le cursseur sur message si erreur et j'ai appuier sur F1 et là j'ai trouvé l'expl suivant :
L'exemple suivant fait appel à la fonction DéfValidTable qui définit une validation au niveau des enregistrements pour s'assurer que la valeur du champ Date fin vient après la valeur du champ Date début.

Dim chNomTable As String, chValideSi As String
Dim chMsgSiErr As String
Dim entX As Integer

chNomTable = "Employés"
chValideSi = "[Date fin]> [Date début]"
chMsgSiErr = "Entrez une Date fin postérieure à la Date début."
entX = DéfValidTable(chNomTable, chValideSi, chMsgSiErr)

Function DéfValidTable(chNomTable As String, _
chValideSi As String, chMsgSiErr As String) _
As Integer

Dim bds As Database, dft As TableDef

Set bds = CurrentDb
Set dft = bds.TableDefs(chNomTable)
dft.ValidationRule = chValideSi
dft.ValidationText = chMsgSiErr
End Function
à+.