Access - COMO CREAR UN TRADUCTOR A PARTIR DE ACCES

'No eliminar este comentario

'Obtenido de http://excelforo.blogspot.com.es/2013/12/vba-emitiendo-sonidos-desde-vba-en-excel.html

'No eliminar este comentario

Private Declare Function PlaySound Lib "winmm.dll" Alias "PlaySoundA" _

     (ByVal lpszName As String, ByVal hModule As Long, ByVal dwFlags As Long) As Long

Const SND_SYNC = &H0 '  (por defecto) Reproduce el sonido 'sincrónicamente'. Se interrumpe la _

                        ejecución de nuestro código hasta la finalización del sonido!!.

Const SND_ASYNC = &H1 ' Reproduce el sonido 'asincrónicamente'. El código continúa sin _

                        necesidad de que el sonido finalice.

Const SND_NODEFAULT = &H2 'En caso no se encuntre el sonido determinado no reproduciría _

                        el sonido por defecto, es decir, no sonaría nada...

Const SND_LOOP = &H8 '  Se reproduce el sonido ininterrumpidamente hasta que se ejecute de _

                        nuevo la función.

Const SND_NOSTOP = &H10 'El sonido no se para antes de reproducir el sonido especificado.

Public Sub ReproducirSonido(Sonido As String)

    'llamamos a la función sndPlaySound32

    Call PlaySound(Sonido, 0, &H1 Or &H20000)

End Sub