اضافة ملف صوت الى برنامج اكسيس

اخوانى الاعزاء

انا احترت كتير وتعبت بسبب اضافة ملف صوت الى برنامج من تصميمى

وقد اعطيت هذا الكود ولكن دون فائدة

تشغيل صوت عند النقر

r = sndPlaySound(""C:\WINDOWS\MEDIA\notify.wav"", 1)

" "

ضع الكود التالي في بداية صفحة الأكواد بعد السطر الأول

Dim a As Boolean

Private Declare Function sndPlaySound Lib ""winmm.dll"" Alias ""sndPlaySoundA"" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long

"