Partager via


Propriété OptionGroup.BackColor (Access)

Obtient ou définit la couleur de remplissage de l'objet spécifié. Type de données Long en lecture/écriture.

Syntaxe

expression. Backcolor

Expression Variable qui représente un objet OptionGroup .

Remarques

La propriété CouleurFond contient une expression numérique correspondant à la couleur de remplissage pour un contrôle ou une section.

Vous pouvez définir la valeur par défaut pour cette propriété à l’aide du style de contrôle par défaut d’un contrôle ou de la propriété DefaultControl dans Visual Basic.

Pour utiliser la propriété BackColor, la propriété BackStyle, si elle est disponible, doit être définie normal.

Exemple

L’exemple suivant utilise la fonction RGB pour définir les propriétés BorderColor, BackColor et ForeColor en fonction de la valeur de la zone de texte txtPastDue. Vous pouvez également utiliser la fonction QBColor pour définir ces propriétés. Le fait de placer le code suivant dans l’événement Form_Current( ) définit les caractéristiques d’affichage du contrôle dès que l’utilisateur ouvre un formulaire ou passe à un nouvel enregistrement.

Sub Form_Current() 
 Dim curAmntDue As Currency, lngBlack As Long 
 Dim lngRed As Long, lngYellow As Long, lngWhite As Long 
 
 If Not IsNull(Me!txtPastDue.Value) Then 
 curAmntDue = Me!txtPastDue.Value 
 Else 
 Exit Sub 
 End If 
 lngRed = RGB(255, 0, 0) 
 lngBlack = RGB(0, 0, 0) 
 lngYellow = RGB(255, 255, 0) 
 lngWhite = RGB(255, 255, 255) 
 If curAmntDue > 100 Then 
 Me!txtPastDue.BorderColor = lngRed 
 Me!txtPastDue.ForeColor = lngRed 
 Me!txtPastDue.BackColor = lngYellow 
 Else 
 Me!txtPastDue.BorderColor = lngBlack 
 Me!txtPastDue.ForeColor = lngBlack 
 Me!txtPastDue.BackColor = lngWhite 
 End If 
End Sub

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.