عند أضافة سجل جديد من قبل الموظفين تشغيل حدث

كبداية يمكنك تجريب الخطوات التالية

فكر فى أضافة السطر الدالة فى فى ملف وحدة نمطية (Module)

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" (ByVal filename As String, ByVal snd_async As Long) As Long

ثم أضف الدالة التالية في نفس الوحدة النمطية

Function PlaySound(sWavFile As String)

    ' Purpose:  Plays a sound.

    ' Argument: the full path and file name.

    If apisndPlaySound(sWavFile, 1) = 0 Then

        MsgBox "The Sound Did Not Play!"

    End If

  End Function

ثم في الإجراء AfterUpdate  للنموذج المطلوب أستدعى الدالة بأمر كالتالى

PlaySound ("C:\WINDOWS\CHIMES.WAV")