Solved

Play an Audio File with MS Access

Posted on 2013-01-14
8
365 Views
Last Modified: 2013-01-14
I need to play an audio file in a loop when an MS Access app loads. How can I do this?
0
Comment
Question by:EMCIT
  • 3
  • 3
  • 2
8 Comments
 
LVL 61

Expert Comment

by:mbizup
ID: 38775334
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
 
LVL 11

Author Comment

by:EMCIT
ID: 38775374
Thank you. It opens the file fine but i need it to run in a loop.
0
 
LVL 61

Expert Comment

by:mbizup
ID: 38775386
How are you defining when to stop?

Do until...
     Application.followhyperlink...
Loop
0
 
LVL 61

Assisted Solution

by:mbizup
mbizup earned 250 total points
ID: 38775397
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
U.S. Department of Agriculture and Acronis Access

With the new era of mobile computing, smartphones and tablets, wireless communications and cloud services, the USDA sought to take advantage of a mobilized workforce and the blurring lines between personal and corporate computing resources.

 
LVL 11

Author Comment

by:EMCIT
ID: 38775443
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
 
LVL 57

Accepted Solution

by:
Jim Dettman (Microsoft MVP/ EE MVE) earned 250 total points
ID: 38775452
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
 
LVL 57
ID: 38775473
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
 
LVL 57
ID: 38775645
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

Is Your Active Directory as Secure as You Think?

More than 75% of all records are compromised because of the loss or theft of a privileged credential. Experts have been exploring Active Directory infrastructure to identify key threats and establish best practices for keeping data safe. Attend this month’s webinar to learn more.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

Regardless of which version on MS Access you are using, one of the harder data-entry forms to create is one where most data from previous entries needs to be appended to new records, especially when there are numerous fields and records involved.  W…
QuickBooks® has a great invoice interface that we were happy with for a while but that changed in 2001 through no fault of Intuit®. Our industry's unit names are dictated by RUS: the Rural Utilities Services division of USDA. Contracts contain un…
Familiarize people with the process of utilizing SQL Server functions from within Microsoft Access. Microsoft Access is a very powerful client/server development tool. One of the SQL Server objects that you can interact with from within Microsoft Ac…
Basics of query design. Shows you how to construct a simple query by adding tables, perform joins, defining output columns, perform sorting, and apply criteria.

920 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question

Need Help in Real-Time?

Connect with top rated Experts

19 Experts available now in Live!

Get 1:1 Help Now