Discussion :

[LUCAS-28]

Salut,

J'ai un souci avec un formulaire où j'ai mis 3 champs d'une table :

1er champ : Nom du client
2ème champ : N° de TVA
3ème champ : N° de client

C'est un formulaire continu et j'aimerais à chaque ligne que la couleur change : blanc puis gris clair

Comment faire avec la mise en forme conditionelle pour y arriver svp ? Merci

[francishop]

Bonjour,

Ajoute sur ton formulaire un champ baptisé-->txtOrdreColor-->Format Visible-->Non
Source contrôle-->=ColorOrdre()

Dans le module de ton formulaire :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
Private Function ColorOrdre() As Integer
 Dim rst As DAO.Recordset
 On Error GoTo ErrColorOrdre
 
    Set rst = Me.RecordsetClone
    With rst
        .Bookmark = Me.Bookmark
        ColorOrdre = .AbsolutePosition Mod 2 = 0
    End With
 
ErrColorOrdre:
End Function

Et sur les champs concernés par l'alternance de couleur :
Format--Mise en forme conditionnelle-->Condition 1
Expression-->[txtOrdreColor]=Vrai

Cordialement.

[bernardmichel]

Merci de ne pas oublier le tag lorsqu'un sujet est clos !

[isabelle b]

Bonsoir

j'essaie de mettre en place cette fonction mais cela ne fonctionne pas

ou dois je mettre la fonction ? Dans un module et l'appeler quelque part dans le formulaire

ca me plante carrément access quand je mets la fonction dans le code directement

merci

isabelle

[francishop]

Bonjour,

On a placé dans le module de notre formulaire la fonction ColorOrdre et sur ce même formulaire notre champ txtOrdreColor avec pour source-->=ColorOrdre()

On insère un champ qui fait toute la largeur de notre formulaire en arrière plan des autres champs.On lui donne une couleur de fond.
Et une mise en forme conditionnelle : Expression-->[txtOrdreColor]=Vrai (Avec une couleur de fond différente.)

Cette dernière solution nous évite de répéter sur tous les champs, qui ont un fond transparent, la mise en forme conditionnelle.

Pour la fonction-->Private indique qu'il s'agit du module du formulaire.

Cordialement.

Ps : Dans les références on a activé Microsoft DAO