OVH Cloud OVH Cloud

mise en forme conditionnelle

1 réponse
Avatar
Elise
Bonjour,

Je souhaiterais dans un sous formulaire modifier les=20
couleurs de fond de certains enregistrements en fonction=20
la valeur de mon champ validation.
J'ai essay=E9 de mettre ce code =E0 l'ouverture de mon=20
formulaire qui est en mode feuille de donn=E9es mais cela ne=20
marche pas.Quelqu'un pourrait m'aider?
merci

If Me.Validation =3D True Then
Me.NumOrdre.BackStyle =3D 1
Me.Theme.BackStyle =3D 1
Me.Produit.BackStyle =3D 1
Me.OperationBancaire.BackStyle =3D 1
Me.NumOrdre.ForeColor =3D 8454143
Me.Theme.ForeColor =3D 8454143
Me.Produit.ForeColor =3D 8454143
Me.OperationBancaire.ForeColor =3D 8454143
Me.NumOrdre.BorderColor =3D 8454143
Me.Theme.BorderColor =3D 8454143
Me.Produit.BorderColor =3D 8454143
Me.OperationBancaire.BorderColor =3D 8454143
end if

1 réponse

Avatar
Benoit Compoint
Bonjour,

En mode feuille de données, vous ne pouvez pas utiliser une procédure VBA
pour changer certaines couleurs pour chaque enregistrement.

Mais sans utiliser une seule ligne de code VBA, vous pouvez utiliser la
"Mise en forme conditionnelle" sur Access 2000, 2002 et 2003.
Concrètement ouvrez le formulaire concerné en mode création/modification,
sélectionnez les contrôles concernés et choisissez la commande "Mise en
forme conditionnelle" dans le menu "Format" d'Access. Comme condition,
définissez une expression utilisant le champ [Validation].

Benoît Compoint.

"Elise" wrote in message
news:0d8501c39e28$91318d10$
Bonjour,

Je souhaiterais dans un sous formulaire modifier les
couleurs de fond de certains enregistrements en fonction
la valeur de mon champ validation.
J'ai essayé de mettre ce code à l'ouverture de mon
formulaire qui est en mode feuille de données mais cela ne
marche pas.Quelqu'un pourrait m'aider?
merci

If Me.Validation = True Then
Me.NumOrdre.BackStyle = 1
Me.Theme.BackStyle = 1
Me.Produit.BackStyle = 1
Me.OperationBancaire.BackStyle = 1
Me.NumOrdre.ForeColor = 8454143
Me.Theme.ForeColor = 8454143
Me.Produit.ForeColor = 8454143
Me.OperationBancaire.ForeColor = 8454143
Me.NumOrdre.BorderColor = 8454143
Me.Theme.BorderColor = 8454143
Me.Produit.BorderColor = 8454143
Me.OperationBancaire.BorderColor = 8454143
end if