Private Sub cmdPlayAll_Click()
 
' ---------------------------------------------
'
' Restliche mp3 ab aktueller Position abspielen
'
' ---------------------------------------------
 
 
Label1.Caption = ""
 
Dim sFilename As String
Dim L As Long
Dim A As Long
 
On Error GoTo err
 
A = AnzahlDatensaetze("tbl_Musik")
 
Do Until Z = A - Me.DNS
 
sFilename = Me!DateiName
MP3_Play sFilename, "MyAlias"
 
Z = Z + 1
' Liedlänge (Millisekunden) auslesen
L = MP3_GetLength("MyAlias")
 
Me.Titel.SetFocus
Me.Label1.Caption = Me.Titel & "  -  " & Me.Interpret
 
' Wartezeit in Millisekunden an DelayMilSec übergeben
DelayMilSec (L)
 
MP3_Stop "MyAlias"
MP3_Close "MyAlias"
 
DoCmd.GoToRecord , , acNext
Loop
 
err:
 
End Sub

Public Sub DelayMilSec(mSekunden As Long)
 
' --------------------------------------
' Warteschleife mit Millisekundenvorgabe
' --------------------------------------
 
  Dim TimeOut As Long
  TimeOut = (GetTickCount) + mSekunden
  Do
    DoEvents
  Loop Until TimeOut < (GetTickCount)