1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
| 'Va chercher la liste des tâches
Texte_SQL = "SELECT * FROM Couleurs_Thematiques"
Set MonTheme = CurrentDb.OpenRecordset(Texte_SQL)
'
'On supprime toutes les mises en forme conditionnelles
Me.Nom_tache.FormatConditions.Delete
MonTheme.MoveFirst
'pour chaque tâche
Do While Not MonTheme.EOF
'On définit la couleur de fond et de police correspondant à la tâche
Me.Nom_tache.FormatConditions.Add acExpression, , "[Them_Tache]= '" & MonTheme![Thème] & "'"
Me.Nom_tache.FormatConditions.Item(IntI).ForeColor = RGB(MonTheme!Couleur_police_R, MonTheme!Couleur_police_G, MonTheme!Couleur_police_B)
Me.Nom_tache.FormatConditions.Item(IntI).BackColor = RGB(MonTheme!Couleur_fond_R, MonTheme!Couleur_fond_G, MonTheme!Couleur_fond_B)
IntI = IntI + 1
MonTheme.MoveNext
Loop |
Partager