Adding a sound on exiting the database (1 Viewer)

I want to add a sound for when someone quits the database.

Ive tried adding this to the Event of my Quit Application button.

Me!ByeBye.Action = acOLEActivate

I inserted the sound file into the form.

But it does nothing. Could I bother someone for some help with this?
Thanks

Copy this into a module...

Option Compare Database
Option Explicit

'PlayWaveFile
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

Public Function PlayWaveFile(sWavFile As String)
If apisndPlaySound(sWavFile, 1) = 0 Then
'MsgBox "The Sound Did Not Play!"
End If
End Function

Public Sub PlayWaveFile_Cord()
Call PlayWaveFile("C:\Windows\Media\chord.wav")
End Sub

My example will play the standard 'chord' wave file. To call it from another event in your db, just use this...

Call PlayWaveFile_Cord

HTH

Nice code Ghudson.

Thanks for sharing...

With kind regards,
Ashfaque