Ovo je funkcija koju je postavio Zidar na temi "Access baza znanja". Necu da budem zajedljiv, ali mozda da probas sa pretragom neki put?

VBA

Kako iz VBA koda aktivirati zvuk? Funkcija PlaySound se poziva kao
=PlaySound("C:\WINDOWS\media\chord.wav")

WAV fajlovi proizvode bazicne zvuke. Ima i zvuk registar kase, sudar automobila, pucanje stakla, skripa kocnica, pa pustite masti navolju, pa kad korisnik unese nesto lose, e onda ga upucajte zvukom pistolja.

'******* CODE START

Option Compare Database
Option Explicit

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.
'call: PlaySound("C:\WINDOWS\media\chord.wav")
If apisndPlaySound(sWavFile, 1) = 0 Then
MsgBox "The Sound Did Not Play!"
End If
End Function

'****** CODE END