Discussion :

[yannick63]

Bonjour,

Je me permets de vous exposer mon problème car cela va faire maintenant 2 bonnes heures que je sèche...

En fait, la question est très simple mais je ne sais pas pourquoi, je galère.

J'aimerais à partir de la fonction date() d'un formulaire sous ACCESS que cette dernière alimente ma table sans que l'utilisateur n'ait besoin de la saisir. J'ai bien réussi à m'affranchir des histoires de format en mettant la fonction date() dans la valeur par défaut du champ "date" de ma table mais comment puis je utiliser ensuite le résultat de cette fonction dans un autre formulaire (qui a pour but de reprendre l'historique, donc les dates de création et de modification) en gardant la première date d'origine (autrement dit sans faire appel une nouvelle fois à la fonction date).


En fait, pour résumé j'aimerais obtenir pour exemple de résultat ceci :

date de création : 02/05/09
date de dernière modification : 06/11/09

sans que l'utilisateur n'ait à saisir une quelconque date, simplement en récupérant les valeurs de la fonction date() à la fermeture des formulaires de saisie d'une nouvelle fiche et de modification d'une fiche en cours.

Merci d'avance pour vos précieux conseils.

[Domi2]

Bonjour,

Access ne garde pas trace des dates de création ou modification d'enregistrements. Tu dois le prévoir toi-même.

Soit un champ "DateAjout" et un champ "DateModification". Ensuite, dans la procédure Avant MAJ de ton formulaire, tu places un peu de code :

Code :

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

1
2
3
4
5
6
7
8
'Vérifie s'il s'agit d'un nouvel enregistrement
If Me.NewRecord = True Then
    'Mise à jour du champ DateAjout
    MeDateAjout.Value = Now()
Else
    'Mise à jour du champ DateModification
    Me.DateModification.Value = Now()
End If

Domi2

[yannick63]

Merci beaucoup pour ta réponse Domi.

Je vais te sembler vraiment mauvais, mais si je comprends tout à fait la logique, ACCESS me déclare pourtant une erreur. Apparemment, il ne me reconnait pas les champs DateAjout et DateModification. Il me dit "membre de méthode ou de données introuvable".

Pourtant j'ai bien repris ton code dans l'avant MAJ de mon formulaire et j'ai bien évidemment créé les 2 champs dans ma table.

'Vérifie s'il s'agit d'un nouvel enregistrement
If Me.NewRecord = True Then
'Mise à jour du champ DateAjout
Me.DateAjout.Value = Now()
Else
'Mise à jour du champ DateModification
Me.DateModification.Value = Now()
End If

Si tu as une idée ???

Merci d'avance

[yannick63]

J'ai réussi merci.

J'avais pas mis les champs dans mon formulaire.

Encore merci.