كمبوبوكس لفتح ملف صوت مع البحث

مرفق ملف لكى يسهل على الاخوه مساعدتى

وجزاكم الله خيراً

Test.rar

اخي الكريم

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

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

ولكنك يا اخي لم تقم بإرفاق الاصوات مع الملف لهذا تم الاستعانه بملفات صوت من الويندوز وتستطيع تغييرها بما لديك من اصوات

حسب الطريقه التالية :

1. يوجد في القاعدة وحدتين نمطيتين وهي المسئوله عن اظهار الاصوات قم بإستيرادها لبرنامج الاصلي .

2. تم ادراج كود جديد بواسطة الدالة Select Case

Private Sub مربع_تحرير_وسرد5_AfterUpdate()
    ' ابحث عن السجل الذي يطابق عنصر التحكم.
    Dim rs As Object

    Set rs = Me.Recordset.Clone
    rs.FindFirst "[قائمة المراسلات] = " & Str(Nz(Me![مربع_تحرير_وسرد5], 0))
    If Not rs.EOF Then Me.Bookmark = rs.Bookmark

Select Case [الكلمة]
Case Is = "AHMED"
Call PlaySound(Application.CurrentProject.Path & "\ding.wav")
Case Is = "Mohammed"
Call PlaySound(Application.CurrentProject.Path & "\chimes.wav")
Case Is = "ALI"
Call PlaySound(Application.CurrentProject.Path & "\chord.wav")
End Select
End Sub

3. قم بنسخ ملفات الاصوات الخاصه بـ AHMED.wav و Mohammed.wav و ali.wav الى مجلد القاعده .

من هذا الكود قم بتغيير الصوت

ding.wav

الى ملف الصوت

AHMED.wav

وكذلك الصوت

chimes.wav

الى ملف الصوت

Mohammed.wav

وايضا الصوت

chord.wav

الى

ALI.wav

وهذا مثال مرفق

Test3.rar

اختكم

زهره

جزاكم الله خيراً

صدقاً انا عاجز عن الشكر ،،،

اسأل الله ان يخلص اعمالكم لوجهه