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