Solved Sound in Access

[murray83]

I would like to put some sounds in access nd found this

How to Play Sounds in Access - Post.Byes

Most Access Users fail to realize that they can significantly enhance their applications by introducing various sounds (*.WAVs) in response to specific events. The only intrinsic sound that Access can generate is the DoCmd.Beep which is hardly worth the time to mention. You can incorporate sound...

bytes.com

but not sure if thats the best way could some one look and maybe point in another direction

cheers all

 

[Gasman]

Seems simple enough?
What are your concerns?

 

[The_Doc_Man]

If you want specific sounds other than the result of the VBA BEEP verb, you have to call an API function to play a .WAV or other type of sound file, which is what you got in that link. But heck, you can go completely crazy if you wish - because Excel has a Text To Speech feature that you could call through VBA and have your DB talk to you.

HINT: Take a VERY conservative approach when playing with sounds. Users will think they are either a great toy or a total annoyance. The folks who treat it as a toy usually have neighbors who will hate YOU for giving them the toy. I say this from an unfortunate experience I had where I enabled Text To Speech abilities.

Text to Speech in Excel VBA

Do you have an edition of Excel with "Text to Speech" installed? If so, you can make Excel speak from VBA code. Don't forget to turn up your speakers.

www.automateexcel.com

 

[murray83]

Seems simple enough?
What are your concerns?

well first concern was when i pasted it in the declarations went all ride line on me, as shown

 

[murray83]

sorry for the DP but this is the example i have done as when they press use potion i would like it to make a sound rather then normal access boings and bleeps

 

[Gasman]

well first concern was when i pasted it in the declarations went all ride line on me, as shown

Are you using 64 bit Access, as that works fine for my 32bit 2007 Access?

 

[murray83]

yeah its Microsoft 365 ( that bad )

 

[Gasman]

No, you just need to adjust it for 64 bit, or test for it and use the correct syntax.
Asked plenty of times on here, so search the site, or google for syntax.
It has never interested me, as I only have 32bit, and everyone used the same.

 

[isladogs]

I agree completely about using sound sparingly otherwise you will annoy your users.
Having said that it does have its uses.
Two examples of apps using sound

Countdown Timer

This countdown timer is similar to those found on smartphones. Use it to display remaining time (min/sec) during timed events. A choice of alarms are available to indicate when countdown has completed

www.isladogs.co.uk

Translate & Speak

This app uses the online Google Translate service to translate text between any of the 109 supported languages. It also includes a text to speech feature based on the natural voices for almost 40 languages available free in Windows

www.isladogs.co.uk

Text to speech is also available in Access and is used in the second app above

 

[murray83]

I agree completely about using sound sparingly otherwise you will annoy your users.
Having said that it does have its uses.
Two examples of apps using sound

Countdown Timer

This countdown timer is similar to those found on smartphones. Use it to display remaining time (min/sec) during timed events. A choice of alarms are available to indicate when countdown has completed

www.isladogs.co.uk

Translate & Speak

This app uses the online Google Translate service to translate text between any of the 109 supported languages. It also includes a text to speech feature based on the natural voices for almost 40 languages available free in Windows

www.isladogs.co.uk

Text to speech is also available in Access and is used in the second app above

thank you for the help, love your clock countdown, glad i had head phones when i put klaxon and ran it

 

[isladogs]

Yup. Meant to be annoying! Proves the point about using sound sparingly

The code in that app should be transferable for your purposes. Make sure the sound is run asynchronously so it can be stopped by the user

I know of an Access developer who uses text to speech in multiple places on every form. That would drive me demented!

 

[murray83]

@isladogs just got one question.

what have i done wrong, i belive i have the code right ( the code is in the form final battle on potion button ) but no sound but before when i have steped into it has played ( and played and played until i close access )

would you mind helping out if you can have a look

 

[Eugene-LS]

what have i done wrong, i belive i have the code right ( the code is in the form final battle on potion button ) but no sound but before when i have steped into it has played ( and played and played until i close access )

Try :

Private Sub TestPlayWaveFile()
'... \Sounds\potion_gulp.wav
    strSound = CurrentProject.Path & "\Sounds\potion_gulp.wav"
    PlayWaveFile
    StopWaveFile
End Sub

... Works!

 

[murray83]

Try :

Private Sub TestPlayWaveFile()
'... \Sounds\potion_gulp.wav
    strSound = CurrentProject.Path & "\Sounds\potion_gulp.wav"
    PlayWaveFile
    StopWaveFile
End Sub

... Works!

You say works but do you hear a sound then that plays just once as i did that and nothing so put a break in and steped into and played and played and played

 

[isladogs]

@murray83
You can't hear anything as you forgot to add the line PlayWaveFile after the strSound line

That very Irritating sound then plays four times but that only happens after the OK button is clicked on the message box

 

[Eugene-LS]

played and played

Check out example below please

 

[murray83]

thanks for that but i think it is my laptop ( well work laptop ) as the sound doesn't play either time on but will play in the folder

 

[murray83]

@murray83
You can't hear anything as you forgot to add the line PlayWaveFile after the strSound line

That very Irritating sound then plays four times but that only happens after the OK button is clicked on the message box

But then how do i make it only play once, im guessing change the play code or the wait and also how do i make it play before the OK button in the message is pressed, is that based on where it comes in the code

 

[isladogs]

You need to move the message box line after the sound plays.
Message boxes are modal so other code cannot run until OK is pressed.

I'm on my phone so can't run code at the moment.
To prevent the sound playing repeatedly, try reducing the Wait or removing it completely.
If something is needed to pause the code, try using DoEvents instead

 

[murray83]

thanks i shall try that