OVH Cloud OVH Cloud

mettre la souris en sablier durant un calcul

2 réponses
Avatar
c.barbier
Bonjour,

Dans un formulaire, j'ai 2 champs calcules. J'ai donc 2 cases edit avec
le code suivant: Sum([MontantHT]) et dans la 2eme case edit, j'ai
Sum([MontantTTC]). Lorsque j'ouvre le formulaire, access calcul ces 2
champs. Je voudrais que durant ce calcul, la souris se transforme en
sablier.
Savez vous comment je pourrai faire cela?
J'ai vu qu'il existait la fonction VBA suivante :
DoCmd.HourGlass True
.=2E.
<code =E0 ex=E9cuter>
.=2E.
DoCmd.HourGlass False

Mais le pb, c'est que je ne vois pas comment lier ce code au temps de
calcul.
Savez vous comment je pourrai faire?
Merci beaucoup,

2 réponses

Avatar
david
Salut,
Private Sub Form_Current()
DoCmd.HourGlass False
End Sub
Private Sub Form_Open(Cancel As Integer)
DoCmd.HourGlass True
End Sub
Dans ce cas, le sablier s'affiche lorsque le formulaire s'ouvre et
celui-ci disparaît lorsque les données sont prètes...
Rq : si Form_Current ne fonctionne pas, utilise un autre évènement du
type
Activate (activation), GotFocus (réception du focus)

A+
Avatar
c.barbier
Re bonjour,

J'ai essaye mais sur Form_Current ca ne marche pas. La souris ne rete
pas en sablier. Elle est en sablier de maniere instantanee a
l'ouverture du formulaire.
Sur reception focus, la souris est en permanence un sablier.
Et sur activation, elle ne reste pas en sablier le temps du calcul.
Elle est en sablier de maniere instantanee a l'ouverture du formulaire.
Savez vous comment je peux resoudre ce pb?
Merci beaucoup,