Private Sub Form_Timer()
 
Dim lCurPos As Long
Dim lLength As Long
 
' aktuelle Position ermitteln
lCurPos = MP3_CurPos("MyAlias")
 
' Gesamtspielzeit ermitteln
lLength = MP3_GetLength("MyAlias")
 
' Prüfen, ob am Ende angelangt und ggf.
' neues Lied spielen
If lCurPos >= lLength Then
 
MP3_Stop "MyAlias"
 
DoCmd.GoToRecord , , acNext
sFilename = Me!DateiName
Me!Numma = Me!DNS
MP3_Play sFilename, "MyAlias"
End If
 
End Sub

Private Sub Form_Timer()
 
If MP3_IsPlaying("MyAlias") = False Then
   MP3_Stop "MyAlias"
   DoCmd.GoToRecord , , acNext
   sFilename = Me!DateiName
   Me!Numma = Me!DNS
   MP3_Play sFilename, "MyAlias"
End If
 
End Sub

Public Function MP3_IsPlaying(ByVal sAlias As String) As Long
 
 
' -------------------------------------------
' Prüfen ob momentan gespielte MP3 noch läuft
' -------------------------------------------
 
    Dim sBuffer As String * 255
    mciSendString "status " & sAlias & " mode", sBuffer, Len(sBuffer), 0
    MP3_IsPlaying = (Mid$(sBuffer, 1, 7) = "playing")
 
End Function

Private Sub cmdPlayAll_Click()
 
Dim sFilename
sFilename = Me.DateiName
MP3_Play sFilename, "MyAlias"
Label1.Caption = Me.DateiName
 
End Sub