OVH Cloud OVH Cloud

date limite

1 réponse
Avatar
bonjour, j'ai mis une date limite d'utilisation dans un formulaire, je
voudrais qu'à la date d'expiration une boite s'ouvre, et invite
l'utilisateur à entrer un mot de passe.
si celui -ci est bon le formulaire reste continuellement valide même dans
les prochaines ouvertures du formulaire.
merci de votre aide



Private Sub Form_Load()
TestMaxdate(120)
End Sub

1 réponse

Avatar
3stone
Salut,

| bonjour, j'ai mis une date limite d'utilisation dans un formulaire, je
| voudrais qu'à la date d'expiration une boite s'ouvre, et invite
| l'utilisateur à entrer un mot de passe.
| si celui -ci est bon le formulaire reste continuellement valide même dans
| les prochaines ouvertures du formulaire.
| merci de votre aide
|
| Private Sub Form_Load()
| TestMaxdate(120)
| End Sub


C'est sur ouverture du form que tu doit faire le test !
Si le test n'est pas ok, tu annulle!


Private Sub Form_Open(Cancel As Integer)
If TestMaxdate(120) then
cancel = True
end if
End Sub


Si ta fonction renvoie True lorsque le date est dépassée,
tu peux écrire plus simplement :

Cancel = TestMaxDate(120)


--
A+
Pierre (3stone) Access MVP
Perso: http://users.skynet.be/accesshome/
Conseils MPFA: http://users.skynet.be/mpfa/
Email : http://www.cerbermail.com/?Xfg61Z3IQw