Discussion :

[DelPiero]

Bonjour,

Je souhaiterais mettre en place une zone de texte affichant l'heure à laquelle j'ai cliqué sur un bouton de commande (effectuant une importation)

Pour l'instant j'ai reussi à effectuer l'affichage de la date

Code :

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

Me.DateMAJ = Date

mais le probleme,c'est lorsque je ferme le formulaire,la date n'est pas sauvegardée

Merci de m'expliquer par quel moyen,je pourrais sauvegarder cette date, pour permettre de connaitre la date de mise à jour

[feasil]

Bonjour,
tu es vraiment débutant ou j'ai mal compris...

Il te suffit de créer une table T_MAJ dans laquelle tu as 2 champs :
--> MAJ_NUM
de type NuméroAuto qui soit ta clé primaire
--> MAJ_DATE
de type Date qui soit les dates de mise à jour

Et lorsque tu clique sur ton bouton, en plus de l'import, tu fait :

Code :

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

doCmd.RunSQL "INSERT INTO T_MAJ (MAJ_DATE) VALUES ('" & Date & "');"

Voilà, bon courage !

[DelPiero]

merci,je vois que t'a deja deviner mon niveau en access

Donc avec les lignes de codes que tu m'as envoyé, j'ai bien une table qui m'indiqué les jours où j'ai cliqué sur le bouton or moi,j'ai juste besoin de la derniere date pour l'affichage

Donc comment dois je faire pour uniquement conservé la derniere date de mise à jour et permettre son affichage à l'écran lors de la réouverture du formulaire ou du fichier access

Merci

[Kloun]

Code :

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

1
2
CurrentDB.execute "Delete * from T_MAJ", dbfailonerror
CurrentDB.execute "INSERT INTO T_MAJ (MAJ_DATE) VALUES (now())", dbfailonerror

Avec ça, tu n'auras qu'une seule ligne dans ta table.

[loufab]

Il faut peut-être avoir le champ DateMaj dans la table ? sinon il ne peut évidemment pas la conserver.

[DelPiero]

La dernière date est bien sauvegardé
mais l'affichage à l'écran sur un formulaire me pose probleme car lorsque je fais une mise à jour,il est marqué "supprimé" dans la zone de texte DateMAJ

[Kloun]

OK.
Vide ta table et ensuite:

Code :

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

CurrentDB.execute "Update T_MAJ set MAJ_DATE = now()", dbfailonerror