Try to copy the following code in a new module and save the module as e.g. modWave
Call the function like shown in the line Example.
<start code here>
Option Compare Database
Option Explicit
Private Declare Function apiPlaySound Lib "Winmm.dll" Alias "sndPlaySoundA" _
(ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Function csvPlayWave(ByVal FileName As String, ByVal How As Integer) As Integer
csvPlayWave = apiPlaySound(Trim(FileName), How)
'Example:
'Dim Retkode as integer
'Retkode =csvPlayWave("c:\windows\media\tada.wav", 1)
End Function
<end code here>
Arno R
"Tempy" <an*******@devdex.com> schreef in bericht news:_I****************@news.uswest.net...
Hi Arno, as a newbie i think for now this is outa reach for me.
Thanks for the site.
Tempy
*** Sent via Developersdex http://www.developersdex.com ***