Bonjour

J'ai essyer d'inserer sous Access 2003 le code VBA suivant mais je n'arrive pas.
SVP quelles sont les étapes à suivre sous Access pour inserer le code suivant?
et Merci

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
Public Function DateExpirationApplication()
If Date >= DateSerial(2003, 12, 31) Then
MsgBox "La date d'expiration de l'application est dépassée", vbExclamation
DoCmd.Quit
End If
End Function