Tek-Tips is the largest IT community on the Internet today!
Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!
-
Congratulations Chriss Miller on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!
Sounds in Access
- Thread starter wjc1022
- Start date
add this to a module:
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound(strSound)
Call sndPlaySound32(strSound, 0)
End Sub
add this to the gotfocus event:
Call PlaySound("C:\Windows\Media\chimes.wav"
Declare Function sndPlaySound32 Lib "winmm.dll" Alias "sndPlaySoundA" (ByVal lpszSoundName As String, ByVal uFlags As Long) As Long
Public Sub PlaySound(strSound)
Call sndPlaySound32(strSound, 0)
End Sub
add this to the gotfocus event:
Call PlaySound("C:\Windows\Media\chimes.wav"
- Status
Similar threads
- Locked
- Question
- Locked
- Question