Ajouter une année à une date

Comment ajouter une année à toutes les dates d’une table ? Une année, ou une période quelconque bien sûr.

Principe

Pour faire un peu plus clair : je dispose d’une table quelconque (dans mon cas : tbl Inscriptions), qui contient un champ de type Date/Heure (le champ : Date Arrivée).

Pour une raison quelconque, on souhaite augmenter d’une année toutes les lignes de cette table. En gros, toutes les dates d’arrivée doivent être augmentée de 1 an.

Solution par requête graphique

1. Commencez par prévoir une sauvegarde de votre base : si votre formule de mise à jour est incorrecte, vous n’aurez pas tout perdu !
2. Créez une nouvelle requête dans Access, requête basée sur la table à traiter.
3. Transformez cette requête en requête « Mise à jour », grâce à l’icône du même nom.
4. Placez le ou les champ(s) dates sur la grille de requête. Dans mon cas, le champ Date Arrivée.
5. Sous chaque champ concernée, définissez une formule de mise à jour comme ceci :
   AjDate("aaaa"; 1; [Date Arrivée])

6. Exécutez la requête grâce à l’icône Exécuter (le point d’exclamation rouge).

Solution VBA / SQL

Cette mise à jour peut être automatisée en VBA :

• soit en exécutant la requête précédente, si vous l’avez enregistrée ;
• soit en exécutant la requête en SQL, directement. Il faut dans ce cas penser à transformer le format à l’anglo-saxonne : « aaaa » devient « yyyy« , les points-virgules deviennent des virgules, et la fonction AjDate() devient DateAdd(). Ce qui donne :