Play a certain sound on command

[brianjessup]

How would you play your own sound bites when you want?

 

[Newman]

I am not sure about that one, but I'll give it a try, since no one else gave you answers.

I think it is :
Call Shell(«Your sound file»)

 

[ghudson]

Try this...

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

HTH

 

[brianjessup]

Thanks!

Newman, I didn't try your suggestion yet, but ghudson, I did and wow that's awesome!!! Works like a charm. Thanks so much to both of you!

 

[hmongie]

Hey Ghudson,

how do you call that code through a button?

 

[ghudson]

Hey Ghudson,
how do you call that code through a button?

Your kidding, right?

Private Sub YourCommandButton_Click()
Call PlayWaveFile_Cord
End Sub

 

[hmongie]

Your kidding, right?

Private Sub YourCommandButton_Click()
Call PlayWaveFile_Cord
End Sub

nah... no kidding...

I tried it but it wouldn't play. When I do run the module, it runs fine. On a command button, it's not referencing the module at all. I tried the above already. I'll try it again.