Laden…

Alternatief voor sleep()

MS Access laten wachten voor een bepaalde tijd is geen goed idee mits je het goed implementeert. Er zijn een aantal manieren om je applicatie bijvoorbeeld 10 seconden te laten wachten voordat de code de volgende handeling mag uitvoeren. De meest populaire manier is gebruik te maken van de functie sleep maar daarmee hangt je applicatie gedurende de 10 seconden of de tijd die je vooraf hebt ingesteld. Er is een alternatieve manier om je code 10 seconden te laten wachten en gedurende deze 10 seconden je computer processor vrij te geven om andere taken te laten uitvoeren. Hierdoor krijg je nooit een ‘hangende’ MS Access of de melding ‘Application not responding’.

We maken zelf een functie die 10 seconden wacht en gedurende die 10 seconden het systeem constant vrij geeft. De code is als volgt:

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