command button time limit

Hi
Can you put a code in a command button that only allows it to run for a certain amount of time? say 5 seconds?

Ive looked everywhere and triend going through the object browser and cant find anything

or

Can the command buttons code run until another command button or action is done?

Any help would be great

Thanks

Dan

What is the code in the command button? you could do something along the lines of:

dim time_limit
time_limit = now() + 00:00:05
do until now()>time_limit
  'code
loop

Hi thanks for replying at the moment its

Private Sub CommandButton12_Click()
Call PlaySound
t = Now() + TimeValue("00:00:05")
myTime = Format(t, "hh:mm:ss ampm")
End Sub

Playsound being the module

Ok, so:

Private Sub CommandButton12_Click()
Call PlaySound, time_limit
time_limit = Now() + TimeValue("00:00:05")
do until now() > time_limit
t = Now() + TimeValue("00:00:05")
myTime = Format(t, "hh:mm:ss ampm")
loop
End Sub

would continually run that code for 5 seconds.

Ok Great

I tried that and theres a syntax error on

Call PlaySound, time_limit

Is it possible to stop the code running after 5 seconds until command button is clicked again? or do i need to put a code into the after_update or another section?, i tried removing the loop, but it doesnt like that...

Sorry, I thought that line was the dim part, try this instead:

Private Sub CommandButton12_Click()
time_limit = Now() + TimeValue("00:00:05")
do until now() > time_limit
Call PlaySound
t = Now() + TimeValue("00:00:05")
myTime = Format(t, "hh:mm:ss ampm")
loop
End Sub

If you want the start/stop thing you would need to use ontime to loop through the code and you would also need some way of keeping track of whether the button should start or stop the sound - maybe change the text on the button from "start sound" to "stop sound"

Ok thats great thank you for your help i will have a look at adjusting the module and code see if i can get it to stop for me