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...
