Ich habe in einer Datenbank ca. 4500 Audio Dateien abgelegt. Hier kann ich mir eine beliebige Anzahl von Liedern und deren Abspielreihenfolge auswählen.
Wenn ich alle ausgewählten Lieder abspielen will, verwende ich folgende Prozedur:
Private Sub BSFAlle_Click()

Dim rs As DAO.Recordset
Set rs = Me.RecordsetClone
rs.MoveFirst
Do While Not rs.EOF
Shell ("C:\Programme\Windows Media Player\wmplayer.exe" & " """ & rs!Pfad & """")
DoEvents
Sleep rs!Länge_Millisek
rs.MoveNext
Loop

End Sub
Das problem dabei ist aber, dass ich dabei nur die ganze Auswahl abspielen kann. Wenn ich dazwischen abbrechen möchte, stürzt Access ab und muss neu gestartet werden. Wie kann ich dass verhindern ???
Das zweite Problem ist, wenn ich nur ein bestimmtes Lied der Auswahl abspielen möchte, gibt es folgende Prozedur:
Private Sub cmdStarten_Click()

Dim objMediaPlayer As WindowsMediaPlayer
Set objMediaPlayer = MediaPlayer.Object

With objMediaPlayer
Me!MediaPlayer.URL = Me.Pfad
End With

End Sub
Danach kommt aber eine Fehlermeldung: Methode oder Datenobjekt nicht gefunden (Verweis auf den eintrag "MediaPlayer.Object".
Was kann hier die Ursache sein ???
Kann mir dabei jemand helfen ???
Vielen Dank Herbert2241