ACCESS FEED: Re: [MS_AccessPros] Timer

Jumat, 30 November 2012

Re: [MS_AccessPros] Timer

Bill-

OK. Let's assume the text box is called txtClock. Format="hh:mm:nn"

Three command buttons: cmdStart (Caption START), cmdPause (Caption PAUSE,
Enabled = No), cmdStop (Caption STOP, enabled = No)

Private Sub cmdStart_Click()
Dim datTimeValue As Date
' Make sure it's a valid date/time value
If Not IsDate(Me.txtClock) Then
MsgBox "You must enter a valid time value."
Exit Sub
End If
' Grab the value as a Time - strip off any date part
datTimeValue = TimeValue(Me.txtClock)
' Put it back as hh:mm:ss
Me.txtClock = datTimeValue
' Make sure it's not zero
If Format(datTimeValue, "hh:mm:nn") = "00:00:00" Then
MsgBox "You must set the starting time to something other than
zero."
Exit Sub
End If
' Turn on the timer interval
Me.TimerInterval = 1000
' Enable the other two buttons
Me.cmdPause.Enabled = True
Me.cmdStop.Enabled = True
End Sub

Private Sub Form_Timer()
Dim datTimeValue As Date
' Grab the current value
datTimeValue = TimeValue(Me.txtClock)
' Subtract 1 second
datTimeValue = datTimeValue - #00:00:01#
' Update the visual
Me.txtClock = datTimeValue
' If decremented to 0,
If Format(datTimeValue, "hh:mm:nn") = "00:00:00" Then
' Turn off the timer
Me.TimerInterval = 0
' Make a sound
Beep
' Put the focus on the text box
Me.txtClock.SetFocus
' Disable the Pause and Stop buttons
Me.cmdPause.Enabled = False
Me.cmdStop.Enabled = False
End If
End Sub

Private Sub cmdPause_Click()
' Stop the timer
Me.TimerInterval = 0
End Sub

Private Sub cmdStop_Click()
' Stop the timer
Me.TimerInterval = 0
' Clear the text box
Me.txtClock = #00:00:00#
' Put the focus there
Me.txtClock.SetFocus
' Disable pause and stop
Me.cmdPause.Enabled = False
Me.cmdStop.Enabled = False
End Sub

That should get you startedŠ

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: Bill Singer <Bill.Singer@at-group.net>
Reply-To: <MS_Access_Professionals@yahoogroups.com>
Date: Friday, November 30, 2012 5:33 PM
To: <MS_Access_Professionals@yahoogroups.com>
Subject: RE: [MS_AccessPros] Timer

John,

Well I guess that is bad news and good news. I was hoping for some type of
"Clock" function. The good news is that it can still be done. Your
question at the end of your email made me laugh. Absolutely I will need
help writing that code! Anything you can send my way would be great.

Thanks,

Bill Singer

From: MS_Access_Professionals@yahoogroups.com
[mailto:MS_Access_Professionals@yahoogroups.com] On Behalf Of John Viescas
Sent: Friday, November 30, 2012 9:59 AM
To: MS_Access_Professionals@yahoogroups.com
Subject: Re: [MS_AccessPros] Timer

Bill-

If you just want a digital countdown, you can build your own with a Text
Box and the Timer event. Enter the total time you want to start at in the
text box, then click a Start button. Code behind the Start button would
then set the form's TimerInterval property to 1000 (1000 milliseconds = 1
second) to start the clock. In your On Timer event procedure, subtract 1
second from the clock value. You could also provide a Pause button (set
TimerInterval to 0 to stop it from firing) and a Stop button (set
TimerInterval to 0 and set the Text Box to 0). Need some help writing the
code?

The other alternative is to search for a clock or countdown ActiveX
control on the web.

John Viescas, Author
Microsoft Access 2010 Inside Out
Microsoft Access 2007 Inside Out
Microsoft Access 2003 Inside Out
Building Microsoft Access Applications
SQL Queries for Mere Mortals
http://www.viescas.com/
(Paris, France)

-----Original Message-----
From: Bill Singer <Bill.Singer@at-group.net
<mailto:Bill.Singer%40at-group.net> >
Reply-To: <MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> >
Date: Friday, November 30, 2012 4:32 PM
To: <MS_Access_Professionals@yahoogroups.com
<mailto:MS_Access_Professionals%40yahoogroups.com> >
Subject: [MS_AccessPros] Timer

I am wondering if access has a clock function or something that would work
like a game clock in a football game. I want to set the time, click the
start button and then have the clock start counting down.

Thanks,

Bill

MN

[Non-text portions of this message have been removed]

------------------------------------

Yahoo! Groups Links

[Non-text portions of this message have been removed]

------------------------------------

Yahoo! Groups Links