PlaySound ("c:\windows\media\ding.wav")
' Denetime uyan kaydı bul.
Dim rs As Object

Set rs = Me.Recordset
rs.MoveNext
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
sd = ListeX.ListIndex + 1
ListeX.Selected(sd) = True

Sadece müzik çalsın istiyorsan koyu yazdığım yeri kullanabilirsin.

ayrıyetten atıyorum veri değiştirirken ses çıkmasını istersen alttaki denetimi kullanabilirsin. "X" yazdım yerleri kendi veridğinm değişken adını gir.