13/01/2011, 18:05
13/01/2011, 18:08
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.
' 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.
14/01/2011, 01:57
Sn bicherd_over; aramıza hoş geldiniz. Katkınız için teşekkürler.
16/01/2011, 02:39
Soru sorulmuş 3 dakika sonra cevap yazılmış geri dönülmemiş. Konu taşınıp gerekli uyarı cezası verilmiştir.