صوت جرس عند ظهور رساله

[النجاشي]

السلام عليكم احبتي 

هل من طريقه لتعديل الكود لكي يعطنا صوت نفس الجرس عند ظهور الرساله 

تحياتي اليكم احبتي

  If DCount("[Rajmsanf]", "Alsnaf", "[Rajmsanf]=[forms]![ÇÖÇÝå ÕäÝ]![Rajmsanf]") >= 1 Then
        
        MsgBox "  åÐÇ ÇáÇÓã ãæÌæÏ ÈÇÓã   " & DLookup("[Sanf]", "Alsnaf", "[Rajmsanf] = Forms![ÇÖÇÝå ÕäÝ]![Rajmsanf]")
        DoCmd.CancelEvent
        Me.Undo
        End If

[ابوخليل]

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

 

[النجاشي]

ياليت  لو لديك الوقت استاذنا القدير@ابوخليل لو وجد مثال مصغر كي نطبق منه 

بارك الله فيك

نورت المنتدي حبيبنا استاذنا ابو خليل 

تحياتي اليك

تم تعديل مارس 4, 2018 بواسطه ابو زاهر

[sandanet]

اخي الكريم ابو زاهر

لعمل ما تريد قم باضافة الكود التالي الى وحدة نمطية جديدة وسميها runsound مثلاً

Option Explicit
Option Compare Database
Declare Function sndplaysound Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Dim r As Long

Public Function Mysound()
On Error Resume Next

 r = sndplaysound(Application.CodeProject.Path & "\schoolbell.wav", &H1)     ' اذا كان مسار الملف الصوتي خارج مجلد الصوتيات
 'r = sndplaysound(Application.CodeProject.Path & "\wavs\" & "schoolbell.wav", &H2)
End Function

 

 

ثم قم بوضع الكود التالي مكان الكود الذي اشرت إليه في السؤال

 If DCount("[Rajmsanf]", "Alsnaf", "[Rajmsanf]=[forms]![اضافه صنف]![Rajmsanf]") >= 1 Then
        
        MsgBox "  هذا الاسم موجود باسم   " & DLookup("[Sanf]", "Alsnaf", "[Rajmsanf] = Forms![اضافه صنف]![Rajmsanf]")
        DoCmd.CancelEvent
        Mysound
        Me.Undo
        End If

 

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

 

أما اذا اردت اصدار صوت فقط عند ظهور الرسالة يعني صوت من الاكسس فقط فاترك ماسبق من اكواد وضع الكود التالي Beep قبل Me.undo

 

تحياتي

schoolbell.zip

[النجاشي]

استاذي الكريم @sandanetاليك القاعده لقد عملت الوحده النمطيه راجع الوحده النمطيه عشان عطلت هذا السطر

'Option Compare Database

كان يعمل لي مشكله

والشي الاخر اريد صوت الجرس اثناء ظهور الرساله شاكر اليك من كل قلبي

تحياتي

مجلد جديد.rar

تم تعديل مارس 4, 2018 بواسطه ابو زاهر

[ابو جودي]

اتفضل

المثال يعمل بصوتين مختلفين

الاول من الملف المرفق لو موجود فى نفس المجلد بنفس مسار القاعدة وفى حالة عدم وجوده يستخدم صوت من اصوت النظام ...حلوة الفكرة دى 

play sound.rar

للتأكد من عمل المرفق بصوتين للانذار مختلفين

رجاء بعد التجربة حذف المجلد schoolbell او تغيير اسمه واعادة المحاولة مرة اخرى لتجد ان صوت التنبيه قد تغير

كل الشكر والتقدير والعرفان للاستاذ المبجل @أبو آدم  صاحب فكرة تنسيق صندوق الرسائل

[sandanet]

تفضل .. فقط قم بوضع ملف الصوت مع قاعدة البيانات

الجرد.zip

وهذا ملف استاذي القدير ابا جودي بعد اجراء بعض التعديلات الطفيفة عليه

قم بوضع ملف صوت الجرس مع القاعدة مباشرة وجرب الخيار الاول ومن ثم قم بتغيير اسم ملف الصوت وجرب الخيار الاول مرة اخرى

اما بالنسبة للخيار الثاني فهو نفس الخيار الاول لكن هنا يجب عليك وضع ملف الصوت بمجلد اسمه schoolbell

 

تحياتي

 

play sound.zip

تم تعديل مارس 4, 2018 بواسطه sandanet

[النجاشي]

شكرا اليك استاذي@sandanet  نعم هو المطلوب

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

استاذتي الكرام