Discussion :

[mohamed9]

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

[GillesDeVuif]

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.

[Invité]

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