abo2000bc قام بنشر سبتمبر 10, 2012 مشاركة قام بنشر سبتمبر 10, 2012 (معدل) السلام عليكم تحية طيبة لكل الاعضاء والمشرفين على حد سواء اما بعد ارجو من حضراتكم افادتي فيما يلي: قمت باضافة كود لنموذج معين .. هذا النموذج مرتبط بماكرو لعرضه عند بداية تشغيل القاعدة .. بالنسبة للكود فهو يقوم بتشغيل رسالة تحذير تظهرعند فتح قاعدة البيانات .. هذا الرسالة تتضمن خيارين .. الموافقة تعنى استمرار فتح قاعدة البيانات والرفض يعني عدم فتحها .. والان اريد ان اضيف ملف صوتي معين بحيث يبدأ في العمل بعد الموافقة على رسالة التحذير مباشرة ولا اعرف ان كان ذلك ممكنا عن طريق ماكرو او عن طريق كود اخر يضاف الى النموذج سالف الذكر .. اتمنى من الخبراء افادتي واذا لم يكن هذا متاحا فارجو التفضل بالرد .. الكود مرفق ارجو الاطلاع عليه والتعديل اذا امكن. 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 رابط هذا التعليق شارك More sharing options...
محمد السوداني قام بنشر سبتمبر 11, 2012 مشاركة قام بنشر سبتمبر 11, 2012 تفضل حمل المرفق به قاعدة بيانات وملف صوتي أفتح النموذج وسيعمل الملف الصوتي إن شاء الله db3.zip رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر أكتوبر 29, 2013 مشاركة قام بنشر أكتوبر 29, 2013 اخوتي الاعزاء يرجى اضافة زر ايقاف الصوت رحاءأ رابط هذا التعليق شارك More sharing options...
Khalid Jnb قام بنشر أغسطس 9, 2016 مشاركة قام بنشر أغسطس 9, 2016 السلام عليكم تم اضافة زر تشغيل وزر ايقاف تشغيل الصوت. وتدلل اخويه db3.zip رابط هذا التعليق شارك More sharing options...
الردود الموصى بها
Join the conversation
You can post now and register later. If you have an account, sign in now to post with your account.