Discussion :

[Puffcash]

Salut,

Je voudrais que dans tous mes formulaires, lorsque je remplis un champ, l'étiquette devant celui-ci change de couleur. J'ai écrit le code pour un champ :

Code :

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

1
2
3
4
5
6
7
Private Sub Champ_BeforeUpdate(Cancel As Integer)
If IsNull(Champ) = True Then
Étiquette128.ForeColor = RGB(0, 0, 0)
Else
Étiquette128.ForeColor = RGB(25, 160, 240)
End If
End Sub

Ca marche, mais le probleme c'est que j'ai au moins 300 champs en comptant tous mes formulaires. Je ne veux pas taper ce code pour tous mes champs...

Est-ce qu'il y un solution pour rendre général ce code ?

Merci

[cafeine]

Hello,

les please help dans les titres sont interdits.

Merci

[argyronet]

Bonjour,

Tu as une solution ici...

Argy

[Puffcash]

Salut Argy,
Merci pour ta réponse

Je comprend pas tout à ton code, mais j'immagine que je dois taper au moins ça pour chaque textebox, non ?

Code :

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

1
2
3
Private Sub MyTextBox_BeforeUpdate(Cancel As Integer)
  Call ChangeColorCaption(MyTextBox, RGB(25, 160, 240))
End Sub

Merci

[cafeine]

Hello,

c'est possible, il faut faire une fonction générique, qui sera affectée lors du chargement du formulaire à chaque contrôle de type TextBox

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
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
Private Sub Form_Load()

Dim ctl As Control

For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        ctl.BeforeUpdate = "=TrackControl(""" & ctl.Name & """)"
    End If
Next ctl

Set ctl = Nothing

End Sub


Private Function TrackControl(ByVal ctlName As String)

Dim ctl As Control

For Each ctl In Me.Controls
    ' on utilise la propriété Parent pour trouver l'étiquette liée
    '  au contrôle en question
    ' on peut aussi utiliser
    '  Me.Controls(ctlName).Controls.Item(0).ControlName
    If ctl.ControlType = acLabel And ctl.Parent.Name = ctlName Then
        If IsNull(Me.Controls(ctlName)) = True Then
            ctl.ForeColor = RGB(0, 0, 0)
        Else
            ctl.ForeColor = RGB(25, 160, 240)
        End If
    End If
Next ctl

Set ctl = Nothing


End Function

[Puffcash]

Merci caféine,

Ton code est parfait, c'est exactement ce que je voulais. J'aimerais bien comprendre ton code, mais c'est un peu compliqué pour moi, alors je me suis contenté de copier/coller


encore merci

bye

[argyronet]

Wouahh, c'est beau Cafeine mais ta solution reste effective même sur le changement de l'enregistrement...

D'ailleurs la solution que je propose aussi.

Puffcash, il faudra que tu prévoies le fait de passer à l'enregistrement suivant ou précédent autant que l'annulation du changement en cours...

Argy

[cafeine]

On doit pouvoir s'en sortir avec un truc du genre :

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
17
Private Sub Form_Current()

Dim ctl As Control

For Each ctl In Me.Controls
    If ctl.ControlType = acTextBox Then
        If IsNull(ctl.Value) Or Len(ctl.Value) = 0 Then
            Me.Controls(ctl.Controls.Item(0).ControlName).ForeColor = RGB(0, 0, 0)
        Else
            Me.Controls(ctl.Controls.Item(0).ControlName).ForeColor = RGB(25, 160, 240)
        End If
    End If
Next ctl

Set ctl = Nothing

End Sub

[Puffcash]

Salut,

Ca marche nickel pour les "champs libres" mais que faut-il ajouter dans le code pour que les étiquettes devant des listes modifiables ou des cases à cocher soit concernéés ?

merci

[Tofalu]

Et la mise en forme conditionnelle ?

ça n'irait pas ?

Quant au titre ... merci d'en mettre un plus précis !

[Puffcash]

salut,

La mise en forme conditionelle ? ça à l'air bien.... mais comment on fait ça ?
Ca réglerait mon probleme des listes modifiables et les cases cocher?


Merci,


PS : je voudrais bien changer le titre, mais je sais pas comment faire ...

[argyronet]

Re,

1/ Tu as un tuto édité par Tofalu à ce sujet
2/ Tu cliques sur Editer de ton 1er post et tu changes le titre. (merci)

Argy