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
Potpis
"Takozvani praktični ljudi bili bi korisni i zasluživali bi svaku pohvalu i poštovanje kad od te svoje praktičnosti ne bi hteli da naprave smisao života i razlog svoga opstanka, opravdanje za podjarmljivanje i terorisanje svih onih koji su lišeni toga praktičnog smisla, ali zato stvoreni za druge, možda više i bolje podvige."
Ivo Andric