Modification d'entrées en fonctions de la date (macro)

Bonjour,

Complètement débutant dans le domaine, je dois réaliser une base de données (pour un projet scolaire) dans la cadre d'un cours d'aide à la décision informatisé. J'aimerais que certaines entrées change de valeur en fonction de la date.

Par exemple, j'encode la date de sortie en DVD de certains films et j'aimerais qu'une fois que la date devienne inférieures à celle d'aujourd'hui, la valeur devienne "OUI" pour indiquer que le film est disponible en DVD.

J'ai essayé de réaliser une simple macro:

Sub modifdate()

If Forms![support]![support-1].Value <= Date Then

Forms![support]![support-1] = "oui"

End If

End Sub

==> Lorsque je tente de la compiler, Access affiche un message d'erreur. Il me semble qu'une capture d'écran sera plus explicite pour vous montrer le problème qu'un long texte ambigu.

https://drive.google.com/folderview?...28&usp=sharing

D'avance, merci

Vidom3

vidom3,

Je te vois référencer un formulaire Support dont je ne vois trace nulle part ?

JimBoLion

D'accord, je comprend. Comment puis-je indiquer la table à la place du formulaire alors? Je désire modifier la valeur dans la table. Est-ce possible?

vidom3

Par une requête de mise à jour tu peux faire ce que tu veux !

Seulement je ne vois nulle par la valeur à mettre à jour dans la table (donc créer ce champ je suppose), et valider l'update par une date référence sur un formulaire.

JimBoLion

En résumé, prenons la première entrée du champs "support-1" soit la date "12/06/2013" je voudrais que cette entrée devienne "oui" car la date en question est inférieur à la date d'aujourd'hui. Par contre, las date 25/06/2015 reste inchangée.

La donnée à mettre à jour dans mon cas serait donc support-1 alors?

vidom3

Aucun problème mais pour mettre à un champ à oui, faudrait-il qu'il existe dans la table ce champ Oui/non !
Regarde ta table sur le screen envoyé dans le #1

JimBoLion

Merci Beaucoup des conseils

vidom3,

En admettant que la valeur dans la table support s'appelle depose, ta requête devient donc ceci :

Code:

---

1 2	UPDATE Support SET Support.Depose = -1 WHERE (((Support.Support_1)<Date()));

---

JimBoLion