Sn blake33
Aşağıda yazılı olan 2 satırı kodlarınıza ilave ediniz...

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

Set rs = Me.Recordset
'--------------------------------------------------
rs.Delete
'--------------------------------------------------
rs.MoveNext
If Not rs.EOF Then Me.Bookmark = rs.Bookmark
sd = Liste90.ListIndex + 1
Liste90.Selected(sd) = True
'--------------------------------------------------
Me.Liste90.Requery
'--------------------------------------------------
End Sub