OVH Cloud OVH Cloud

Message clignotant dans formulaire

1 réponse
Avatar
Nono51
Je voudrais cr=E9er dans un formulaire de saisie, un champ=20
qui devient visible (=E7a je sais faire) mais aussi qui=20
clignote (alternance de couleur jaune et rouge par=20
exemple) en fonction du r=E9sultat d'une requ=EAte.
Par exemple si le r=E9sultat de ma requ=EAte =3D 10000,=20
j'affiche dans mon formulaire le texte clignotant "10000=20
d=E9pass=E9".
Est-ce possible et si oui comment faire ?
Merci d'avance

Nono

1 réponse

Avatar
Raymond [mvp]
Bonsoir.

il faut mettre un timer et changer une propriété à chaque timer.

si tu veux tout faire clignoter, contrôle et étiquette sans changer de
couleur,
Private Sub Form_Timer()
Me.Texte101.Visible = Not Me.Texte101.Visible
End Sub
Private Sub texte100_AfterUpdate()
If Me.texte100 > 10000 Then
Me.TimerInterval = 250
Else
Me.TimerInterval = 0
Me.Texte101.Visible = True
End If
End Sub

Faire clignoter le backcolor seulement :
Private Sub Form_Timer()
Me.Texte101.BackColor = Not Me.Texte101.BackColor
End Sub
Private Sub texte100_AfterUpdate()
If Me.texte100 > 10000 Then
Me.TimerInterval = 250
Else
Me.TimerInterval = 0
Me.Texte101.BackColor = RGB(255, 255, 255)
End If
End Sub

tu peux agrémenter tout ça avec un peu d'imagination.

--
@+
Raymond Access MVP
http://access.seneque.free.fr/
http://access2003.free.fr/
http://users.skynet.be/mpfa/ pour débuter sur le forum


"Nono51" a écrit dans le message de
news:c27601c4384f$89cc83b0$
Je voudrais créer dans un formulaire de saisie, un champ
qui devient visible (ça je sais faire) mais aussi qui
clignote (alternance de couleur jaune et rouge par
exemple) en fonction du résultat d'une requête.
Par exemple si le résultat de ma requête = 10000,
j'affiche dans mon formulaire le texte clignotant "10000
dépassé".
Est-ce possible et si oui comment faire ?
Merci d'avance

Nono