Option Compare Database
Option Explicit
Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _
(ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As
Long
'· pszSound
'A string that specifies the sound to play.
'If this parameter is NULL, any currently playing waveform sound is stopped.
'To stop a non-waveform sound, specify SND_PURGE in the fdwSound parameter.
'Three flags in fdwSound (SND_ALIAS, SND_FILENAME, and SND_RESOURCE)
determine whether the name is interpreted
'as an alias for a system event, a filename, or a resource identifier.
'If none of these flags are specified, PlaySound searches the registry or
the WIN.INI file
'for an association with the specified sound name. If an association is
found, the sound event is played.
'If no association is found in the registry, the name is interpreted as a
filename.
'· hmod
'Handle of the executable file that contains the resource to be loaded.
'This parameter must be NULL unless SND_RESOURCE is specified in fdwSound.
'· fdwSound
'Flags for playing the sound. The following values are defined:
'SND_APPLICATION
'The sound is played using an application-specific association.
'SND_ALIAS
'The pszSound parameter is a system-event alias in the registry or the
WIN.INI file.
'Do not use with either SND_FILENAME or SND_RESOURCE.
'SND_ALIAS_ID
'The pszSound parameter is a predefined sound identifier.
'SND_ASYNC
'The sound is played asynchronously and PlaySound returns immediately after
beginning the sound.
'To terminate an asynchronously played waveform sound, call PlaySound with
pszSound set to NULL.
'SND_FILENAME
'The pszSound parameter is a filename.
'SND_LOOP
'The sound plays repeatedly until PlaySound is called again with the
pszSound parameter set to NULL.
'You must also specify the SND_ASYNC flag to indicate an asynchronous sound
event.
'SND_MEMORY
'A sound event's file is loaded in RAM.
'The parameter specified by pszSound must point to an image of a sound in
memory.
'SND_NODEFAULT
'No default sound event is used. If the sound cannot be found,
'PlaySound returns silently without playing the default sound.
'SND_NOSTOP
'The specified sound event will yield to another sound event that is already
playing.
'If a sound cannot be played because the resource needed to generate that
sound is busy playing another sound,
'the function immediately returns FALSE without playing the requested sound.
'If this flag is not specified, PlaySound attempts to stop the currently
playing sound
'so that the device can be used to play the new sound.
'SND_NOWAIT
'If the driver is busy, return immediately without playing the sound.
'SND_PURGE
'Sounds are to be stopped for the calling task.
'If pszSound is not NULL, all instances of the specified sound are stopped.
'If pszSound is NULL, all sounds that are playing on behalf of the calling
task are stopped.
'You must also specify the instance handle to stop SND_RESOURCE events.
'SND_RESOURCE
'The pszSound parameter is a resource identifier; hmod must identify the
instance that contains the resource.
'SND_SYNC
'Synchronous playback of a sound event. PlaySound returns after the sound
event completes."
Private Const SND_APPLICATION = &H80 ' look for application specific
association
Private Const SND_ALIAS = &H10000 ' name is a WIN.INI [sounds] entry
Private Const SND_ALIAS_ID = &H110000 ' name is a WIN.INI [sounds] entry
identifier
Private Const SND_ASYNC = &H1 ' play asynchronously
Private Const SND_FILENAME = &H20000 ' name is a file name
Private Const SND_LOOP = &H8 ' loop the sound until next sndPlaySound
Private Const SND_MEMORY = &H4 ' lpszSoundName points to a memory file
Private Const SND_NODEFAULT = &H2 ' silence not default, if sound not found
Private Const SND_NOSTOP = &H10 ' don't stop any currently playing sound
Private Const SND_NOWAIT = &H2000 ' don't wait if the driver is busy
Private Const SND_PURGE = &H40 ' purge non-static events for task
Private Const SND_RESOURCE = &H40004 ' name is a resource name or atom
Private Const SND_SYNC = &H0 ' play synchronously (default)
Function PlayIt()
PlaySound "C:\\WINDOWS\\MEDIA\\TADA.WAV", ByVal 0&, SND_FILENAME Or
SND_ASYNC
End Function
Appears to work, but don't ask any questions. Found it somewhere
HTH
Phil
"Marco Krechting" <ma************@zonnet.nl> wrote in message
news:52*************************@posting.google.co m...
Hi All,
I have a database with the timer function set to warn the user that
arecord is due to expire. Is there a Win API that I can use so a loud
warning will go off. Not this simpel beep in access but a really,
like Virus Alert kind of warning?
Regards
Marco