I have built a database to use for radio and phone transmissions in a small Dispatch office. As a matter of course, when we have a Ranger on a law enforcement contact we need to make a status check on that officer every few minutes. I have made a timer which will sound some beeps, and flash a screen when it reaches the end of the time. However, I would like to have it display the time so you could watch it count down to 0.

This is what is in place now:

Private Sub Command15_Click()
Dim PauseTime, Start, Finish, TotalTime
If (MsgBox("Press Yes to run 5 minute timer", 4)) = vbYes Then
PauseTime = 300 ' Set duration.
Start = Timer ' Set start time.
Do While Timer < Start + PauseTime
DoEvents ' Yield to other processes.
Loop
Finish = Timer ' Set end time.
Dim stDocName As String
Dim stLinkCriteria As String

stDocName = "Form2"
DoCmd.OpenForm stDocName, , , stLinkCriteria

Else
End

Thanks for any help,

Peter Paul

[This message has been edited by Peter Paul (edited 02-09-2000).]