Wait 10 minutter med lavest brug af resurser (og et bonusønske)

Du kan bruge API-kaldet til Sleep, fx som her i min time-out funktion i ModernBox:

' API call for sleep function.
#If VBA7 Then
    Private Declare PtrSafe Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#Else
    Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
#End If

' ....

        ' Record launch time and current time with 1/18 second resolution.
        LaunchTime = Date + CDate(Timer / SecondsPerDay)
        Do While CurrentProject.AllForms(FormName).IsLoaded
            ' Form FormName is open.
            ' Bring form to front; it may hide behind a popup form.
            DoCmd.SelectObject acForm, FormName
            ' Make sure form and form actions are rendered.
            DoEvents
       
            ' Halt Access for 1/20 second.
            ' This will typically cause a CPU load less than 1%.
            ' Looping faster will raise CPU load dramatically.
            Sleep 50
            If TimeOut > 0 Then
                ' Check for time-out.
                CurrentTime = Date + CDate(Timer / SecondsPerDay)
                If (CurrentTime - LaunchTime) * SecondsPerDay > TimeOut / 1000 Then
                    ' Time-out reached.
                    ' Close form FormName and exit.
                    DoCmd.Close acForm, FormName, acSaveNo
                    TimedOut = True
                    Exit Do
                End If
            End If
        Loop
        ' At this point, user or time-out has closed form FormName.

Du skal selvfølgelig have justeret de 50ms op til fx 600000. Eller fx i en ydre loop, hvor du checker for tastetryk.

Fuld kode og (link til) dokumentation her:
https://github.com/GustavBrock/VBA.ModernBox

Tak! Sikke en klamamse!

Jeg kender ikke til Declare.
Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)
Hvor har du "Sleep" fra?

Forgot, Google is my friend.
Jeg prøver :-)

Hvad er forskellen på dette og så inde i et VB sub/function blot at skrive Sleep 50, bortset fra muligheden for at trykke tast for at afbryde? Jeg vil gerne slippe for at skulle lave en form.

Ved nærmere eftertanke, var det måske netop, hvad du skulle gøre.
Formularen er kun åben, så længe timeren kører, og vil man afbryde, lukker man formularen.

Det er jo lavet til min messagebox, som fungerer som en normal MsgBox, men med muligheden for at specificere et time-out i millisekunder. Sæt det til 60 * 10 * 1000, og den timer ud efter 10 min, hvis man ikke inden har trykket på en knap eller lukket formularen.

Du kan downloade demoen (v 1.3.1) og prøve:

MsgMox "Vent 5s eller tryk en knap.", vbInformation + vbOkOnlyButtons, "Demo", , , 5000

Jeg kunne selvfølgelig prøve, men er der noget til hinder for ikke blot at lave det i en Sub/Function?

Nej, så kan du bare pille åbning/lukning af formularen ud.

Jeg har endnu ikke testet det, men det ser overbevisende ud og i tråd med tilsvarende løsninger på nettet.