[AC-2003] Couleur dans une requête pour un état [Résolu]

[marycaLou]

Bonjour,

J'ai une base de données qui a 2 champs appelés "Lot" et un autre "Disc". Ces champs peuvent être vide comme il peut y avoir des données variables.

Exemple:

Lot = 122, 154 Disc = ""
Lot = 100 Disc = "SR"
Lot = 100, 200, 154 Disc = "SR, EL"
Lot = "" Disc = "EL"
Lot = "" Disc = ""
etc

J'ai créé un état avec une requête qui crée un champs appelé "LotDisc" comprenant les 2 champs de ma table.

Ma question est que j'aimerais afficher dans mon état le nouveau champ "LotDisc" comme suit: si j'ai des infos dans le champ "Lot", j'aimerais qu'il soit écrit en rouge et le reste en noir.

Exemple:

Lot = 122, 154
Lot = 100 Disc = SR
Lot = 100, 200, 154 Disc = SR, EL
Disc = EL

etc

Est-ce que c'est possible? Si oui, comment faire

Merci

[Philippe JOCHMANS]

Bonjour

Il n'est pas possible d'avoir deux couleurs différentes dans une même zone de texte

Cependant il existe un contournement, c'est d'écrire toi même dans l'état

A partir de ce tuto : Apprendre à Ecrire et Dessiner dans les états Access

Il ne faut pas concaténer tes champs dans la requête, mais les mettre tel quel dans ton état et mettre leur propriété Visible à Faux, mais attention lorsque tu les rends invisibles, les lignes de détail se rétrécissent, mais un petit rectangle avec la couleur des lignes de la même que la zone détail pour conserver la hauteur.

Maintenant avec cet exemple suivant on écrit :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
 
   With Me
        .ScaleMode = 1
        .CurrentX = 1000
        .CurrentY = 5
        .ForeColor = vbRed
        If IsNull(Me.LeChamp1.Value) Then
        Else
            .Print Me.LeChamp1.Value
        End If
        .ForeColor = vbBlack
        If IsNull(Me.LeChamp2.Value) Then
        Else
            .Print Me.LeChamp2.Value
        End If
    End With
 
End Sub

Bien sûr à adapter et toutes les explications sont dans le tuto, voici un exemple bidon :






Philippe

[marycaLou]

Merci. Cela a très bien marché.