Etat et format de caractères et arrière-lan

Version imprimable

Bonjour,

J'ai créé un État dans Ms Access et j'ai un problème pour formater des renseignements.
Ma liste affiche les infos des employés. Pour chaque employé, j'ai un champ qui me dit s'il travaille dans le département administratif ou non.

Dans la programmation, je demande de vérifier ce champ. S'il est positif, mettre le texte en rouge et l'arrière-plan en jaune, si non, le texte en noir et fond blanc.

Au total j'ai 54 noms dont 5 en administration. Le tout trié par nom et prénom. Tout fonctionne bien. Ma liste affiche les 54 noms dans le bon ordre et avec les bonnes couleurs mais pour 1 personne sur les 5, le nom est en rouge mais reste avec le fond blanc. Les 5 personnes sont réparties sur 2 pages et ce problème survient toujours sur la 2e page. Sur la première page j'ai 3 noms qui sont en rouge et fond jaune et sur la 2e page, j'ai 2 noms en rouge dont 1 seul avec fond jaune alors qu'il devrait y en avoir 2 en rouge avec fond jaune. Pourquoi?
Code:

1 2 3 4 5 6 7 8 9 10 11 12 Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer) Dim stText As String If emAdmin.Value = True Then stText = emNomPre.Value Détail.BackColor = RGB(250, 250, 0) ' jaune emNomPre.ForeColor = RGB(250, 0, 0) 'rouge ElseIf emAdmin.Value = False Then Détail.BackColor = RGB(255, 255, 255) ' blanc emNomPre.ForeColor = RGB(0, 0, 0) ' noir End If ... end sub

Bonjour.

Avec les rapports, j'ai constaté qu'il valait mieux appeler le code sur l'événement OnFormat ET sur l'événement OnPrint.

Je fais habituellement une procédure du type :

Code:

1
2
3
4
5
6
7
8
9
10
11
12
private sub FormaterTexte()
      Dim stText As String
      If emAdmin.Value = True Then
            stText = emNomPre.Value
            Détail.BackColor = RGB(250, 250, 0) ' jaune
            emNomPre.ForeColor = RGB(250, 0, 0) 'rouge
      ElseIf emAdmin.Value = False Then
           Détail.BackColor = RGB(255, 255, 255) ' blanc
           emNomPre.ForeColor = RGB(0, 0, 0)  ' noir
      End If
      ...
end sub

puis je l'appelle

Code:

1
2
3
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    call FormaterTexte
end sub

Même chose pour OnPrint.

A+

11/10/2017, 16h14
marycaLou

Merci
J'ai modifié ma procédure.
Mais cela n'a rien changé et en plus je viens de voir que ma ligne sur la 2 page est plus large. Comme si un retour de chariot était ajouté à ceux qui sont en rouge.

J'ai même compacté ma base et rien n'a faire.

Un autre solution?
11/10/2017, 17h57
madefemere

Bonjour,
Vu le contexte et les conditions, une mise en forme conditionnelle serait plus simple et efficace je pense.
Cordialement.
11/10/2017, 22h07
marycaLou

J'ai trouvé. C'est que j'avais un fond de 2 couleurs en alternance et le nom qui restait en blanc était sur la 2e couleur. Il ne faut jamais oublié "AlternateBackColor":oops:

Merci