G Graham R Seach Jun 3, 2004 #2 http://www.pacificdb.com.au/MVP/Code/Sound.htm ....or... Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Public Sub PlayBeep() Dim iCtr As Long For iCtr = 0 To 5000 Step 10 'Play a tone of iCtr hertz, for 50 milliseconds Call Beep(iCtr, 50) DoEvents Next iCtr End Sub Regards, Graham R Seach Microsoft Access MVP Sydney, Australia Microsoft Access 2003 VBA Programmer's Reference http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
http://www.pacificdb.com.au/MVP/Code/Sound.htm ....or... Private Declare Function Beep Lib "kernel32" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long Public Sub PlayBeep() Dim iCtr As Long For iCtr = 0 To 5000 Step 10 'Play a tone of iCtr hertz, for 50 milliseconds Call Beep(iCtr, 50) DoEvents Next iCtr End Sub Regards, Graham R Seach Microsoft Access MVP Sydney, Australia Microsoft Access 2003 VBA Programmer's Reference http://www.wiley.com/WileyCDA/WileyTitle/productCd-0764559036.html
