انذار وميض لشاشة الاكسس واصدار صوت عند حدث معين وايقافه عند حدث أخر

[momen268268]

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

اعزائي مشرفين ومشتركين هذا الصرح الاكثر من رائع والذي استفدت منه كثيرا جعله الله في ميزان حسناتكم 

 

اريد عمل انذار وميض لشاشة الاكسس واصدار صوت عند حدث معين وايقافه عند حدث أخر ومرفق شكل الشرح وملف الاكسس

وشكرا

db1.rar

[momen268268]

مفيش حل لمشكلتي؟؟؟

[momen268268]

مفيش حل لمشكلتي؟؟؟

[momen268268]

مفيش حل لمشكلتي؟؟؟

[momen268268]

مفيش حل لمشكلتي؟؟؟

[momen268268]

مفيش حل لمشكلتي؟؟؟

[صالح حمادي]

السلام عليكم

إليك طريقة لتشغيل ملف صوتي مع الأكسس

ضع هذا الكود في وحدة نمطية جديدة

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

   اجعل اسم الملف الصوتي ringin و صيغته Wav و ضعه في في مجلد البرنامج

و ضع هذا الكود خلف زر أمر

Dim x2 As String
x2 = (Application.CurrentProject.Path & "\ringin.wav")
 If apisndPlaySound(x2, 1) = 1 Then
 End If

و هذا مثال لا أعرف مصدره

 

تشغيل ملف صوتي بالأكسس.rar

[momen268268]

كل الاحترام وكل التقدير للاستاذ @صالح حمادي

مجهود طيب وممتاز بارك الله فيك وجعله في ميزان حسناتك

 

وقد بحثت فى الانترنت وبفضل الله ونعمته وجدت ضالتي 

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

أسأل الله أن ينفعنا وإياكم بالعلم النافع 

وأسألكم الدعاء

db1.mdb