Problème sur Access - VBA - Formulaire

Question

Pour un formulaire Access je souhaite créer un code VBA me permettant de modifier le format (couleur du texte) d'un champ texte "A" en fonction d'un champ "Date". C'est à dire que je veux que le texte de "A" (affilié à une date xx/xx/xx) passe en rouge lorsque la date x dépasse d'une semaine la date du jour.

Comment puis-je faire?
Merci

thesmall · Answer

Salut ! 

je ne sais pas si c'est moi mais j'ai pas tout compris ce que tu m'as dit !

j'ai compris le principe mais pas tout

pourrais - tu m'expliquer un peu plus !

merci

Mathieu

yaya6 · Answer

Oui effectivement c pas tres clair....
J'ai créer un formulaires à partir d'une table. Dans cette table il y a le champ "A" et le champs "Date" (entre autres...). En fait je veux que lorsque ma date du jour dépasse d'une semaine la date du champs "Date" alors mon texte du champs "A" (corresponadnt avec la date du champs "Date") passe en rouge.
Bon je vois que c pas tres clair non-plus donc....
Exemple (avec date du jour = 23/10/2003):
champs       A                              Date
              jgjhgjhgh                      21/10/2003
              fggffg                          20/10/2003
                gfgfd                   15/10/2003
               dffdfs                   01/02/2000

Voilà en fait je veux ceci (j'espère que 15/10/2003 et 01/02/2000 apparaissent bien en rouge)
merci

yaya6 · Answer

oups ..... ça ne ressort pas comme je voulais....
Il faut voir une table....
-----A---------+---------Date
ffdsdsd ----------- 21/10/2003
fggffg------------- 20/10/2003
gfgfd --------------15/10/2003
dffdfs-------------- 01/02/2000

thesmall · Answer

Salut ! je comprends un peu mieux !

voilà le code que je te propose :

TheDate = date saisi dans le champs

jour_decale = DateDiff("j", Now, TheDate)

if jour_decale >=7 then

> mettre code pour couleur rouge

end if

voilà j'espère que ça peut t'aider 

mathieu

yaya6 · Answer

Salut en fait c'est justement le code pour couleur rouge que je n'arrive pas à faire...
Merci

Amaramax · Answer

salut

nom_du_controle.forecolor=vbred
a+

amaramarax

Problème sur Access - VBA - Formulaire

6 réponses

Discussions similaires