Beep

[matrixindicator]

Every minute I like to let access create a beep.
I will look it up, I think it is possible with a time interval function. No no it is not because I have nothing else to do, its for a workout programme.

There is a build in function to create a beep. What if you like to run a little mp3 file and has someone a good url to download for free different beeps ?

 

[Ed2020]

You can do it behind the On_Timer event of a form.

I have posted a few sample beeps below:

Declare Function Beep Lib "kernel32.dll" (ByVal dwFreq As Long, ByVal dwDuration As Long) As Long
Declare Sub Sleep Lib "kernel32.dll" (ByVal dwMilliseconds As Long)

Public Function SMS()
Dim X As Integer, Y As Integer

For Y = 1 To 3
    X = Beep(2500, 150)
    Sleep 50
Next Y

Sleep 300

For Y = 1 To 2
    X = Beep(2500, 400)
    Sleep 50
Next Y

Sleep 300

For Y = 1 To 3
    X = Beep(2500, 150)
    Sleep 50
Next Y
End Function

Public Function Ris()
Dim X As Integer
X = 37
Do Until X >= 6500
    Beep X, 10
    X = X + 500
Loop

End Function

Public Function bp()
Beep 37, 1000
End Function

Ed Metcalfe.

Please do not feed the trolls.....

 

[Remou]

How about:

DoCmd.Beep

Or
FollowHyperlink "C:\Windows\Media\ding.wav"

 

[matrixindicator]

Thanks to all, I think I can do this for sure with this code.