High-Tech Santé Médecine Droit-Finances

Test

Sony Vaio NW21EF/S

Rechercher : dans
Par :

Mise en forme conditionnelle ACCESS 2003

Dernière réponse le 7 aoû 2009 à 20:23:11 Julie87, le 26 jui 2009 à 16:55:35 
 Signaler ce message aux modérateurs

Bonjour,
Je travaille sous access 2003 dans le but de créer une base de donnée pour répértorier les nettoyages d'un atelier. J'ai donc créer un formulaire qui contient : 1. les zones de l'atelier ;
2. les fréquences des nettoyages à réaliser pour chaque zone (en format texte);
3. un sous-formulaire dans lequel sont présent :
A. Une case a cocher quand le nettoyage de la zone a été fait,
B. Le nom de la personne qui l'a fait,
C. La date du nettoyage réalisé(format date).

J'aimerais savoir s'il est possible de créer une mise en forme particulière qui mettrait en avant la zone quand le nettoyage n'a pas été réalisé en corrélation avec la fréquence.

p.ex : le nom de la zone s'écrit en rouge quand on voit que la fréquence pour cette zone est de 1mois et la date saisie dépasse de plus de 1mois la précédente. le nom s'affiche en orange quand la date approche et en vert qu'en les nettoyages sont correctement réalisés. (une sorte d'alerte)

J'espère avoir été claire dans mon explication. Est-ce-que ce genre de mise en forme est possible à réaliser sous access, et comment dois-je m'y prendre.

Configuration: Windows XP Internet Explorer 8.0

Posez votre question Répondre

1

Julie87, le 27 jui 2009 à 14:55:37

Pas de réponse ?

   
Répondre à Julie87

2

Julie87, le 29 jui 2009 à 08:38:00

S'il vous plaît

   
Répondre à Julie87

3

Boloss, le 6 aoû 2009 à 12:35:08

La mise en forme conditionnelle n'est pas possible en mode feuille de données mais tu peux utiliser les propriétés de ton objet texte via du code VBA.

Billou(te).

   
Répondre à Boloss

4

moiced59, le 6 aoû 2009 à 12:46:36

Connais tu un peu le vba??

c possible de faire ce que tu dis

dans ton code tu ecris

si la date de lavage est superieur a la date +15j alors la couleur est orange

si la date de lavage est superieur a la date +30j alors la couleur est rouge

si tu veux un cou de main hesite pas

   
Répondre à moiced59

5

Julie87, le 7 aoû 2009 à 09:57:57

Je vous avoues avoir beaucoup de mal en vba, les codes je ne comprends rien, si vous pouvez m'aider je ne dirais pas non. Et donc enfait, si j'ai bien compris il faut mettre +15j de la précédente date ?? Est-ce-que cela vous embéterais de me donner un exemple de code vba à mettre? aprés je l'appliquerais et je vous dirais si j'ai réussi.

Merci beaucoup pour votre réponse, je commençais à désespérer.

   
Répondre à Julie87

6

moiced59, le 7 aoû 2009 à 18:05:31

Re

voila un bout de code pour que la couleur d 'ecriture se modifie si une valeur est verifie

If nom_salarie = "THOMas" Then
nom_salarie.ForeColor = vbBlue
Else
nom_salarie.ForeColor = vbBlack
End If

End Sub
'nom_salarie = nom de ton champ
'.forecolor = vbblack couleur du texte

a toi d adapter ca a ton formulaire si besoin hesite pas

pour toi ca donnerai :

if date de realisation > date de realisation +15 then

date de realisation.forecolor = vbred


voila hesite pas si tu ne comprend pas tout

   
Répondre à moiced59

7

moiced59, le 7 aoû 2009 à 18:23:01

Voila un exemple avec les dates


If Me.Texte2 >= (Me.Texte9 + 15) And Me.Texte2 <= (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbRed
Else
Me.Texte2.ForeColor = vbBlack
End If

If Me.Texte2 > Me.Texte9 + 30 Then
Me.Texte2.ForeColor = vbYellow
End If


texte2 = date du jour pour moi

et texte9

date de saisie

   
Répondre à moiced59

8

moiced59, le 7 aoû 2009 à 18:45:01

Le voici un peu ameliorer

If Me.Texte2 >= (Me.Texte9 + 15) And Me.Texte2 <= (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbRed
la c superieur a ta date +15 jours mais inferieur a la date +30

End If

If Me.Texte2 > (Me.Texte9 + 30) Then
Me.Texte2.ForeColor = vbYellow
End If

la c superieur a ta date + 30


If Me.Texte2 < (Me.Texte9 + 15) Then
Me.Texte2.ForeColor = vbGreen
End If
La c inferieur a ta date +15

voila voila c pas mal ca !!!!

   
Répondre à moiced59

9

 Julie87, le 7 aoû 2009 à 20:23:11

Ah super!! merci beaucoup beaucoup !!!!! :-)

   
Répondre à Julie87
Posez votre question Répondre
Ils ont besoin de votre aide