Etat Access et couleurs

Question

Salut

Voila mon probleme :
- J'ai 1 requete qui me sort des achats effectues dans la semaine
- Dans la section Detail est affichee les donnees obtenues par la requete dans des zones de textes
- Sous ces zones de textes j'ai ajoute un rectangle tout le long de la section
- Je souhaite que ce rectangle change de couleur suivant le jour de l'achat (par ex. jaune pour le lundi, bleu pour le mardi, ...)

Quelqu'un pourrait-il m'expliquer comment faire, par cette methode ou par tout autre

Je souhaiterais le faire egalement dans une zone de liste modifiable si cela est possible

Merci
 :big)

cs_jeannot45 · Answer

Bonjour,

Voici une petite procédure qui va répondre à ton problème.

Private Sub Détail_Format(Cancel As Integer, FormatCount As Integer)
    Select Case Weekday(DateAchat)
        Case Is = vbSunday
            Me.Détail.BackColor = 8421631
        Case Is = vbMonday
            Me.Détail.BackColor = 16777215
        Case Is = vbTuesday
            Me.Détail.BackColor = 12615935
        Case Is = vbWednesday
            Me.Détail.BackColor = 8454143
        Case Is = vbThursday
            Me.Détail.BackColor = 12632256
        Case Is = vbFriday
            Me.Détail.BackColor = 8454016
        Case Is = vbSaturday
            Me.Détail.BackColor = 16744576
    End Select
End Sub

Quelques mots d'explication :

1)La fonction WeekDay permet d'extraire le jour de la semaine d'une date
Weekday(Date concernée, 1er jour de la semaine (argument Facultatif = vbSunday par défaut))
2) j'interviens directement sur le fond de la section détail, les eones de texte ayant toutes un fond transparent)

Bonne amusement,

Jeannot

Etat Access et couleurs

1 réponse

Discussions similaires