Dim sFilename
 
sFilename = Me!DateiName
MP3_Play sFilename, "MyAlias"          ' Aktuellen Datensatz abspielen
  Dim lCurPos As Long
  Dim lLength As Long
  ' aktuelle Position auslesen
  lCurPos = MP3_CurPos("MyAlias")
    ' Gesamtspielzeit auslesen
  lLength = MP3_GetLength("MyAlias")
  ' Prüfen, ob am Ende angelangt und ggf.
  ' neues Lied spielen
 
If lCurPos >= lLength Then             ' wenn beides gleich
     DoCmd.GoToRecord , , acNext       ' next Titel
     sFilename = Me!DateiName
     Me!Numma = Me!DNS
     MP3_Play sFilename, "MyAlias"
End If