how do i delay the start of button function by 5 sec

[neelsfer]

I have a sound wav file that must first play for about 5 sec and then data must be added to a field only. Currently the sound start to play and a 1 second later the data is added to a table
My code i currently use is

Dim iRetValue As Long
  iRetValue = sndPlaySound(CurrentProject.Path & "\Beepgunshot.wav", SND_ASYNC)
[Forms]![racef]![TimeSF]![timestart] = Format(Now, "dd/MM/yyyy HH:nn:ss") & "." & Right(Format(Timer, "#0.00"), 2)

there is a module involved for the wav file

The attached file is in v2003

[NeoPa]

I'm not familiar with the function sndPlaySound() but I think the clue is in the last parameter SND_ASYNC. You want the function to run synchronously of course.

[neelsfer]

got the delay right to the millisecond

Private Declare Sub Sleep Lib "kernel32" (ByVal dwMilliseconds As Long)

and in the button code added this at right place to delay

Sleep 3900

[NeoPa]

Did you not find the list of allowable parameters for sndPlaySound()? I can see your solution is a good one, but if you use the function as (I expect) it is designed for this scenario, you wouldn't even have the problem to need a clever solution. I can't find anything about it as it's not an Access function at all, but you must have it available in order to use it.

PS. The approach you use is open to failure if anything delays the processing of the sound. This may not be a big problem in your project, but surely less appropriate than running the sound synchronously in the first place.

[neelsfer]

Thx NeoPa. I searched the internet for your solution but could not find anything. Then came across this other solution. It seems to work fine for now.

[NeoPa]

I'm not sure why you'd search the internet for it when you must have the library to hand anyway in order to use it, but that's by-the-by I suppose. If you're happy with that then who am I to worry.

[neelsfer]

Neopa i am still a beginner but learning fast. This project of mine has taught me so much already, and i am very great full to you and Adezi and others that regularly helped me so much in he last few months.My timing program is working brilliantly now and if you ever have people needing info on timing races, refer them to me by all means.
Neels

[ADezii]

For the record, NeoPa had the solution in Post #2, where he suggested that you execute the Sound File Synchronously. The syntax is:

Public Const SND_SYNC = &H0

Dim iRetValue As Long
 
iRetValue = sndPlaySound("C:\Test\Test.wav", SND_SYNC)
 
'You will not see this Message Box until Test.wav has finished playing
MsgBox "Sound completed!"

P.S. - I feel as though this is a much cleaner and more efficient approach.

[NeoPa]

To be fair, missing the proper solution is often a cause of learning more about other areas and aspects. Neels has got some good experience of using delays and timers etc, even if this is not an appropriate place to use it.

PS. Thanks for the post ADezii.