merhaba arkadaşlar yeni bir tasarım üzerinde çalışıyorum fakat burada yaptığım 2 numaralı hastaya geçtiğimde otomatik 1 numaranın silinmesı

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

çok ama çok teşekkür ederim kardeş çok sağol inan çok yardımcı oldun

Sn horozufuk hocam çözüm için teşekkürler. Ellerinize sağlık.
Saygılar...