[AccessD] Click Sound

Like they say, "There's an API for that".


Option Compare Database
Option Explicit

Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
    (ByVal filename As String, ByVal SND_ASYNC As Long) As Long
    
Const SND_SYNC = 0
Const SND_ASYNC = 1

Function Click()
  Dim retval As Long
  retval = apisndPlaySound(CurrentProject.Path & "\Click.wav", SND_ASYNC)
End Function

Up to you to find a suitable "Click.wav"


On 6 May 2013 at 21:35, Rocky Smolin wrote:

> Client wants it because he's seriously considering turning the system I
> wrote for him to manage his business into a product.  I gave him my book and
> said if you read this and then lie down and the feeling doesn't pass then
> we'll talk.
> 
> So we've been talking and he's ready to start down that path. Thinks he can
> sell 50 of them in a year and then find someone to acquire it and do another
> project.  Lot of guys have that idea - this guy is one of the few that think
> actually could.
> 
> And one of the user friendly things he wanted was that click sound when you
> click a command button.  So if I do it, it has to be version independent,
> and not be triggering a player to play the sound - has to be immediate so
> there's a visual/aural connection. I think it's one of those 'features' that
> may get put on the Version 2 list.
> 
> R
>