Want to protect your cyber security and still get fast solutions? Ask a secure question today.Go Premium

x
  • Status: Solved
  • Priority: Medium
  • Security: Public
  • Views: 420
  • Last Modified:

Play an Audio File with MS Access

I need to play an audio file in a loop when an MS Access app loads. How can I do this?
0
EMCIT
Asked:
EMCIT
  • 3
  • 3
  • 2
2 Solutions
 
mbizupCommented:
Application.FollowHyperlink "yourpath\yourfile.ext"

Will open the file.

Place that code in the open event of whatever form opens when the database starts up.
0
 
EMCITAuthor Commented:
Thank you. It opens the file fine but i need it to run in a loop.
0
 
mbizupCommented:
How are you defining when to stop?

Do until...
     Application.followhyperlink...
Loop
0
Veeam and MySQL: How to Perform Backup & Recovery

MySQL and the MariaDB variant are among the most used databases in Linux environments, and many critical applications support their data on them. Watch this recorded webinar to find out how Veeam Backup & Replication allows you to get consistent backups of MySQL databases.

 
mbizupCommented:
You can also put the application.followhyperlink statement into your forms timer event and set the timer interval property to define how fast it runs.

For example 5000 for every five seconds.
0
 
EMCITAuthor Commented:
I tried it in the timer interval and it works but it also launches Media Player each time and it takes the focus from the form. If it runs on a loop On Load the window can be minimized to get it out of the way. Or is there a method to play the wav file without launching the player?
0
 
Jim Dettman (Microsoft MVP/ EE MVE)PresidentCommented:
Not sure what type of file your planning to play, but this is the old way of doing it:

http://support.microsoft.com/kb/158140

 which you can set to loop when you make the call.

Jim.
0
 
Jim Dettman (Microsoft MVP/ EE MVE)PresidentCommented:
You can also use code like the sample below to play MDI or MP3 files.

Jim.

Private Declare Function mciSendString Lib "winmm.dll" Alias _
   "mciSendStringA" (ByVal lpstrCommand As String, ByVal _
   lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal _
   hwndCallback As Long) As Long

Dim sMusicFile As String

Dim Play

Private Sub cmdPlayMusic_Click()

    sMusicFile = Me.txtFileName.Text    'path has been included. Ex. "C:\3rdMan.mp3"

    Play = mciSendString("play " & sMusicFile, 0&, 0, 0)

    If Play <> 0 Then MsgBox "Can't PLAY!"

    Me.cmdPlayMusic.Enabled = False
    Me.cmdStopMusic.Enabled = True

End Sub

Private Sub cmdStopMusic_Click()
   
    Play = mciSendString("close " & sMusicFile, 0&, 0, 0)

    cmdPlayMusic.Enabled = True
    cmdStopMusic.Enabled = False
   
End Sub
0
 
Jim Dettman (Microsoft MVP/ EE MVE)PresidentCommented:
BTW, here's a better link which has the possible flags that you can pass:

http://support.microsoft.com/kb/86281

You want SND_ASYNC + SND_LOOP

Jim.
0

Featured Post

Fill in the form and get your FREE NFR key NOW!

Veeam is happy to provide a FREE NFR server license to certified engineers, trainers, and bloggers.  It allows for the non‑production use of Veeam Agent for Microsoft Windows. This license is valid for five workstations and two servers.

  • 3
  • 3
  • 2
Tackle projects and never again get stuck behind a technical roadblock.
Join Now