声音函数

dasxsf

我是access初学者，在 Access交流讨论区发现如下帖子

让你的ACCESS程序发出声音的函数

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

  Function PlaySound(sWavFile As String)
    ' Purpose:  Plays a sound.
    ' Argument: the full path and file name.
    If apisndPlaySound(sWavFile, 1) = 0 Then
        MsgBox "The Sound Did Not Play!"
    End If
  End Function
调用方法：PlaySound "文件名.WAV"

不知如何应用，PlaySound "文件名.WAV"  ，该语句应写在什么位置？

我想设计在查询中，如果没有查到，出现提示框，并有声音提示。

Private Sub Command1_Click()
    Me.子窗体.Requery
  
    If Me.子窗体.Form.CurrentRecord = 0 Then MsgBox "对不起，没有此记录"
   在此加入声音提示
End Sub

     敬请各位指导！谢谢！

andymark

Private Const SND_APPLICATION = &H80
Private Const SND_ALIAS = &H10000
Private Const SND_ALIAS_ID = &H110000
Private Const SND_ASYNC = &H1
Private Const SND_LOOP = &H8
Private Const SND_MEMORY = &H4
Private Const SND_NODEFAULT = &H2
Private Const SND_NOSTOP = &H10
Private Const SND_NOWAIT = &H2000
Private Const SND_PURGE = &H40
Private Const SND_RESOURCE = &H40004
Private Const SND_SYNC = &H0
Private Declare Function PlaySound Lib "winmm.dll" Alias "laySoundA" (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Private Sub Command0_Click()
Me.子窗体.Requery
If Me.子窗体.Form.CurrentRecord = 0 Then MsgBox "对不起，没有此记录"

PlaySound "C:\WINDOWS\MEDIA\TADA.WAV", ByVal 0&, SND_FILENAME Or SND_ASYNC
End If
End Sub

dasxsf

太谢谢您了，运行成功

75501241

[em01]