asked on Timer calculation in Access Database
Hi Experts,
I have a question about the calculation time problem in Access Database for Automatically close the database if the database is idle for a period of time.
How do I calaulate for hour(s)? I would like to set to if idle for 3 hours then close the database automaticaly.
Is this correct for Calculate mintue? -- > ExpiredMinutes = (ExpiredTime / 1000) / 60
here is my code in the calculation part:
'I set the timer Interval to 1000
ExpiredTime = ExpiredTime + Me.TimerInterval
ExpiredMinutes = (ExpiredTime / 1000) ' this is for 1 second
Me.txtIdleTime = ExpiredMinutes
If ExpiredMinutes >= 10 Then ' this is for 10 minutes
ExpiredTime = 0
Application.Quit acQuitSaveAll
End If
Thanks,
I have a question about the calculation time problem in Access Database for Automatically close the database if the database is idle for a period of time.
How do I calaulate for hour(s)? I would like to set to if idle for 3 hours then close the database automaticaly.
Is this correct for Calculate mintue? -- > ExpiredMinutes = (ExpiredTime / 1000) / 60
here is my code in the calculation part:
'I set the timer Interval to 1000
ExpiredTime = ExpiredTime + Me.TimerInterval
ExpiredMinutes = (ExpiredTime / 1000) ' this is for 1 second
Me.txtIdleTime = ExpiredMinutes
If ExpiredMinutes >= 10 Then ' this is for 10 minutes
ExpiredTime = 0
Application.Quit acQuitSaveAll
End If
Thanks,
* CodingMicrosoft Access
Last Comment
Gustav Brock
ASKER CERTIFIED SOLUTION
THIS SOLUTION ONLY AVAILABLE TO MEMBERS.
View this solution by signing up for a free trial.
Members can start a 7-Day free trial and enjoy unlimited access to the platform.
Once I had a case of pull some data, perform some actions and continue late at night..I simply put the timer at 1000 ..checked if the time matches or is greater and that's all
ASKER
@Gustav,
according to your suggested here is the code that I changed to :
ExpiredTime = ExpiredTime + Me.TimerInterval
ExpiredHours = (ExpiredTime / 1000) / 3600
Me.txtIdleTime = ExpiredHours
If ExpiredHours >= 3 Then ' this is for 3 hours
ExpiredTime = 0
Application.Quit acQuitSaveAll
End If
Is this correct?
Thanks
according to your suggested here is the code that I changed to :
ExpiredTime = ExpiredTime + Me.TimerInterval
ExpiredHours = (ExpiredTime / 1000) / 3600
Me.txtIdleTime = ExpiredHours
If ExpiredHours >= 3 Then ' this is for 3 hours
ExpiredTime = 0
Application.Quit acQuitSaveAll
End If
Is this correct?
Thanks
Seems OK. But haven't tested.
Does it run as expected (set timeout to 1 hour or less)?
Does it run as expected (set timeout to 1 hour or less)?
ASKER
@Gustav,
I will tried to test it. Thanks!
I will tried to test it. Thanks!
Great! See you in an hour ...
ASKER
@Gustav,
It works! Thanks!
It works! Thanks!
ASKER
Thank you so much Experts!!
You are welcome!