Ajouter une date incrémentée de 7 jours ou 1 mois dans une même table [Résolu]

[Nitromard]

Bonjour à tous,

J'ai une table avec un certains nombres de champs.
J'ai un champs Last_Date dans laquelle j'ai une date.
J'ai un autre champs dans lequel j'ai Frequency : D, W ou M.
Et j'ai un 3ème champs Next_Date que je voudrais alimenter grâce au champs Last_Date.

Je m'explique :
Lorsque dans une ligne j'ai une Last_Date avec Frequency D ou W, j'aimerais stocker dans Next_Date la date de Last_Date +7 jours.
Et lorsque j'ai M en Frequency j'aimerais mettre dans Next_date : la date de Last_Date + 1 mois.
(il peut y avoir des champs vide dans Last_Date)

Est-ce que quelqu'un aurait un indice ou un bout de code pour manipuler ces éléments en VBA? (ou une partie en VBA qui me permettrait de lancer peut être une requête, je ne sais pas non plus comment faire la requête...)

(j'ai déjà ce code qui me permet d'actualiser mon champs Last_date)

Code :

1
2
3
4
5
6
Sub Last_Date_Computation()
Dim Last_Date_Computation As String
 
CurrentDb.Execute "Last_Date_Computation", dbFailOnError
 
End Sub

Avec cette requête :

Code :

UPDATE LOV_FUND SET Last_Comp_Date = Dmax("DATE","SRRI_HISTORY","SC_ID=" & SC_ID);

Merci d'avance pour votre aide.

[Nitromard]

J'ai trouvé ceci :
ADD_MONTHS(Date,n) et date(days(Date)+n).

Est-ce que je peux mettre ceci comme cela ?:

Code :

1
2
3
UPDATE LOV_FUND
SET Next_Comp_Date = ADD_MONTHS(Last_Comp_Date, 1)
SET Next_Comp_Date = date(days(Last_Comp_Date)+7)

En ajoutant des conditions where quelque part pour Frequency = D or W.
Et Frequency = M ???

[f-leb]

Tant que c’est chaud…

Puisqu’il faut mettre à jour une table selon deux conditions, pourquoi ne pas faire deux requêtes UPDATE :

Code sql :

1
2
3
UPDATE LaTable
SET Next_Date=DateAdd("d",7,Last_Date)
WHERE Frequency IN ("D", "W");

Code sql :

1
2
3
UPDATE LaTable
SET Next_Date=DateAdd("m",1,Last_Date)
WHERE Frequency = "M";

Maintenant que tu sais comment exécuter une requête en VBA…

[Nitromard]

Super !
Vraiment encore merci ^^!
Et bonne continuation à vous !

Cordialement,

Q.D.