Discussion :

[jenniferIUP]

bonjour,

j'ai une case à cocher nommée "dépassement", elle se coche automatiquement lorsque la différence entre deux heures est supérieure à 1 néanmoins je souhaiterais en plus que lorsque qu'elle se coche l'étiquette jointe au bouton se mette en gras et en rouge!

Cela est possible, et si oui comment?

merci d'avance de votre aide

[LedZeppII]

Bonjour,

Est-ce dans une formulaire en continu ?

A+

[jenniferIUP]

bonjour,
non c'est dans un formulaire unique

[LedZeppII]

Mets ce code dans l'événement "Sur activation" du formulaire.

Code :

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

1
2
3
4
5
If Me.cbCaseAcoher = True Then
   Me.cbCaseAcoher.Controls(0).ForeColor = vbRed
Else
   Me.cbCaseAcoher.Controls(0).ForeColor = vbBlack
End If

cbCaseAcoher est le nom du contrôle case à cocher

cbCaseAcoher.Controls(0) est le premier contrôle associé au contrôle case à cocher.
En principe il s'agit de l'étiquette.

A+

[jenniferIUP]

merci dans un premier temps pour votre proposition mais quand je rentre votre code access n'est pas d'accord avec "controls"

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Activate()
If Me.depassement = True Then
   Me.depassement.Controls(0).ForeColor = vbRed
Else
   Me.depassement.Controls(0).ForeColor = vbBlack
End If
End Sub

[LedZeppII]

1. Est-ce que "depassement" est bien le nom du contrôle case à cocher ?
2. Est-ce que l'étiquette est bien "attachée" au contrôle case à cocher ?

Sinon, plus simple.
Regarder dans les propriétés de l'étiquette, quel est son nom.
Supposons que c'est lblDepassement.

Code :

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

1
2
3
4
5
6
7
8
9
Private Sub Form_Activate()
If Me.depassement = True Then
   Me.lblDepassement.ForeColor = vbRed
   Me.lblDepassement.FontBold = True
Else
   Me.lblDepassement.ForeColor = vbBlack
   Me.lblDepassement.FontBold = False
End If
End Sub

A+