Discussion :

[lenul0]

Bonjour,
Je suis sous Access 2010.
Ma BDD me sert à gérer ma collection de films.
Les noms des champs sont : Titre ; Acteurs ; Genre ; Résumé et Vu, ce dernier champ se présente sous une simple case à cocher (qui est « cochée » quand le film a été « vu »).
J’ai un formulaire qui me permet de rechercher un film selon son « genre ».
Ce formulaire reprend l’intégralité des champs décrits ci-dessus.
Je souhaiterai, SI, la case à cocher « vu » est « cochée » que l’étiquette, nommée « cligno », ou est écris « Vu » clignote en changeant de couleur (rouge et vert).
A ce jour je n’ai réussi qu’à faire clignoter cette étiquette mais SANS la condition décrite ci-dessus et SANS changement de couleur. Ci-dessous le code de ma procédure évènementielle :

Code :

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

1
2
3
4
5
6
7
Private Sub Form_Timer()
If Me![cligno].Visible = True Then
Me![cligno].Visible = False
Else
Me![cligno].Visible = True
End If
End Sub

Je vous remercie de votre aide.
Lenul0.

[micniv]

Bonjour,

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
 
Private Sub Form_Timer()
' se déclenche à chaque TimerInterval
 
if me.Vu = true then
Me![cligno].Visible = Not Me![cligno].Visible 
if (Me![cligno].backcolor = vbWhite) Or (Me![cligno].backcolor = vbred) then
Me![cligno].backcolor = vbGreen
else
Me![cligno].backcolor = vbRed
End If
else
Me![cligno].backcolor = vbWhite
end if
End Sub

pas testé mais ça devrait être ça.

[lenul0]

Bonjour Michel,
Merci de m'avoir répondu si rapidement!
J'ai testé ton code, cela fonctionne presque comme je veux...
Juste 2 petite choses:
a) la couleur de fond de mon étiquette si la case à cocher n'est pas "cochée" est le jaune et pas le blanc (c'est vrai que je ne l'avais pas précisé....
b) l'étiquette clignote bien si la case à cocher est cochée, mais elle clignote de la façon suivante : pas d'affichage-affichage fond rouge.
Je souhaiterai qu'elle clignote: affichage fond vert-affichage fond rouge...
J'espère que tu me pardonnera cette exigence....
Encore merci et au plaisir de te lire
lenul0

[micniv]

Alors

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
Private Sub Form_Timer()
' se déclenche à chaque TimerInterval
 
if me.Vu = true then
'Me![cligno].Visible = Not Me![cligno].Visible 
if (Me![cligno].backcolor = vbYellow) Or (Me![cligno].backcolor = vbred) then
Me![cligno].backcolor = vbGreen
else
Me![cligno].backcolor = vbRed
End If
else
Me![cligno].backcolor = vbyellow ' ou bien la valeur numérique de ton fond jaune, dans les pptés du controle
end if
 
End Sub

comme signalé , si besion, remplace vbyellow par la valeur numérique de ton fond jaune, que tu trouves dans les pptés du controle

[lenul0]

Bonjour Michel,
Super, ç'est exctement ce que je souhaitais
Merci beaucoup pour ton aide précieuse et super rapide
Bon dimanche
Cordialement
Michel