Discussion :

[enzopeer]

Bonjour

Je chercher désespérément comment faire pour mettre dans un formulaire access 2003 la date de la dernière modification d'un des champs de ce formulaire.

Je ai fouillé dans le forum mais sans succès, j'ai trouvé ca

Comment obtenir la date de modification d'un formulaire ?

auteur : Tofalu
Pour exécuter ce code il faut activer la référence : Microsoft DAO 3.x Object Library

Code :

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

1
2
3
4
5
6
7
8
9
Public Function GetDateUpdatedForm(strFormName As String) As Date
Dim oDb As DAO.Database
Set oDb = CurrentDb
GetDateUpdatedForm = oDb.Containers("Forms").Documents(strFormName).LastUpdated
End Function
 
Sub test()
MsgBox GetDateUpdatedForm("Formulaire1")
End Sub

Mais ça ne fonctionne pas no plus


Encore merci d'avance de votre aide

[enzopeer]

Merci d'avoir mis en forme

Mais la date ne s'affiche pas.

Je procède comme ca : Je crée dans la table un champs DATE MAJ de type DATE/HEURE ensuite dans le formulaire je crée une zone de texte, je vais dans les propriété / onglet évènement / dans "si modification" générateur de code et dans la VB je colle le code ci dessus.

J'enregistre et je fais une modification du formulaire exemple le prénom et la date ne s'affiche pas dans le champs.

Je sais pas ce que je fais de faux???

Merci de ton aide

[Jean-Philippe André]

salut,
la date ne s'affiche pas ou bien n'est pas celle que tu attends ?
En faisant tourner ton code en ligne à ligne, regarde si les valeurs retournées te paraissent cohérentes.

[enzopeer]

salut,
la date ne s'affiche pas ou bien n'est pas celle que tu attends ?
En faisant tourner ton code en ligne à ligne, regarde si les valeurs retournées te paraissent cohérentes.

ca bloque sur

GetDateUpdatedForm = oDb.Containers("Forms").Documents(strFormName).LastUpdated

[Domi2]

Bonjour,

Code :

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

Pour exécuter ce code il faut activer la référence : Microsoft DAO 3.x Object Library

Il te manque probablement la référence à la librairie DAO.

Ceci étant dit, je me demande si tu ne fais pas fausse route.

Le code que tu veux utiliser te donnera la dernière date de modification du formulaire lui-même, soit la date à laquelle tu l'auras enregistré après modification pour la dernière.

Hors, il me semble plutôt que tu veux conserver la dernière date de modifcation de la donnée contenue dans un champ spécifique d'un enregistrement.

Peux-tu confirmer et au besoin donner quelques précisions supplémentaire.

Domi2

[enzopeer]

Voilà ce que souhaiterais faire :
1 : avoir un champs "Date mise à jour" dans une table "Client"

2 : dans un formulaire Client je trouve les infos des clients maintenant je souhaiterai pouvoir modifier un champs dans ce formulaire le champs "téléphone" par exemple et ce là que tous commence

3 : le champ "Date mise à jour" doit être compléter par la date du jour automatiquement et ci ce même champ et déjà complété par une date antérieur il devra la remplacer

Ceci me permettra de savoir ci le formulaire et a jour ou je dois demander une mise à jour de ce client

Voilà

[ilank]

Bonjour,

d'après ce que je comprends, il faut peut-être juste utiliser l'événement Avant MAJ du formulaire.

Exemple :
Propriétés du formulaire Onglet Evénements
Avant MAJ : Procédure événementielle
puis cliquer sur le bouton à droite de cette zone pour ouvrir l'éditeur de code.
et écrire

Code :

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

1
2
3
Private Sub Form_BeforeUpdate(Cancel As Integer)
 [date mise à jour] = Date()
End sub