---Soumis par Dev Ashish---
Étiquette clignotante.
(Q) Comment produire une étiquette qui clignote?
(A) On peut y réussir en utilisant la procédure événementielle Timer du formulaire.
Par exemple, si on possède l'étiquette "lblSomeLabel" sur un formulaire qui possède également un sous-formulaire exprimant une relation 1:M.
Maintenant, on désire attirer l'attention de l'usager si plus de trois enregistrements existent dans le sous-formulaire pour un enregistrement du formulaire principal, on peut décider de faire clignoter l'étiquette en question.
Plaçons le code suivant sous la procédure événementielle Timer.
'************* Code Start ************* Private Sub Form_Timer() With Me.lblSomeLabel .ForeColor = (IIf(.ForeColor = vbRed, vbBlack, vbRed)) End With End Sub '************* Code End *************
Il faut maintenant un critère pour enclencher ce timer. Plaçons donc le code suivant sous la procédure événementielle OnCurrent.
'************* Code Start ************* Private Sub Form_Current() If Me![SomeSubForm].Form.RecordsetClone.RecordCount > 3 Then Me.TimerInterval = 300 Else Me.TimerInterval = 0 Me.lblSomeLabel.ForeColor = vbBlack End If End Sub '************* Code End *************