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

**النجاشي** · مارس 4, 2018

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

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

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

If DCount("[Rajmsanf]", "Alsnaf", "[Rajmsanf]=[forms]![ÇÖÇÝå ÕäÝ]![Rajmsanf]") >= 1 Then

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

**ابوخليل** · مارس 4, 2018

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

**النجاشي** · مارس 4, 2018

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

بارك الله فيك

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

تحياتي اليك

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

**sandanet** · مارس 4, 2018

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

لعمل ما تريد قم باضافة الكود التالي الى وحدة نمطية جديدة وسميها 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