مشكلة في ملف الصوت في الاكسس

بســم الله الـرحمــن الرحيــم

اخواني

السلام عليكــم ورحمـة الله وبركاتــه ،،

في البداية اشكركم على السماح لي بالاشتراك في هذا المنتدى الذى ارى فيه التسابق على طرح كا ماهو مفيدوالمبادرة على حل كل مشكلة تواجه العضو فجزاكم الله كل خير

اخواني انا معلم صممت برنامج لعمل مسابقات تتكون الاسئلة من خلال صوت

ادرجت الصوت من خلال وحدة نمطية

وهذا الكود

Option Compare Database

Const SND_ASYNC = (1)

Const SND_NODEFAULT = (2)

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

Public Sub API_PlaySound(pWavFile As String)

Dim LResult As Long

'Make a Windows API call to play a wav file

LResult = sndplaysound(pWavFile, SND_NODEFAULT + SND_ASYNC)

End Sub

ثم عملت نموذج ووضعت زر وفي برمجة الزر وضعت هذا الكود

API_PlaySound "C:\Documents and Settings\aezaz\سطح المكتب\A\dear2[1].wav"

عمل البرنامج نعي بصورة ائعة

ولكن عندما ذهبت به الى المدرسة ونقلت البرنامج عن طريق يو اس بي الى كمبيوتر المدرسة لم بعمل الصوت

امل التكرم ب حل لهذه المشكلة

وهي عندما انقل البرنامج منجهاز الى جهاو يعمل الصوت

شاكر ومقدر تعاونكم