comment trouver la procedure Public Fonction sous VBA Access

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:

---

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

---

Bonjour.

Dans Access OBJETS/MODULES/NOUVEAU
(ou ALT + F11, Clic droit sur Modules, Insertion/Module )
Une fois dans l'éditeur, tu colles ton code dans le module ouvert (ou créé si tu es passé par ALT + F11 et la création)
Il ne reste plus qu'à appeler ta fonction là où c'est nécessaire en renseignant simplement son nom.

Cordialement.

Bonjour

En complément il faut créer une macro pour tester cela au démarrage, tout est là : http://access.developpez.com/faq/?page=General#autoexec.

Cependant quelqu'un qui connait Access pourra aller à l'encontre de cela en désactivant le démarrage de cette macro, il suffit d'ouvrir la base en maintenant la touche Shift enfoncée.

Philippe