¿Existe un equivalente a Thread.Sleep() en VBA

¿Existe un equivalente a Thread.Sleep() en Access VBA?¿Existe un equivalente a Thread.Sleep() en VBA

2009-01-22 Johnno Nolan

Esta es una pregunta más frecuente de acceso, y encontrará http://mvps.org/Access/ estar una fuente importante de respuestas a preguntas frecuentes. –

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

Utilice la siguiente sintaxis para llamar a la función del sueño:

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

Fuente

2009-01-22 14:36:20

Ahh acaba de encontrar que yo mismo. ¡Gracias! –

Debo señalar que en Excel 2007, puedo llamar a Sleep directamente sin el envoltorio VBA sub. –

La declaración Declare debe estar en un módulo para evitar el error "Declarar declaraciones no permitidas como miembros públicos del objeto". – HuckIt

Se requiere un par de modificaciones para obtener el código para trabajar. El código siguiente es la versión corregida.

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

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

Fuente

2010-11-10 14:44:21

Otra forma sin usar kernel32:

Dim started As Single: started = Timer 

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

Fuente

2011-10-17 23:27:59 DontFretBrett

Adición

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

problemas adicionales creados alguna manera en otro lugar en mi código. Terminé usando esta función que he encontrado en otro foro y tweeked un poco:

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

esperanza de que esto ayude :)

Fuente

2011-10-20 17:57:42

La única razón por la que puedo pensar que agregar el encabezado de función causaría "problemas" es si ya estaba usando el nombre de la función "Suspensión" en un módulo o clase en el proceso actual. –

Yo uso esta en Excel y funciona muy bien:

Application.Wait DateAdd("s", 1, Now())

DateAdd() es una función que establece un tiempo, relativo a Now() (en este caso, puede usar otros valores como su argumento), "s" es la medida de tiempo (segundos en este caso), y el incremento es 1. Entonces aquí, la llamada de función está diciendo a la aplicación licación esperar 1 segundo.

Fuente

2012-03-01 17:15:31 Gaffi

Esto no funciona en Access as-is – MAW74656

@ MAW74656 Bastante justo; Dije en Excel, y no lo he probado en Access. Usted dice 'tal como está', ¿sabe de una solución alternativa? – Gaffi

@ Gaffi- No, no tengo idea de cómo solucionarlo. – MAW74656

Todo el resto de los métodos para hacer que Excel esperar el resultado en Excel convertirse totalmente insensible. La solución para hacer que Excel espere mientras se asegura una interfaz de usuario receptiva es llamar a este espera Sub con el número de segundos para esperar.

Sub Wait(seconds As Integer) 
     Dim now As Long 
     now = Timer() 
     Do 
      DoEvents 
     Loop While (Timer < now + seconds) 
    End Sub

Fuente

2014-01-16 18:59:51

El problema con el uso de este método es que DoEvents termina usando casi todo el tiempo de la CPU. – phrebh

Es posible utilizar el procedimiento Excel Wait() de Access VBA.

El primer paso es garantizar que la biblioteca de Excel se haga referencia desde su proyecto.

Cuando eso se hace el siguiente código trabajará para esperar durante diez segundos:

Call Excel.Application.Wait(Time:=DateAdd("s",10,Now()))

Fuente

2014-02-11 16:16:32 user3298002

Si utiliza Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long), puede obtener este error en un módulo de objeto.

Si es así, puede declarar como privada:

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

Fuente

2016-12-01 16:18:00

¿Existe un equivalente a Thread.Sleep() en VBA

Respuesta

Cuestiones relacionadas