Add timer and warning before shutdown

[ukmale65000]

I Currently have a button which i press to log users out of my system when i wish to do any maintenance. This solution was fine when i set up the database as there were only ever 1 or 2 user in it at a time and i could advise them individually when the system required closing down. Now the management has deceided to use my system over a larger workgroup and telling them individually that i am closing down will not be possible. I currently use the code below
Private Sub cmd_shutdown_Click()
txt_status.Value = 2
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

End Sub
What i would like to do is have a warning box appear which tells all users logged in that maintenace will take place in two minutes and to save their current work, after which i would gain unique control. I also have another button which allows me to open the system back up,(Code Below), which i would still like to use if possible.
Private Sub cmd_open_Click()
txt_status.Value = 1
DoCmd.DoMenuItem acFormBar, acRecordsMenu, acSaveRecord, , acMenuVer70

End Sub

Is this possible?

Thanks in advance

 

[RuralGuy]

Try one of these Kick-Em-Off routines.