O código que uso para tocar som é esse abaixo:

Option Compare Database

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

Sub Toca(strMusicFile As String)
Dim cmd As String, MusicType As String
Dim ret
On Error GoTo sai
' Verifica se existe o arquivo gravado.
If Dir(strMusicFile) = "" Then
MsgBox "O arquivo de áudio não é válido", vbInformation, "Impossível reproduzir "
Exit Sub
End If
'pega a extensão do arquivo
MusicType = UCase(Right$(strMusicFile, 3))

' Verifica o tipo de arquivo que esta sendo objeto dessa rotina.
Select Case MusicType
Case "MID"
cmd = "open """ & strMusicFile & """ type sequencer alias myaudio"
Case "MP3"
cmd = "open " & """" & strMusicFile & """" & " alias myaudio"
Case "WAV"
cmd = "open " & """" & strMusicFile & """" & " alias myaudio"
Case "WPL"
cmd = "open " & """" & strMusicFile & """" & " alias myaudio"
Case Else
GoTo sai
End Select

'Se tiver tocando alguma coisa pára.
StopMusic

' Open the file.
ret = mciSendString(cmd, 0&, 0, 0)
If ret <> 0 Then
MsgBox "Houve um erro na reprodução do arquivo '" & strMusicFile & _
"'." & vbCrLf & vbCritical, "ERRO"
Else
'Play the file
cmd = "Play myaudio"
ret = mciSendString(cmd, vbNullString, 0, 0)
End If
Exit Sub

sai:
End Sub

Private Sub StopMusic()
Dim ret
ret = mciSendString("close myaudio", vbNullString, 0, 0)
End Sub

Private Sub Form_Open(Cancel As Integer)

On Error Resume Next
'Ao abrir o formulario toca o som deste arquivo
'que está na pasta do windows, então basta vc indicar
'o caminho e o nome do arquivo
Call Toca("C:\Documents and Settings\TRANSNETO\Meus documentos\Minhas músicas\My Playlists\Minhas músicas.mp3 ")

End Sub

A minha pergunta é como fazer para que ele toque o som de uma playlist = lista de reprodução automática do windows média player

Espero que agora eu tenho completado a minha pergunta.

mas se ninguém souber tudo bem
beijos
Ni

This message has been edited. Last edited by: Ni_Oliveira,

oii

Re: Tocar MP3 em Access é fácil.

Click no link abaixo

http://www.expertaccess.com.br/download.asp?id=126

[ ]s WSenna