Timer to Enable/Disable a Button

[James]

Hello,
I am having a problem with a MS Access 2000 Database that I
partially helped create. I am recording visits that registered
customers make to our store. I have a list of all the elidgible people
that can shop, and when I click a button, it records a visit for today
in Date/Time format.

My problem is that the button that records the visit can be
clicked multiple times, and I am trying to find a way to lock it for a
few seconds so that itchy double-clickers can't record more than one
visit every 5 seconds. Basically, I am looking for code in VB that
"upon click, disable such&such button for 5 seconds."

If anyone can help, it would be greatly appreciated.

Thanks-

[Brian Puffer]

James,

Add a timer to your form and set the interval property to like 5000 (5
sec's), and the Enabled property to False then...

Sub SaveButton_Click

SaveButton.Enable = False
Timer1.Enable = False

End Sub

Sub Timer1_Timer

SaveButton.Enable = True
Timer1.Enable = False

End Sub

Hope this helps,

Brian


Ja***@agiftforteaching.org wrote:

Hello,
I am having a problem with a MS Access 2000 Database that I
partially helped create. I am recording visits that registered
customers make to our store. I have a list of all the elidgible people
that can shop, and when I click a button, it records a visit for today
in Date/Time format.

My problem is that the button that records the visit can be
clicked multiple times, and I am trying to find a way to lock it for a
few seconds so that itchy double-clickers can't record more than one
visit every 5 seconds. Basically, I am looking for code in VB that
"upon click, disable such&such button for 5 seconds."

If anyone can help, it would be greatly appreciated.

Thanks-

[deluxeinformation]

Brian Puffer wrote:

James,

Add a timer to your form and set the interval property to like 5000 (5
sec's), and the Enabled property to False then...

Sub SaveButton_Click

SaveButton.Enable = False
Timer1.Enable = False

End Sub

Sub Timer1_Timer

SaveButton.Enable = True
Timer1.Enable = False

End Sub

Hope this helps,

Brian

This might work well in VB, but Access does not have a native Timer
control.

You could probably rig up something similar with the form's Timer event
but I wouldn't bother. In gross terms I would simply set up the click
event of your Save button to save the time of the last successful save.
On each subsequent click check to see if 5 seconds have elapsed since
that time. If not, display a message saying "sorry, you have to wait 5
seconds". Otherwise, save the record and save the new successful save
time. Something like

Static varLastSave As Variant

If IsEmpty(varLastSave) Then
' save record here
MsgBox "Save successful."
varLastSave = Now
Else
If DateDiff("s", varLastSave, Now) < 5 Then
MsgBox "Sorry, you have to wait."
Else
' save record here
MsgBox "Save successful."
varLastSave = Now
End If
End If

[Lyle Fairfield]

Ja***@agiftforteaching.org wrote in news:1162414012.599181.160730
@i42g2000cwa.googlegroups.com:

Hello,
I am having a problem with a MS Access 2000 Database that I
partially helped create. I am recording visits that registered
customers make to our store. I have a list of all the elidgible people
that can shop, and when I click a button, it records a visit for today
in Date/Time format.

My problem is that the button that records the visit can be
clicked multiple times, and I am trying to find a way to lock it for a
few seconds so that itchy double-clickers can't record more than one
visit every 5 seconds. Basically, I am looking for code in VB that
"upon click, disable such&such button for 5 seconds."

If anyone can help, it would be greatly appreciated.

Thanks-

I would be inclined to modify the date before storing it and to create a
unique index on the person and that modified date.

A function to return just the date and hour might be:

Public Function DatetoNearestHour(ByVal vdate As Date) As Date
DatetoNearestHour = DateSerial( _
Year(vdate), _
Month(vdate), _
Day(vdate)) _
+ _
TimeSerial(Hour(vdate), 0, 0)
End Function

or

Public Function DatetoNearestHourB(ByVal vdate As Date) As Date
DatetoNearestHourB = CDate(Fix(24 * CDbl(vdate)) / 24)
End Function

Buttons are bad; they are a carry-over from dos; buttons with peculiar
code are badder.

--
Lyle Fairfield

from http://msdn.microsoft.com/library/de...l=/library/en-
us/dnmdac/html/data_mdacroadmap.asp

Obsolete Data Access Technologies
Obsolete technologies are technologies that have not been enhanced or
updated in several product releases and that will be excluded from future
product releases. Do not use these technologies when you write new
applications. When you modify existing applications that are written
using these technologies, consider migrating those applications to
ADO.NET.
The following components are considered obsolete:
....
Data Access Objects (DAO): DAO provides access to JET (Access) databases.
This API can be used from Microsoft Visual Basic®, Microsoft Visual C++®,
and scripting languages. It was included with Microsoft Office 2000 and
Office XP. DAO 3.6 is the final version of this technology. It will not
be available on the 64-bit Windows operating system.
.....