Discussion :

[Malick]

Bonjour,
j'ai créé une base de donnée access au format mde.
je voudrai maintenant savoir s'il est possible de définir une date à laquelle la base de donnée ne pourra plus être utilisée ( en d'autre terme, ça devra ressembler à une version d'évaluation).
Merci de votre aide.

[marot_r]

Une fonction simple à lancer au démarrage de l'application (Macro AutoExec ou formulaire)

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
public function ArrretSiExpiree()
   dim dateExpiration as date: dateExpiration=Dateserial(2014, 12, 31) 'Mettre la date que tu veux.
 
   if date()>dateExpiration  then
        msgbox "Vote version a expirée"
        docmd.quit
   end if
 
end function

Attention, ce n'est pas super robuste comme protection.

A+

[Malick]

Bonjour Marot,
merci pour ton aide; même si c'est pas super robuste comme tu le dis, je ve vais l'essayer pour voir.
A+

[Malick]

comment faire pour créer la macro auto exe?

[marot_r]

Il faut créer une macro dont le nom est "Autoexec".

Access va l'exécuter automatiquement à l'ouverture de la base sauf si tu appuis sur la touche [Shift] (Majuscule) au moment où tu lances l'applictaion.

A+

[Malick]

Bien noté. je vais essayer et te reviens.
Merci

[Malick]

Marot,
j'ai créé le code et la macro mais, pour que cela fonction, je suis obligé de cliquer sur le bouton exécuter de l'onglet "Visual Basic".
La macro ne s'éxécute pas à l'exécution de la base de donnée.
Ci joint la capture de ce que j'ai.

[marot_r]

As-tu bien appelée la fonction à partir de la macro ?

A+

[Malick]

ça doit être cela; je vais revoir la création pour celà.
Merci