Here is a past post of mine on this subject.
You should be able to find something in here to help.
Follow this link to Allen Browne's site:
http://allenbrowne.com.au/func-04.html
1. Create a new module and add in the code as instructed
2. Then just add code like this to whatever event you
want. Such as GotFocus or something.
=PlaySound("C:\StarWarsTheme.WAV")
Make sure you include the full path and extension.
There is also code here:
http://www.mvps.org/access/api/api0011.htm
Example usage like so:
Let's assume you have a field in the table called PathToSoundFile and you
have a corresponding control on the form bound to that field called
txtPathToSoundFile. The code behind the command button would now
look like this:
' *******Code Start*********
Private Sub cmdPlaySound_Click()
On Error GoTo ErrorPoint
Dim strPath As String
If Len(Nz(Me.txtPathToSoundFile, "")) = 0 Then
' No sound file path present so just ignore
' You could also play a "No Sound" file
' or a Windows one if desired
Else
' Sound file path present
strPath = Me.txtPathToSoundFile
fPlayStuff (strPath)
End If
ExitPoint:
Exit Sub
ErrorPoint:
MsgBox "The following error has occurred:" _
& vbNewLine & "Error Number: " & Err.Number _
& vbNewLine & "Error Description: " & Err.Description _
, vbExclamation, "Unexpected Error"
Resume ExitPoint
End Sub
' *******Code End*********
This will work with forms in Single or Continuous layout.
You optionally could save the record first if you desire as well.
Here is a sample download file by MVP Arvin Meyer:
http://www.datastrat.com/Download/WedOne.zip
And more code and samples here:
Playing sounds in Access:
http://www.pacificdb.com.au/MVP/Code/Sound.htm
Hope that helps,
--
Jeff Conrad
Access Junkie
http://home.bendbroadband.com/conradsystems/accessjunkie.html
http://www.access.qbuilt.com/html/articles.html
in message:
