Hallo,
Via een persoonlijk werkblad met Userform worden gegevens ingevuld en weggeschreven.
Om te voorkomen dat het blad blijft openstaan en anderen iets kunnen invullen, heb ik een countdown timer geplaatst die gestart wordt via Private Sub Userform_Initialize en na afloop het werkblad sluit. Het starten, stoppen en reset van deze timer werken.
Mijn vraag: Is het sowieso mogelijk om de resterend tijd in TextBox1 weer te geven, om indien nodig de timer tijdig te resetten?
Ben hier al even mee bezig maar het lukt niet.
Als je volgende Timer code apart start krijg je een aftelling te zien in TextBox1, maar hoe kan je dit oplossen dat het samenwerkt met de Timer code in de module Save_Close?
Alvast bedankt.
Mvg.
Marc
Via een persoonlijk werkblad met Userform worden gegevens ingevuld en weggeschreven.
Om te voorkomen dat het blad blijft openstaan en anderen iets kunnen invullen, heb ik een countdown timer geplaatst die gestart wordt via Private Sub Userform_Initialize en na afloop het werkblad sluit. Het starten, stoppen en reset van deze timer werken.
Mijn vraag: Is het sowieso mogelijk om de resterend tijd in TextBox1 weer te geven, om indien nodig de timer tijdig te resetten?
Ben hier al even mee bezig maar het lukt niet.
Als je volgende Timer code apart start krijg je een aftelling te zien in TextBox1, maar hoe kan je dit oplossen dat het samenwerkt met de Timer code in de module Save_Close?
Code:
Public Sub Timer_Start()
Dim T, E, M As Double, S As Double
Call Macro_Initialize
workfrm.Label3.Visible = True
workfrm.TextBox1.Visible = True
T = Timer
Do
E = CDbl(Time) * 24 * 60 * 60 - T 'elapsed time in secs
M = Int((AllowedTime * 60 - E) / 60)
S = Int(AllowedTime * 60 - M * 60 - E)
With workfrm.TextBox1
.Value = Format(CStr(M), "00") & ":" & Format(CStr(S), "00")
End With
DoEvents
Loop Until (Timer - T) / 60 >= AllowedTime
End Sub
Private Sub Macro_Initialize()
Dim M As Double, S As Double
AllowedTime = "0,5"
M = Int(AllowedTime)
S = (AllowedTime - Int(AllowedTime)) * 60
With TextBox1
.Value = Format(CStr(M), "00") & ":" & Format(CStr(S), "00")
End With
End Sub
Mvg.
Marc