Discussion :

[IphilG00d]

Bonjour à tous,

Voici un problème que peut-etre vous autres expert avez déjà résolu.
J'ai un formulaire en mode continu avec un champ "statu" et trois champ correspondant au code couleur RGB. Je desire changer la couleur de fond de ces champs dès la saisie ou la modification d'un de ces 3 champs couleurs. Le problème est que tous les champs sont colorié avec le dernier record lu:
Voici un print screen:

Et voici le code que j'utilise:

Code :

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

Me.STA_STE.BackColor = RGB(Nz(Me.[STE_RGB_R].Value, 0), Nz(Me.[STE_RGB_G].Value, 0), Nz(Me.[STE_RGB_B].Value, 0))

Mais quel que soit l'évènement utilisé, tous les records ont la même couleur...
Quelque chose m'échappe ...

Merci d'avance

[loufab]

Bonjour,

C'est le fonctionnement normal du mode continu.
On ne peut définir qu'un format par les moyens habituel.

Pour réaliser ce que tu veux faire il faut tricher et utiliser la Mise en forme conditionnelle.
Tricher en mettant un cadre en fond pour pouvoir y fixer la couleur.
Et utiliser la Mise en forme conditionnelle pour changer cette couleur suivant tes conditions.

Il y a un tuto sur la mise en forme conditionnelle.

Cordialement,

[IphilG00d]

Bonjour et merci d'avoir répondu à ma question,

Effectivement, je connais le formatage conditionnel mais les valeurs sont fixes et, à ma connaissance, ne pas pas être liées aux valeurs des champs du formulaire.
A moins que je me trompe.

[loufab]

Il n'y a pas d'autre méthode pour agir sur une seule ligne dans un formulaire continu.
Il y a un tuto sur la programmation VBA de la mise en forme. Peut-être que tu y trouvera une piste ?

[ClaudeLELOUP]

Bonjour vous deux,

Peut-être une idée à exploiter.
Dans une formulaire continu, il est possible d’afficher une image différente pour chaque ligne d’enregistrement.
Regarde ici : http://claudeleloup.developpez.com/t...plic-ploc/#LII
Dans ton cas les images pourraient être du style Kasimir Malevitch (carré blanc sur fond blanc, carré jaune sur fond jaune…) et choisies en fonction de la valeur du statut.

[IphilG00d]

Merci à vous deux pour vos réponses.
J'avoue ne pas savoir encore comment faire. La méthode de Claude est excellente pour des images. Mais les combinaisons RGB rendent la solution plutôt difficile à mettre en œuvre.
Je ne suis peut-être pas obligé d'utiliser le mode continu. Je vais encore me creuser la tête car j'ai vraiment besoin d'un choix de couleur ou d'une palette qui influence le fond de mes champs.

[ClaudeLELOUP]

Bonjour,

Si l'affichage du formulaire est « Mode simple », alors c'est tout facile : tu ajoutes, dans l'événement « Sur Activation », l'instruction que tu montres dans ton 1^er billet.

[ClaudeLELOUP]

Bonjour,

Ce n'est pas tout à fait ce que tu demandes, mais faute de mieux, ceci est peut-être acceptable :

Tout est ici Arkham46 : http://www.developpez.net/forums/d72...e/#post4201158

[IphilG00d]

Bonjour à tous et merci encore à claude pour ses propositions.

En fait cela fonctionne aussi en mode "Continuous Forms". Après avoir testé tous les évènements, l’éventement "On Paint" sur la partie Detail du formulaire fonctionne parfaitement.
Voici l'image et le le code correspondant:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Detail_Paint()
    Me.STE_STA.BackColor = RGB(Nz(Me.[STE_RGB_R].Value, 0), Nz(Me.[STE_RGB_G].Value, 0), Nz(Me.[STE_RGB_B].Value, 0))
    If Me.STE_FontCoul.Value = 1 Then
        'Noir
        Me.STE_STA.ForeColor = RGB(0, 0, 0)
    End If
    If Me.STE_FontCoul.Value = 2 Then
        'Blanc
        Me.STE_STA.ForeColor = RGB(255, 255, 255)
    End If
    If Me.STE_FontCoul.Value = 3 Then
        'Rouge
        Me.STE_STA.ForeColor = RGB(255, 0, 0)
    End If
End Sub

J'ai aussi bien entendu le même code sur les évènements "After Update" des champs pour rendre le fond dynamique.



Par contre, en essayant différentes choses, je me suis aperçu des limites d'Access. J'avais d'abord utilisé le code suivant pour la couleur du texte:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
Private Sub Detail_Paint()
    Me.STE_STA.BackColor = RGB(Nz(Me.[STE_RGB_R].Value, 0), Nz(Me.[STE_RGB_G].Value, 0), Nz(Me.[STE_RGB_B].Value, 0))
    Select Case Me.STE_FontCoul.Value
    Case 1
        'Noir
        Me.STE_STA.ForeColor = RGB(0, 0, 0)
    Case 2
        'Blanc
        Me.STE_STA.ForeColor = RGB(255, 255, 255)
    Case 3
        'Rouge
        Me.STE_STA.ForeColor = RGB(255, 0, 0)
    Case Else
        MsgBox ("Detail_Paint - STE_FontCoul: " & Me.STE_FontCoul.Value)
    End Select
End Sub

... que j'ai dû remplacer par des "IF" successifs car ça ne fonctionnait pas avec un select case ?!?...
Mais bon... le principal est le résultat.

Merci encore.

[ClaudeLELOUP]

Ça ne fonctionne apparemment qu'à partir d'Access 2010 : https://msdn.microsoft.com/en-us/lib.../ff836875.aspx

Test avec Access2000, le code compile, mais ne s'exécute pas au changement d'enregistrement.

Si je déclenche Sub Detail_Paint() manuellement, la modification s'applique à tous les enregistrements.

[IphilG00d]

Pour info, je suis en version 2010.

Cordialement