Discussion :

[coco13]

Bonjour
J'aimerai pouvoir mettre en evidence le changement de valeur d'un controle d un enregistrement a l autre dans un etat par exemple par un changement de couleur de fond
Par exemple :
dupont laurent vacataire
dupont laurent titulaire
Le changement entre les 2 est sur titulaire celui ci doit changer de couleur dans l'etat
Est ce possible ? merci
Bien sur les changements ne sont pas sur un controle en particulier

[thb74]

Voir avec la mise en forme conditionnelle selon test de valeur sur le champ qui t interresse
possibilite de 3 cas de figure (3 conditions maxi par champs)

c 'est le plus simple

Th

[coco13]

Merci pour ta reponse mais la mise en forme conditionnelle ne porte pas sur le'enregistrement precedent mais sur des valeurs fixes ou par rapport à un autre champ de l'enregistrement en cours
Ce n'est donc pas ce qu'il me faut

[Moha25fr]

Salut
regarde si tu peux faire créer un champs calculé et en fonction de ce champs tu affiches la couleur du résultat

A+

[coco13]

mon pb est de savoir comment faire reference à l'enregistrement precedent (celui qui s'inscrit avant dans l'etat)

[pgz]

Bonjour,

Tes enregistrements sont-ils triés? Si oui sur quel champ?

pgz

[coco13]

oui ils sont tries sur date, heure

[User]

Slt,

Ton champs Status (je l'appelle comme ça ..) peut prendre combien de valeurs différentes ("Titulaire", "Vacataire"...)


Je ne crois pas avoir compris ta demande, mais ne peux tu pas associer une couleur à chaque valeur différente pour ton champs Status, ex:

"Titulaire" -> Bleu
"Vacataire -> vert

etc...

peux tu préciser ta demande...


@+

[coco13]

J'ai ts les champs (ou presque) d'un enregistrement qui peuvent changer de valeur d'un ligne à l'autre : par exemple un poste de travail peut passer au gres de la carriere à n'importe quelle valeur :
vacataire, interimaire, bibliothecaire ............ ou rester le meme sur deux 3 enregistrement :
je veux pouvoir metter en evidence le changement de valeur

[Moha25fr]

salut

si tu veux détourner ce problème il faut essayer de créer une function

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 function changecouleur(leposte as string)
 
   select case le poste
       case "vacataire"
            changecouleur=1
       case "interimaire"
            changecouleur=2
       case "bibliothecaire "
           changecouleur=3
       case else
           changecouleur=4
   end select
 
end function

da

[Moha25fr]

pardon j'ai pas encore fini

cette function tu vas la mettre dans la source de ton etat
ouvre là avec une requête et tu l'ajoute comme champs calculé

ce champs tu vas le mettre dans l'état mais invisible
sur l'evénement au formatage tu fais des conditions sur ton champs en fonction ce champs invisible

pas facile d'expliquer tout ça
A+

[coco13]

non ce n'est pas possible le nombre et les valeurs ne sont pas definies

[pgz]

Bonjour,

Tu as 2 possibilités :
1.ajouter un champ à la requête, avce une fonction qui va en DAO comparer l'enregistrement en cours avec le précédent; puis traiter ce nouveau champ dans l'état pour un format conditionnel
2. Traiter directement dans l'état en utilisant les évènement sur formatage.

Je te propose cette deuxième méthode. Je considère ici que l'état a un en-tête et une section détail. S'il y a regroupement il faut travailler sur en-tête de groupe et détail. Je considère aussi que je surveille deux champs : champ1 et champ2. La méthode peut s'étendre à n champs, bien sûr. Dans le détail, le premier enregistrement est inscrit sur fond blanc. Le suivant sera gris si au moins un des deux champs est différent du précédent.

Voici le code

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
Dim varChamp1 As Variant, varChamp2 As Variant, BoolDétail As Boolean
 
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
BoolDétail = (Nz(Me.Champ1, "") = varChamp1) And (Nz(Me.Champ2, "") = varChamp2)
Me.Détail.BackColor = IIf(BoolDétail, 16777215, 12632256)
varChamp1 = Nz(Me.Champ1, "")
varChamp2 = Nz(Me.Champ2, "")
End Sub
 
Private Sub EntêteÉtat_Format(Cancel As Integer, FormatCount As Integer)
varChamp1 = Nz(DLookup("Champ1", "MaRequête"), "")
varChamp2 = Nz(DLookup("Champ2", "MaRequête"), "")
End Sub

Si tu vois l'idée, tu peux facilement adapter à ton contexte.

Bon courage,

pgz

[coco13]

Merci
Je suis en train de tester et de voir si je peux adapter
J'avais une autre idee mais je n'arrive pas a trouver comment creer en vba un nouveau controle (un textbox) sur un etat

[coco13]

Bonjour
je teste la solution mais j' ai une erreur sur le nz
BoolDétail = (Nz(Me.[Nom_usage], "") = varChamp1) And (Nz(Me.[Nom_naiss], "") = varChamp2)
expression sans parametre ?
merci

[pgz]

Bonjour,

je teste la solution mais j' ai une erreur sur le nz
BoolDétail = (Nz(Me.[Nom_usage], "") = varChamp1) And (Nz(Me.[Nom_naiss], "") = varChamp2)

J'imagine que tu as une erreur dans Me.Nom_usage ou Me.Nom_naiss.

Pour l'éviter sert toi de l'éditeur! Quand tu écris l'instruction, tape

Code :

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

Me.N

et choisis l'objet dans la liste proposée par l'éditeur!

Si tu as encore un pb, reviens ici. Bon courage,

pgz

[coco13]

Bonjour
Effectivement l'erreur vient de me.nom_usage
Mais meme avec l'editeur j'ai la meme erreur
J'ai teste un simple msgbox me.nom_usage et j'ai le meme probleme
Merci

[pgz]

Bonjour,

A ce stade, il vaudrait peut-être mieux que tu montres la base...

pgz

[coco13]

BONJOUR
Merci pour votre aide
j'ai finallement resolu le pb precedent
il reste maintenant un seul pb du au changement de page
la valeur du dernier enregistrement de la page n'est pas garde en memoire et donc il ne voit pas le changement de valeur
merci

[pgz]

Bonjour,

Essaie en utilisant le même code mais avec les évènements 'sur impression'.

Bon courage,

pgz