in message:
I'm trying to play a sound every time the access main swithboard forms opens.
Hi,
Here is a past post of mine on this subject which should 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
In your case, just use the form's open event to play the sound
Hope that helps,