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