Discussion :

[cornet04]

Bonjour,

J'ai un souci avec mon curseur !

Comment faire pour que le curseur demeure inactif en forme de sablier lors d'un traitement ?

D'avance merci de votre aide

[Lou Pitchoun]

Salut,

Merci de penser à faire une recherche sur le forum

[cornet04]

J'ai bien regardé mais la methode "hourglass" marche pas ?
D'autre part je comprends mal l'autre methode decrite ?

[Invité]

Bonjour

Montre comment tu l'as écris, avec le code entre les deux.

Starec

[Lou Pitchoun]

Je viens d'essayer et ça marche très bien...
Tout dépends la durée de ton traitement.
Fait un test avec ça :

Code :

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

1
2
3
4
5
    Dim i As Long
    DoCmd.Hourglass True
    For i = 0 To 100000000
    Next i
    DoCmd.Hourgall False

[cornet04]

quelqu'un peut il m'expliquer ces quelques lignes ?

Code :

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

1
2
3
4
5
6
7
8
9
private Sub change_curseur()
Call SetSystemCursor(LoadCursor(0, 32514), 32512)
Call SetSystemCursor(LoadCursor(0, 32515), 32513)
End Sub
 
private Sub restaure()
Call SetSystemCursor(LoadCursor(0, 32512), 32512)
Call SetSystemCursor(LoadCursor(0, 32513), 32513)
End Sub

[Invité]

Re

Premièrement pense aux balises codes dans tes messages.

Ce code correspond à des fonction API, c'est utile quand tu veux utiliser des curseurs personnalisés.

Dans ton cas, le code que t'a donné Kikof suffit largement, et cela ne prend que deux lignes, Access t'offre cette possibilité.

As-tu testé le code de Kikof ?

Starec