View Single Post
  #2   Report Post  
Posted to microsoft.public.excel.misc
smartin smartin is offline
external usenet poster
 
Posts: 915
Default Preventing a command button from being clicked twice

NDBC wrote:
I am using excel 2003 to keep lap times in a dirt bike race. I have a command
button that is clicked to record the time the race starts. The code is below.

Private Sub StartButton_Click()
Worksheets("Timing Sheet").Range("A6").Value = Format(Now, "h:mm:ss")
End Sub

What I need to do is to ensure that the button is not clicked accidently
after the race has started. Is there a way that I can count how many times it
has been clicked and if it is more than once it comes up with a warning along
the lines of "the race has started are you sure you want to change the race
start time" with a yes/no option.

The other thing I would like to do is store a backup copy of the original
start time somewhere else in the worksheet in a way that it is nopt updated
every time the button is clicked.

Any help will be gladly appreciated.

Thank you


Another idea is to disable the StartButton after it is clicked:
StartButton.Enabled = False

Then set the value to True after satisfying some condition (e.g., when
the StopButton is clicked, if you have such).

If you want to keep counts you can create a module- or form-level
variable that you increment in the button click event. Do this by
declaring said variable at the top of the module, just under "Option
Explicit" (if you have that) and prior to any subs or functions. Don't
forget to reset this variable appropriately.

You might not actually need to store a backup copy of start time if you
try out the above ideas, but if you want to do it anyway you can store
it in another module- or form- level variable, or write something like

Range("AZ999").Value = Range("A6").Value

Just make sure this line is not called on subsequent clicks.