bahsettiğiniz talebinize yönelik olarak;
Kod:
Option Compare Database
Kod:
#If VBA7 Then
Private Declare PtrSafe Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
#Else
Private Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long
#End If