Discussion :

[rossy]

Bonjour !

Je cherche un équivalent de Wait en VBA pour acces car j'avais ce bout de code :

Application.Wait Now + TimeValue(00:00:01)

(censé faire une pause d'une seconde...)

Quelle peut etre la meilleure chose pour stopper une macro pendant une seconde ?

Merci d'avance !

[random]

Code :

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

1
2
3
4
5
6
7
8
9
 
Sub temporise(x As Double)
'x est le nombre de 10zièmes de secondes
Dim quand As Date
quand = Time()
x = x / 24 / 60 / 600
While quand + x >= Time()
Wend
End Sub

[CAMIC]

Salut random,

Tu ne propose pas un équivalent a wait() car ta routine bouffe presque tous le temps cpu, alors que wait() stop réellement l'execution du code pendant un certain temps.

Peut-être utiliser une DLL ?

CAMIC

[philben]

Bonjour,

peut-être en passant par un sleep (API) :

Code :

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

1
2
3
4
5
 
 
Public Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
 
sleep 1000

Alternative dérivée de Random pour ne pas trop user le temps CPU (!) :

Code :

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

1
2
3
4
5
6
7
8
9
10
11
 
 
Public Sub Attendre(Optional iSecondes As Integer = 0, Optional bHrglass As Boolean = True)
   Dim lfin As Long
   If bHrglass = True Then DoCmd.Hourglass bHrglass
   lfin = Timer + iSecondes
   Do
      DoEvents
   Loop Until Timer >= lfin
   If bHrglass = True Then DoCmd.Hourglass False
End Sub

Philippe