Logo GNT
Actualités Tests & Guides Bons Plans
GTA 6 iPhone 17 Copilot Switch 2 Temu ChatGPT Tesla
OVH Cloud OVH Cloud
Entraide Applications Microsoft Office Access déclenchement automatique

déclenchement automatique

3 réponses
Avatar
natou
Bonjour,
peut-on mettre un =E9vennement qui sur une date donn=E9e va=20
envoyer un message d'avertissement =E0 l'op=E9ratrice ? du=20
genre le 17 novembre sur ouverture d'access un message=20
pr=E9vient qu'il faut effectuer l'archivage des donn=E9es ???=20
=E0 moi ensuite de changer la date =E0 chaque fois qu'un=20
archivage s'av=E8rera n=E9cessaire ....
Merci
natou
Signaler un problème avec ce contenu

3 réponses

Supprimer
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
Avatar
Raymond
Bonjour.

il faut placer une date dans une table pour pouvoir la récupérer ( champ
Madate dans la table Matable par exemple).
dans la macro autoexec, exécuter la fonction Vérifdate().
dans un module créer la fonction Public:
Public function Vérifdate()
if format(date(),"yyyymmdd") => Format(DLookup("Madate", "Matable"),
"yyyymmdd") then
msgbox "date dépassée"
End Function

à modifier selon les besoins.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"natou" a écrit dans le message de
news:05a601c39c75$e301ab70$
Bonjour,
peut-on mettre un évennement qui sur une date donnée va
envoyer un message d'avertissement à l'opératrice ? du
genre le 17 novembre sur ouverture d'access un message
prévient qu'il faut effectuer l'archivage des données ???
à moi ensuite de changer la date à chaque fois qu'un
archivage s'avèrera nécessaire ....
Merci
natou
Avatar
Oui,

Il suffit de créer un form (Load) dans lequel un simple
test sera fait pour vérifier si oui ou non la date est
obtenu.

Genre: MyDate = La date désirée

Code anglais (désolé)

if MyDate = Now() then
inscrire les lignes de code nécessaires
end if

Je crois qu'en français le mot clé est
aujourdhui() au lieu de now.

Note: Le première instruction lue dans un formulaire est
toujours le FormLoad alors ... pour s'assurer que ce test
soit effectué lors de l'ouverture du programme ...
S'assurer d'avoir le bon form load

Stephane





-----Message d'origine-----
Bonjour,
peut-on mettre un évennement qui sur une date donnée va
envoyer un message d'avertissement à l'opératrice ? du
genre le 17 novembre sur ouverture d'access un message
prévient qu'il faut effectuer l'archivage des
données ???

à moi ensuite de changer la date à chaque fois qu'un
archivage s'avèrera nécessaire ....
Merci
natou
.



Avatar
natou
Merci ça fonctionne
natou
-----Message d'origine-----
Bonjour.

il faut placer une date dans une table pour pouvoir la
récupérer ( champ

Madate dans la table Matable par exemple).
dans la macro autoexec, exécuter la fonction Vérifdate().
dans un module créer la fonction Public:
Public function Vérifdate()
if format(date(),"yyyymmdd") => Format(DLookup
("Madate", "Matable"),

"yyyymmdd") then
msgbox "date dépassée"
End Function

à modifier selon les besoins.
--
@+
Raymond Access MVP.
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/charte.htm pour une meilleure
efficacité de tes interventions sur MPFA.


"natou" a écrit
dans le message de

news:05a601c39c75$e301ab70$
Bonjour,
peut-on mettre un évennement qui sur une date donnée va
envoyer un message d'avertissement à l'opératrice ? du
genre le 17 novembre sur ouverture d'access un message
prévient qu'il faut effectuer l'archivage des données ???
à moi ensuite de changer la date à chaque fois qu'un
archivage s'avèrera nécessaire ....
Merci
natou

.