• 0
سيف محمد صبحي

تعديل هذا الكود لوندوز 7

سؤال

Dim مسار_ملفات_الصوت As String
Dim اسم_الملف As String
Dim PauseTime, Start
Dim الاختيار_الحالي
Dim fs
الاختيار_الحالي = Application.GetOption("Move After Enter")
Application.SetOption "Move After Enter", 1 ' الحقل التالي


On Error Resume Next
DoCmd.GoToControl Screen.PreviousControl.Name

مسار_ملفات_الصوت = CurrentProject.Path & "\" & "mywave" & "\"
Do While Me!أبدأ_القراءة = -1 And Me.NewRecord = False
'    SendKeys "{Enter}"
    اسم_الملف = Me.ActiveControl.Value & ".WAV"
        ' هل الملف موجود
        Set fs = CreateObject("Scripting.FileSystemObject")
       
        If fs.FileExists(مسار_ملفات_الصوت & اسم_الملف) = False Then
          Call PlaySo
    
        
       ' MsgBox "الملف الخاص بهذا الرقم غير موجود ."
        DoCmd.Close
        Exit Sub
       End If
    If IsNumeric(Me.ActiveControl.Value) = True Then

    Call Shell("C:\WINDOWS\system32\Sndrec32.exe /play """ & مسار_ملفات_الصوت & اسم_الملف & """ /close ", 6)
   End If
    SendKeys "{Enter}"
    PauseTime = 2 ' عدد الثواني كل 1 يساوي ثانية
    Start = Timer
    Do While Timer < Start + PauseTime
   DoEvents
    Loop
      Loop
Application.SetOption "Move After Enter", الاختيار_الحالي
أبدأ_القراءة = 0

0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

1 إجابات على هذا السؤال .

  • 0

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

قم بتنصيب برنامج Splayer

من الرابط التالي

SPLAYER

ثم قم بتعديل الكوك ليكون على الصورة التالية

Call Shell(" "C:\splayer.exe" /play  """ & مسار_ملفات_الصوت & اسم_الملف & """ /close ", 6)

اهم شيء تأكد من مسار التطبيق و مسار ملف الصوت

تم تعديل بواسطه mirage4pc
0

شارك هذا الرد


رابط المشاركة
شارك الرد من خلال المواقع ادناه

من فضلك سجل دخول لتتمكن من التعليق

ستتمكن من اضافه تعليقات بعد التسجيل



سجل دخولك الان

  • يستعرض القسم حالياً   0 members

    لا يوجد أعضاء مسجلين يشاهدون هذه الصفحة .