[VBA] Date pour access

Bonjour,

Pour des mouvements sur ma base access, je souhaite insérer un attribut date qui donne la date et l'heure de mouvements (en fonction de la date système)
Pour cela, mon attribut fait référence à un code VBA:

Code:

---

1 2 3 4 5 6

Option Compare Database Dim résultat Public Function date_actuelle() résultat = Now date_actuelle = résultat End Function

---

Seulement, la date change automatiquement pour des mouvements antérieurs à mes nouveaux enregistrements dans la base.
Comment faire pour qu'il ne me modifie pas la date des enregistrements précédents, pourtant listés dans la même table que les nouveaux enregistrements?
Merci

Bonjour,

Pour tous ceux que ça peut aider, c'est finalement trouvé moi même la solution toute bête (il fallait juste y penser) qui modifie la date pour les changements ici sur un champ stock_actuel (ainsi, tous les enregistrements antérieurs gardent leur date de modification.

Code:

Code:

---

1 2 3 4 5 6 7

Option Compare Database Dim résultat As Date   Public Function date_actuelle(stock_actuel As Variant) As Date If IsNull(stock_actuel) = True Then résultat = Now date_actuelle = résultat End Function

---

Bonjour,

la solution que j'ai trouvé ne fonctionne pas complètement à la fermeture et la réouverture de la requête.
En effet, même si sur deux enregistrements successifs la date et l'heure sont bien différentes, à la réouverture, tous les enregistrements sont réinitialisés à la valeur de date et heure de la réouverture, alors que le champ (stock_actuel) est rempli (condition if non respectée). Comment éviter que la base les réinitialisent.
Merci de vos réponses.