Je souhaiterais afficher un message d'avertissement " La=20
date d'expiration de votre version d'=E9valuation est le=20
15/09/2004 ......" =E0 l'ouverture de mon fichier access.
Ma version est ensuite v=E9rouill=E9e par le code=20
"If Date >=3D DateSerial(2003, 12, 31) Then
MsgBox "La date d'expiration de l'application est=20
d=E9pass=E9e", vbExclamation
DoCmd.Quit
End If
"
Merci pour votre aide
Cette action est irreversible, confirmez la suppression du commentaire ?
Signaler le commentaire
Veuillez sélectionner un problème
Nudité
Violence
Harcèlement
Fraude
Vente illégale
Discours haineux
Terrorisme
Autre
3stone
Salut,
"le godec" Je souhaiterais afficher un message d'avertissement " La date d'expiration de votre version d'évaluation est le 15/09/2004 ......" à l'ouverture de mon fichier access.
Ma version est ensuite vérouillée par le code "If Date >= DateSerial(2003, 12, 31) Then MsgBox "La date d'expiration de l'application est dépassée", vbExclamation DoCmd.Quit End If "
Ben... tu ajoute un simple (après le DoCmd-Quit)
Else MsgBox "La date d'expiration de votre blabla..." End if
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
Salut,
"le godec"
Je souhaiterais afficher un message d'avertissement " La
date d'expiration de votre version d'évaluation est le
15/09/2004 ......" à l'ouverture de mon fichier access.
Ma version est ensuite vérouillée par le code
"If Date >= DateSerial(2003, 12, 31) Then
MsgBox "La date d'expiration de l'application est
dépassée", vbExclamation
DoCmd.Quit
End If
"
Ben... tu ajoute un simple (après le DoCmd-Quit)
Else
MsgBox "La date d'expiration de votre blabla..."
End if
--
A+
Pierre (3stone) Access MVP
-----------------------------
http://users.skynet.be/mpfa
-----------------------------
"le godec" Je souhaiterais afficher un message d'avertissement " La date d'expiration de votre version d'évaluation est le 15/09/2004 ......" à l'ouverture de mon fichier access.
Ma version est ensuite vérouillée par le code "If Date >= DateSerial(2003, 12, 31) Then MsgBox "La date d'expiration de l'application est dépassée", vbExclamation DoCmd.Quit End If "
Ben... tu ajoute un simple (après le DoCmd-Quit)
Else MsgBox "La date d'expiration de votre blabla..." End if
-- A+ Pierre (3stone) Access MVP ----------------------------- http://users.skynet.be/mpfa -----------------------------
