سؤال عن ماكرو لتشغيل ملف صوتي عند تشغيل قاعدة بيانات اكسيس

[abo2000bc]

السلام عليكم

تحية طيبة لكل الاعضاء والمشرفين على حد سواء

اما بعد

ارجو من حضراتكم افادتي فيما يلي:

قمت باضافة كود لنموذج معين .. هذا النموذج مرتبط بماكرو لعرضه عند بداية تشغيل القاعدة .. بالنسبة للكود فهو يقوم بتشغيل رسالة تحذير تظهرعند فتح قاعدة البيانات .. هذا الرسالة تتضمن خيارين .. الموافقة تعنى استمرار فتح قاعدة البيانات والرفض يعني عدم فتحها .. والان اريد ان اضيف ملف صوتي معين بحيث يبدأ في العمل بعد الموافقة على رسالة التحذير مباشرة ولا اعرف ان كان ذلك ممكنا عن طريق ماكرو او عن طريق كود اخر يضاف الى النموذج سالف الذكر .. اتمنى من الخبراء افادتي واذا لم يكن هذا متاحا فارجو التفضل بالرد .. الكود مرفق ارجو الاطلاع عليه والتعديل اذا امكن.

Private Sub Form_Open(Cancel As Integer)

If MsgBox("ÇäÊÈå: ÇäÊ ÇáÇä ÈÕÏÏ ÊÔÛíá ÞÇÚÏÉ ÈíÇäÇÊ ÍßæãíÉ.. åá ÊÑÛÈ Ýí ÇáÇÓÊãÑÇÑ ¿¿ ", _

vbInformation + vbYesNo, _

"ÊÍÐíÑ") = vbYes Then

Exit Sub

Else

DoCmd.Quit

End If

End Sub

اشكر لكم كرمكم وحسن تعاونكم

والله من وراء كل مقصد

تم تعديل سبتمبر 10, 2012 بواسطه abo2000bc

[محمد السوداني]

تفضل حمل المرفق به قاعدة بيانات وملف صوتي أفتح النموذج وسيعمل الملف الصوتي إن شاء الله

db3.zip

[Khalid Jnb]

اخوتي الاعزاء

يرجى اضافة زر ايقاف الصوت رحاءأ

[Khalid Jnb]

السلام عليكم

تم اضافة زر تشغيل وزر ايقاف تشغيل الصوت. وتدلل اخويه

 

db3.zip