MusiqueDansAccess

Retour vers Access

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-ci

  Public 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

Fin