[access] Code général

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:

---

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

Hello,

les please help dans les titres sont interdits.

Merci

Bonjour,

Tu as une solution ici...

Argy

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:

---

1 2 3

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

---

Merci

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:

---

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

---

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

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

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

Code:

---

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

---

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

Et la mise en forme conditionnelle ?

ça n'irait pas ?

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

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 ...

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