+- AccessTr.neT (https://accesstr.net)
+-- Forum: Microsoft Access (https://accesstr.net/forum-microsoft-access.html)
+--- Forum: Access Cevaplanmış Soruları (https://accesstr.net/forum-access-cevaplanmis-sorulari.html)
+--- Konu Başlığı: Hastane Otomasyon (/konu-hastane-otomasyon.html)
Hastane Otomasyon - blake33 - 18/11/2010
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ı
Cvp: Hastane Otomasyon - POWER - 18/11/2010
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
Cvp: Hastane Otomasyon - blake33 - 19/11/2010
çok ama çok teşekkür ederim kardeş çok sağol inan çok yardımcı oldun
Cvp: Hastane Otomasyon - benremix - 19/11/2010
Sn horozufuk hocam çözüm için teşekkürler. Ellerinize sağlık.
Saygılar...
