General

6.14 Come gestire i "suoni" in VBA? (32 bit)
  Stefano Bettini
Si può fare (ad es.) tramite una API della libreria winmm, e precisamente la sndPlaySoundA.
Occorre definire la funzione in un modulo in questo modo:
Declare Function apisndPlaySound Lib "winmm" Alias "sndPlaySoundA" _
   (ByVal fnome As String, ByVal sndasync As Long) As Long
e la si può quindi utilizzare ovunque nel codice nel modo seguente:
Err = apisndPlaySound("C:\WINDOWS\MEDIA\CHIMES.WAV", 2)
Nota di Roberto
Realizzando quanto scritto qui sopra il codice del database risulterà bloccato sino alla completa esecuzione del brano musicale. Se invece si desidera che il brano musicale venga eseguito in sottofondo mentre viene regolarmente usato il database, il codice VBA da usare per avviare l'esecuzione è il seguente:
Err = apisndPlaySound("C:\WINDOWS\MEDIA\CHIMES.WAV", 2)
Se questa riga di codice viene eseguita mentre è in esecuzione il brano, l'esecuzione del brano viene interrotta.
Una soluzione che oltre ai file .WAV permette di eseguire anche file .MID o .AVI la si può trovare nel sito di Dev Ashish al seguente link:
http://www.mvps.org/access/api/api0011.htm

Se pensate di avere del materiale freeware interessante e volete pubblicarlo, allora leggete qui.