Des Sons sur les Evénements
BUT : Pour égayer un peu l’utilisation d’Access ou par attirer l’attention sur un point particulier, nous pouvons appliquer des petits sons au format WAV sur des « événements » (par exemple: ouverture d’un formulaire, mise à jour d’un champ particulier, etc…)
Comment faire !
- Commençons par créer un nouveau module, en appuyant sur le bouton NEW
- Entrons le code suivant
- Fabriquons maintenant un formulaire tout simple et admettons que nous souhaitons que notre petit fichier sonore s’exécute lors de l’ouverture de ce formulaire. Définissons ses propriétés comme suit :
- Encodons maintenant les lignes VBA qui donneront l’ordre de jouer un fichier déterminé en le désignant ainsi que le chemin pour l’atteindre
- Et voilà, sauvons le tout et maintenant à chaque ouverture du formulaire, vous entendrez le petit son…bien entendu, vous pouvez placer le fichier sonore où vous voulez sur votre disque dur, tant que dans le code vous stipuliez le chemin correct pour l’atteindre
Sous Access 2013
Le code est celui-ciPublic Declare PtrSafe Function sndPlaySound32 _ Lib "winmm.dll" _ Alias "sndPlaySoundA" ( _ ByVal lpszSoundName As String, _ ByVal uFlags As Long) As Long Public Sub PlaySound(strFileName As String) sndPlaySound32 strFileName, 1 End Sub
Cliquez ici pour télécharger le fichier exemple 2003 jouerunson
Cliquez ici pour télécharger le fichier exemple 2013 JouerUnSon2013