Discussion :

[justine91]

Bonjour,
Sur un état
Lors de l'affichage si le sexe = F
Je voudrais que le font de mes étiquettes apparaisse en rose
J'ai mis ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
Private Sub Report_Open(Cancel As Integer)
If Me.hSexe = "f" Then
    Me.Étiquette94.BackColor = 38
End If
End Sub

Mais ça ne marche pas.
Qu'est ce que je fais de mal ?
Merci
Justine

[paidge]

Bonjour,
Sans mauvais jeu de mot Justine, c'est juste () de la mise en forme conditionnelle Sélectionnes ton contrôle lorsque ton formulaire ou ton état est en mode création puis vas dans l'onglet Format ^^ Si tu as une version d'Access antérieure à 2007, Il y a ce tutoriel C'est notamment pour ce genre de détail que tu as la possibilité d'indiquer ta version d'Access lorsque tu crées un topic sur le forum.

[justine91]

Bonjour Paidge
Oui c'est ce que je voulais faire à la base mise en forme conditionnelle

Je travaille avec 2007
Et je peux faire une mise en forme conditionnelle que sur les variables
et quand je clique sur une étiquette, l'icone mise en forme conditionnelle se grise .

J'arrive pas à faire de mise en forme conditionnelle sur les étiquettes
Merci
Justineee

[paidge]

Bah t'as juste à remplacer tes étiquettes par des Textbox AU final ça revient au même...Tu mets le fond des Textbox en transparent, sans bordures (après ça dépends de l'apparence que tu veux leur donner). Puis dans leur propriétés, tu mets Activé = Non et Verrouillé = Oui

[justine91]

J'ai fais ce que tu m'as dis : j'ai mis un texbox, j'ai fais ma mise en forme conditionnelle dessus, j'ai mis activé = non
Par contre verrouillé = j'ai pas trouvé ça dans les propriété !
Alors quand j'ai testé, j'ai lancé mon état : ça m'a demandé d'entrer une valeur paramètre à cause de ce texbox que j'ai rajouté

[paidge]

Excuse-moi, j'avais pas vu que tu travaillais sur un état et non sur un formulaire.....
Ton textbox doit être indépendant (c'est-à-dire que sa propriété Source Contrôle doit être vide). Puis quand tu crées ta Mise en Forme Conditionnelle, Au lieu de Valeur du champ, tu mets Expression.

Ton expression doit être de la forme :
[nomDuChamps] = 'F'

nomDuChamps étant le nom du champs issu de la source de ton état (table ou requête).

[justine91]

Pas grave
J'ai testé ta méthode en mettant un textbox indépendant avec source de contrôle vide. Mais il y'a différent problème :
> Je ne peux pas écrire mon titre dedans sinon la source contrôle n'est plus vide ( j'ai tester de mettre une étiquette par dessus mais non ...)
> La mise en forme conditionnelle s'effectue seulement si je clique dessus ( c'est un état je voudrais que ça apparaisse dès l'ouverture)
Je pense que la meilleure méthode est un code mais je ne sais pas le faire
Merci de ton aide
Justine

[paidge]

Oh encore désolé mais je bosse carrément sur autre chose :p En fait dans Source Contrôle, il faut mettre ="LeTexteQueTuVeuxVoirApparaîtreDansEtiquette" sans oublier le "=" et les guillemets

[justine91]

Merci Paidge de me donner un peu de ton temps, c'est gentil
Donc maintenant avec le ="blablabla" c'est bon
Mais j'ai toujours le problème que lorsque je lance mon état : la mise en forme conditionnelle s'effectue seulement si je clique dessus alors que je voudrais qu'elle s'effectue à l'ouverture de l'état sans cliquer dessus.
En tout cas merci
Si quelqu'un a une idée je suis preneuse
Merci merci
Justine

[madefemere]

Bonsoir Justine,

Mets le code que t'as posté initialement sur l'évènement Au Formatage de la section détail de ton état

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
If Me.hSexe = "f" Then
    Me.Étiquette94.BackColor = 38
End If
 
End Sub

Bonne continuation

[justine91]

Bonsoir madefemere
donc j'ai bien mis le code au format
Mais est ce normal que ça apparaisse toujours en noir ?
Je test plein de numéro et c'est toujours noir
J'ai essayé des valeurs aussi du genre #CF7B79 (mais c'est pas possible)
Comment faire pour qu'il accepte ces valeurs
Je cherche un lien sur le net qui me donne toutes les couleurs avec leur numéro mais je ne trouve pas
Mais si ça me met tout en noir euhhhh je sais pas

Justine

[paidge]

Bonjour Justine et madefemere,
Il me semblait aussi que sur l'évènement Détail_Format, ça pouvait marcher mais j'ai testé hier sans résultat et je viens de réessayer et ça ne marche toujours pas. La solution que je t'ai donnée hier, par contre, fonctionne. Je viens de réessayer La couleur se met bien à l'ouverture de mon état de test. Donc y'a un truk qui va pas chez toi. Je peux voir ta base vite fait ? Sinon pour coder les couleurs, personnellement, j'opte souvent pour la fonction RGB(X, Y, Z) où X, Y et Z sont compris entre 0 et 255 et X est la composante Rouge, Y la composante verte et Z la composante Bleue. Sinon, il y a les constantes vbBlack, vbRed, vbGreen, vbYellow, vbBlue, vbMagenta, vbCyan, vbWhite. Mais nous n'en aurons pas besoin pour la MFC

Donc résumons, au lieu des étiquettes, il faut mettre des textbox afin d'y appliquer une MFC avec la propriété Source Contrôle à ="monTitre"
On sélectionne la textbox sur laquelle on veut appliquer une MFC.
Dans l'onglet Format, il faut cliquer sur Mise En Forme Conditionnelle, Puis Nouvelle Règle.
Au lieu de Valeur du champ, on met Expression avec une expression du type [monChamp]="maValeurTexte"
On choisit le format qu'on veut si l'expression est vraie.

Chez moi, ça marche direct sous Access 2010

[justine91]

Bonjour paidge

En effet je viens de tester sur 2010 est ça marche direct, mais sur 2007 impossible
Bon c'est pas grave, je pense que c'est pas possible sous 2007 alors j'abandonne
Merci
Justine

[madefemere]

Bonjour Justine et Paidge,

Je ne crois pas au fait que ça ait un rapport avec la version d'Access.

Justine, j'ai re-vérifier le code sous Détail_Format et il me semble qu'il manque quelque chose. Il faut définir les cas où hSexe est différent de "f".
Essaies ce code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
If Me.hSexe = "f" Then
    Me.Étiquette94.BackColor = vbRed
Else
    Me.Étiquette94.BackColor = vbGreen
End If
 
End Sub

@ JUSTINE: On ne sait plus lesquelles de tes discussions sont résolues. Marque-les pour faciliter les recherches similaires des autres.

[justine91]

madefemere merci beaucoup ça marche
Oui je sais j'ai pleins de discussion non résolu
Mais je met résolu à chaque fois que c'est résolu
Et si j'ai pas mis encore résolu c'est que j'ai pas encore testé ( c'est que je fais pleins de chose en même temps, pleins d'idée me vienne et je veux tout faire d'un coup, je sais je suis un peu brouillon)
Mais je vais travailler toute la journée donc je vais pouvoir normalement résoudre tout mes messages aujourd'hui
Désoler je sais,je suis un chuiya encombrante
Sinon je veux juste vous dire un grand merci pour toute l'aide que je trouve sur ce site
Justine