Est-il équivalent à enfiler.Sleep() dans VBA

Est-il équivalent à Thread.Sleep() dans Access VBA?

C'est un Accès à la FAQ, et vous trouverez mvps.org/Access pour être une source importante pour les réponses aux questions les plus fréquentes.

InformationsquelleAutor Johnno Nolan | 2009-01-22

62
```
Declare Sub Sleep Lib "kernel32" Alias "Sleep" _
(ByVal dwMilliseconds As Long)
```
Utilisez la syntaxe suivante pour appeler la fonction de Veille:
```
Sub Sleep()
Sleep 1000 'Implements a 1 second delay
End Sub 
```
- Ahh viens de constater que mon auto. Merci!
- Il est à noter que dans Excel 2007, je suis en mesure d'appeler le Sommeil directement, sans l'emballage VBA sous.
- L'instruction Declare devrait être dans un module pour éviter les "instructions Declare ne sont pas admis en tant que membres Publics de l'objet" d'erreur.
InformationsquelleAutor Otávio Décio

Une autre façon sans l'aide de kernel32:

Dim started As Single: started = Timer

Do: DoEvents: Loop Until Timer - started >= 1

InformationsquelleAutor DontFretBrett

Quelques modifications sont nécessaires pour obtenir le code du travail.
Le code ci-dessous est la version corrigée.

Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)

Sub SleepVBA() 
Sleep 1000 'Implements a 1 second delay 
End Sub

InformationsquelleAutor Zorba Eisenhower

5

Toutes les autres méthodes pour faire Excel attendre le résultat dans Excel devenir complètement insensible. La solution pour faire Excel attendre, tout en assurant un réactif de l'INTERFACE utilisateur est d'appeler cette attente Sous le nombre de secondes à attendre.
```
    Sub Wait(seconds As Integer)
      Dim now As Long
      now = Timer()
      Do
          DoEvents
      Loop While (Timer < now + seconds)
    End Sub
```
- Le problème avec cette méthode est que la fonction DoEvents finit en utilisant presque tout le temps CPU.
InformationsquelleAutor The Data Brewer
2

- Je l'utiliser dans Excel et il fonctionne très bien:
```
Application.Wait DateAdd("s", 1, Now())
```
DateAdd() est une fonction définie une fois, par rapport à Now() (dans ce cas vous pouvez utiliser d'autres valeurs que votre argument), "s" est la mesure de temps (secondes, dans ce cas), et l'incrément est 1. Donc, ici, l'appel de la fonction est de dire la demande d'attendre 1 seconde.

Voir aussi pour plus de détails sur l'utilisation de l'option DateAdd de la fonction.
- Cela ne fonctionne pas en Accès-est
- Juste assez; je n'ai dit dans Excel, et je n'ai pas testé dans l'Accès. Vous dites "qu'est ce qui est", connaissez-vous une solution?
- Non, je n'ai aucune idée de comment contourner.
InformationsquelleAutor Gaffi
2

Il est possible d'utiliser le fichier Excel Wait() procédure à partir de l'Access VBA.

La première étape est de s'assurer que le Excel bibliothèque est référencé à partir de votre projet.

Lorsque cela est fait, le code suivant fonctionne à attendre pendant dix secondes :
```
Call Excel.Application.Wait(Time:=DateAdd("s",10,Now()))
```
InformationsquelleAutor user3298002
2

Si vous utilisez Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long), vous pouvez obtenir cette erreur dans un module objet.

Si oui, vous pouvez la déclarer comme privé:

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

InformationsquelleAutor Tony L.
1

Ajoutant
```
Declare Sub Sleep Lib "kernel32" Alias "Sleep" (ByVal dwMilliseconds As Long)
```
en quelque sorte créé d'autres problèmes ailleurs dans mon code.
J'ai fini par utiliser cette fonction que j'ai trouvé sur un autre forum et tweeked un peu:
```
Function WaitTime(n As Double)
'Function that wait an amount of time n in seconds
TWait = Time
TWait = DateAdd("s", n, TWait)
Do Until TNow >= TWait
     TNow = Time
Loop
End Function
```
espère que cela aide 🙂
- La seule raison pour laquelle je pense que l'ajout de l'en-tête de fonction serait la cause de "problèmes" est que si vous utilisiez déjà le nom de la fonction "Sommeil" dans un module de classe ou dans le processus actuel.
InformationsquelleAutor sebastien leblanc

Vous devez vous connecter pour publier un commentaire.